Silence warning in obsolete/complete.el

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

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.