Mercurial > emacs
changeset 72063:52eeda6a8959
(help-function-def, help-variable-def)
(help-face-def): Print a message in the minibuffer.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Fri, 21 Jul 2006 22:54:40 +0000 |
| parents | 7b81ccd702d9 |
| children | 05f42d7646b5 |
| files | lisp/help-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-mode.el Fri Jul 21 22:54:15 2006 +0000 +++ b/lisp/help-mode.el Fri Jul 21 22:54:40 2006 +0000 @@ -157,8 +157,9 @@ (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 @@ (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 @@ (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"))