diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-13 18:32:30 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-14 01:40:17 +0200 |
| commit | c4235eb26db27df63982083455f355ac9b46d70f (patch) | |
| tree | a1618ccb8f17251b81155136bf61cdb3b890a3d4 /lisp/help-fns.el | |
| parent | fd1ee0597708fbd6926b93e1c13830883d3c1687 (diff) | |
| download | emacs-c4235eb26db27df63982083455f355ac9b46d70f.tar.gz | |
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.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |