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 e06f2dec5cda9d1bdf0b7673a09c64424375ed02..1ccf9bb42815d6c68a480551a995c10e7d2c5964 100644 (file)
--- 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")))