From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 21 Jul 2006 22:54:40 +0000 (+0000)
Subject: (help-function-def, help-variable-def)
X-Git-Tag: emacs-pretest-22.0.90~1294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46ab76918c134310e1a6e942a454fb1cd0cb3e61;p=emacs.git

(help-function-def, help-variable-def)
(help-face-def): Print a message in the minibuffer.
---

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"))