From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 09:32:26 +0000 (+0200)
Subject: Fix namespace problem in mpc.el
X-Git-Tag: emacs-29.0.90~1447^2~467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a53ee9928dd26f5745af8446cdfbedc229ca1e9a;p=emacs.git

Fix namespace problem in mpc.el

* lisp/mpc.el (mpc-tag-browser-tagtypes): Rename from
'tag-browser-tagtypes'.  Retain old name as an obsolete alias.
---

diff --git a/lisp/mpc.el b/lisp/mpc.el
index 1464c36a916..ba95308bf67 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1569,8 +1569,9 @@ when constructing the set of constraints."
         (mpc-tagbrowser-refresh)
         buf))))
 
-(defvar tag-browser-tagtypes
-  (lazy-completion-table tag-browser-tagtypes
+(define-obsolete-variable-alias 'tag-browser-tagtypes 'mpc-tag-browser-tagtypes "29.1")
+(defvar mpc-tag-browser-tagtypes
+  (lazy-completion-table mpc-tag-browser-tagtypes
                          (lambda ()
                            (append '("Playlist" "Directory")
                                    (mpc-cmd-tagtypes)))))
@@ -1581,7 +1582,7 @@ when constructing the set of constraints."
    (list
     (let ((completion-ignore-case t))
       (intern
-       (completing-read "Tag: " tag-browser-tagtypes nil 'require-match)))))
+       (completing-read "Tag: " mpc-tag-browser-tagtypes nil 'require-match)))))
   (let* ((newbuf (mpc-tagbrowser-buf tag))
          (win (get-buffer-window newbuf 0)))
     (if win (select-window win)