diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:32:26 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:39:16 +0200 |
| commit | a53ee9928dd26f5745af8446cdfbedc229ca1e9a (patch) | |
| tree | f17aed9475d2984b9820a87ef579c4198ba756cf | |
| parent | 27b60ae061423c836d06a7a6349c6ab4397b2b41 (diff) | |
| download | emacs-a53ee9928dd26f5745af8446cdfbedc229ca1e9a.tar.gz | |
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.
| -rw-r--r-- | lisp/mpc.el | 7 |
1 files 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) |