diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-07-12 16:00:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-07-12 16:00:45 +0000 |
| commit | 84333e068eca39d0867d169b8bc479bb2c32a69c (patch) | |
| tree | 4eac75e300f5def9e714f11c32d30d41f390586b /lisp/help-mode.el | |
| parent | 38586111b136a4d4b77cb8c9dc78a84ec7884144 (diff) | |
| download | emacs-84333e068eca39d0867d169b8bc479bb2c32a69c.tar.gz | |
(help-variable-def): Handle find-variable-noselect returning no position.
(help-function-def): Likewise for find-function-search-for-symbol.
(help-face-def): Likewise.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 72b2554185f..7cdf78fbe13 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -157,7 +157,8 @@ The format is (FUNCTION ARGS...).") (let ((location (find-function-search-for-symbol fun nil file))) (pop-to-buffer (car location)) - (goto-char (cdr location)))) + (when (cdr location) + (goto-char (cdr location))))) 'help-echo (purecopy "mouse-2, RET: find function's definition")) (define-button-type 'help-variable-def @@ -167,7 +168,8 @@ The format is (FUNCTION ARGS...).") (setq file (help-C-file-name var 'var))) (let ((location (find-variable-noselect var file))) (pop-to-buffer (car location)) - (goto-char (cdr location)))) + (when (cdr location) + (goto-char (cdr location))))) 'help-echo (purecopy "mouse-2, RET: find variable's definition")) (define-button-type 'help-face-def @@ -179,7 +181,8 @@ The format is (FUNCTION ARGS...).") (let ((location (find-function-search-for-symbol fun 'defface file))) (pop-to-buffer (car location)) - (goto-char (cdr location)))) + (when (cdr location) + (goto-char (cdr location))))) 'help-echo (purecopy "mouse-2, RET: find face's definition")) |