Don't mention obsolete generalized variables in *Help*

* lisp/help-fns.el (help-fns--generalized-variable): Don't mention
obsolete ones.
This commit is contained in:
Lars Ingebrigtsen 2022-08-23 12:23:09 +02:00
commit 9d9798521e

View file

@ -1156,7 +1156,9 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(add-hook 'help-fns-describe-function-functions #'help-fns--compiler-macro 100)
(defun help-fns--generalized-variable (function)
(when (get function 'gv-expander)
(when (and (get function 'gv-expander)
;; Don't mention obsolete generalized variables.
(not (get function 'byte-obsolete-generalized-variable)))
(insert (format-message " `%s' is also a " function)
(buttonize "generalized variable"
(lambda (_) (info "(elisp)Generalized Variables")))