From 9d9798521e3457506c08ff9cb6c0d3069c30af00 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 23 Aug 2022 12:23:09 +0200 Subject: [PATCH] Don't mention obsolete generalized variables in *Help* * lisp/help-fns.el (help-fns--generalized-variable): Don't mention obsolete ones. --- lisp/help-fns.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e06f2dec5cd..1ccf9bb4281 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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"))) -- 2.39.5