From a53ee9928dd26f5745af8446cdfbedc229ca1e9a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 11:32:26 +0200 Subject: [PATCH] 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. --- lisp/mpc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.39.2