[Emacs-diffs] master a43a0fc 2/4: Silence warning in obsolete/complete.el

[Lars Ingebrigtsen]

branch: master
commit a43a0fc797f27cc0bfb0379f617e94b66c35a26e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Silence warning in obsolete/complete.el
    
    * lisp/obsolete/complete.el (PC-do-completion): Suppress warning
    about obsolete variable in obsolete function.
---
 lisp/obsolete/complete.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index 8021b22..173a461 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.