diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 17:10:53 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 17:10:53 +0200 |
| commit | a43a0fc797f27cc0bfb0379f617e94b66c35a26e (patch) | |
| tree | 2b07d2d2274145b4e911208e8aeb482a2666e97f /lisp/obsolete | |
| parent | 3f4c2f813adeffc6814ee01116704ccf420c3bd9 (diff) | |
| download | emacs-a43a0fc797f27cc0bfb0379f617e94b66c35a26e.tar.gz emacs-a43a0fc797f27cc0bfb0379f617e94b66c35a26e.tar.bz2 emacs-a43a0fc797f27cc0bfb0379f617e94b66c35a26e.zip | |
Silence warning in obsolete/complete.el
* lisp/obsolete/complete.el (PC-do-completion): Suppress warning
about obsolete variable in obsolete function.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/complete.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el index 8021b2227ea..173a4619caa 100644 --- a/lisp/obsolete/complete.el +++ b/lisp/obsolete/complete.el @@ -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. |