From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 13 Sep 2022 16:32:30 +0000 (+0200)
Subject: Make help-fns--generalized-variable more resilient
X-Git-Tag: emacs-29.0.90~1856^2~538
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4235eb26db27df63982083455f355ac9b46d70f;p=emacs.git

Make help-fns--generalized-variable more resilient

* lisp/help-fns.el (help-fns--generalized-variable): Don't bug out
when a key binding isn't a symbol.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d5b576de285..a3d4e002b6f 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1159,7 +1159,8 @@ 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 (and (get function 'gv-expander)
+  (when (and (symbolp function)
+             (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)