diff options
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. |