diff options
| author | Lars Ingebrigtsen | 2019-10-09 05:13:07 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-09 05:13:07 +0200 |
| commit | f2cbc7214f04d51e9eae2636d68b7052aa5c1a6d (patch) | |
| tree | f79e4d67f2fbe82c88d77da38fe07545ab04b713 | |
| parent | 967eed75968571edc503a770b8a631a4477c9b4d (diff) | |
| download | emacs-f2cbc7214f04d51e9eae2636d68b7052aa5c1a6d.tar.gz emacs-f2cbc7214f04d51e9eae2636d68b7052aa5c1a6d.zip | |
Add more sanity checks to help-fns--globalized-minor-mode
* lisp/help-fns.el (help-fns--globalized-minor-mode): FUNCTION can
be a lambda, so protect against that.
| -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 e9e2818d98a..06b15a30f99 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -559,7 +559,8 @@ suitable file is found, return nil." | |||
| 559 | (add-hook 'help-fns-describe-function-functions | 559 | (add-hook 'help-fns-describe-function-functions |
| 560 | #'help-fns--globalized-minor-mode) | 560 | #'help-fns--globalized-minor-mode) |
| 561 | (defun help-fns--globalized-minor-mode (function) | 561 | (defun help-fns--globalized-minor-mode (function) |
| 562 | (when (get function 'globalized-minor-mode) | 562 | (when (and (symbolp function) |
| 563 | (get function 'globalized-minor-mode)) | ||
| 563 | (help-fns--customize-variable function " the global mode variable.") | 564 | (help-fns--customize-variable function " the global mode variable.") |
| 564 | (terpri))) | 565 | (terpri))) |
| 565 | 566 | ||