Silence warning in obsolete/complete.el

* lisp/obsolete/complete.el (PC-do-completion): Suppress warning
about obsolete variable in obsolete function.
This commit is contained in:
Lars Ingebrigtsen 2019-06-15 17:10:53 +02:00
parent 3f4c2f813a
commit a43a0fc797

View file

@ -832,9 +832,12 @@ GOTO-END is non-nil, however, it instead replaces up to END."
;;
;; Note that choose-completion-string-functions
;; plays around with point.
(setq completion-base-size (if dirname
dirlength
(- beg prompt-end))))))
(with-suppressed-warnings ((obsolete
completion-base-size))
(setq completion-base-size
(if dirname
dirlength
(- beg prompt-end)))))))
(PC-temp-minibuffer-message " [Next char not unique]"))
;; Expansion of filenames is not reversible,
;; so just keep the prefix.