diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-11-22 21:10:49 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-11-22 21:10:49 +0100 |
| commit | b7d4c5d1d1b55fea8382663f18263e2000678be5 (patch) | |
| tree | d6d0e7af6fc3a93152838f72b8a50352861e3154 /lisp/help-mode.el | |
| parent | 0b4eec3169690dab5ffa5027770893fff87f505f (diff) | |
| download | emacs-b7d4c5d1d1b55fea8382663f18263e2000678be5.tar.gz emacs-b7d4c5d1d1b55fea8382663f18263e2000678be5.tar.bz2 emacs-b7d4c5d1d1b55fea8382663f18263e2000678be5.zip | |
help-follow-symbol now complains if no symbol found (bug#38248)
* lisp/help-mode.el (help-follow-symbol): Signal 'user-error' if
there's no symbol at POS.
* etc/NEWS: Document it.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 054a1ef8c24..e70570c3eed 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -749,10 +749,11 @@ Show all docs for that symbol as either a variable, function or face." (buffer-substring (point) (progn (skip-syntax-forward "w_") (point))))))) - (when (or (boundp sym) - (get sym 'variable-documentation) - (fboundp sym) (facep sym)) - (help-do-xref pos #'describe-symbol (list sym))))) + (if (or (boundp sym) + (get sym 'variable-documentation) + (fboundp sym) (facep sym)) + (help-do-xref pos #'describe-symbol (list sym)) + (user-error "No symbol here")))) (defun help-mode-revert-buffer (_ignore-auto noconfirm) (when (or noconfirm (yes-or-no-p "Revert help buffer? ")) |