From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 15 Jun 2019 15:10:53 +0000 (+0200)
Subject: Silence warning in obsolete/complete.el
X-Git-Tag: emacs-27.0.90~2508
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a43a0fc797f27cc0bfb0379f617e94b66c35a26e;p=emacs.git

Silence warning in obsolete/complete.el

* lisp/obsolete/complete.el (PC-do-completion): Suppress warning
about obsolete variable in obsolete function.
---

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.