diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-13 10:05:36 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-13 10:05:44 +0100 |
| commit | f32280bfa6342090abaa9f015d4cd70fb81bbfef (patch) | |
| tree | e4e4582b3e7fa2fd99bf1e842d2235db473f2491 /lisp/help.el | |
| parent | dafebe37ebe08d581506864e96058807d1aec56b (diff) | |
| download | emacs-f32280bfa6342090abaa9f015d4cd70fb81bbfef.tar.gz | |
Don't create links to undefined commands in help--describe-command
* lisp/help.el (help--describe-command): Don't create links to
commands that aren't defined.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index b2772f4389b..4470e6baaa4 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1328,9 +1328,11 @@ Return nil if the key sequence is too long." (defun help--describe-command (definition &optional translation) (cond ((symbolp definition) - (insert-text-button (symbol-name definition) - 'type 'help-function - 'help-args (list definition)) + (if (fboundp definition) + (insert-text-button (symbol-name definition) + 'type 'help-function + 'help-args (list definition)) + (insert (symbol-name definition))) (insert "\n")) ((or (stringp definition) (vectorp definition)) (if translation |