diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-07-21 22:54:40 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-07-21 22:54:40 +0000 |
| commit | 46ab76918c134310e1a6e942a454fb1cd0cb3e61 (patch) | |
| tree | 3ef747f5d5ebd8434d4208b0e7d3cd94e6b7753e /lisp/help-mode.el | |
| parent | 5ab67056a18d548f194badbd5f5a34cf7a3f5433 (diff) | |
| download | emacs-46ab76918c134310e1a6e942a454fb1cd0cb3e61.tar.gz | |
(help-function-def, help-variable-def)
(help-face-def): Print a message in the minibuffer.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 7cdf78fbe13..ce79e618cd5 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -157,8 +157,9 @@ The format is (FUNCTION ARGS...).") (let ((location (find-function-search-for-symbol fun nil file))) (pop-to-buffer (car location)) - (when (cdr location) - (goto-char (cdr location))))) + (if (cdr location) + (goto-char (cdr location)) + (message "Unable to find location in file")))) 'help-echo (purecopy "mouse-2, RET: find function's definition")) (define-button-type 'help-variable-def @@ -168,8 +169,9 @@ 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)) - (when (cdr location) - (goto-char (cdr location))))) + (if (cdr location) + (goto-char (cdr location)) + (message "Unable to find location in file")))) 'help-echo (purecopy "mouse-2, RET: find variable's definition")) (define-button-type 'help-face-def @@ -181,8 +183,9 @@ The format is (FUNCTION ARGS...).") (let ((location (find-function-search-for-symbol fun 'defface file))) (pop-to-buffer (car location)) - (when (cdr location) - (goto-char (cdr location))))) + (if (cdr location) + (goto-char (cdr location)) + (message "Unable to find location in file")))) 'help-echo (purecopy "mouse-2, RET: find face's definition")) |