From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 23 Aug 2022 10:23:09 +0000 (+0200)
Subject: Don't mention obsolete generalized variables in *Help*
X-Git-Tag: emacs-29.0.90~1893^2~85
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d9798521e3457506c08ff9cb6c0d3069c30af00;p=emacs.git

Don't mention obsolete generalized variables in *Help*

* lisp/help-fns.el (help-fns--generalized-variable): Don't mention
obsolete ones.
---

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")))