mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Make `C-h v' list all aliases a variable has

Browse Source 
* lisp/help-fns.el (help-fns--var-aliases): New function (bug#15179).
This commit is contained in:
Lars Ingebrigtsen 2019-10-14 07:47:53 +02:00
parent 9aa13cd4be
commit c4fcaf5e72
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/help-fns.el
View File

@ -1228,6 +1228,30 @@ variable.\n")))
" This variable is an alias for `%s'.\n"
alias)))))
(add-hook 'help-fns-describe-variable-functions #'help-fns--var-aliases)
(defun help-fns--var-aliases (variable)
;; Mention if it has any aliases.
(let (aliases)
(mapatoms
(lambda (sym)
(when (and (boundp sym)
(setq alias (indirect-variable sym))
(eq alias variable)
(not (eq alias sym)))
(push sym aliases)))
obarray)
(when aliases
(princ
(if (= (length aliases) 1)
(format-message
" This variable has an alias: `%s'.\n" (car aliases))
(format-message
" This variable has the following aliases: %s.\n"
(mapconcat
(lambda (sym)
(format "`%s'" sym))
aliases ",\n ")))))))
(add-hook 'help-fns-describe-variable-functions #'help-fns--var-bufferlocal)
(defun help-fns--var-bufferlocal (variable)
(let ((permanent-local (get variable 'permanent-local))