# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1153522480 0
# Node ID 52eeda6a89598393245dfd182d4d7fe0aa375dbb
# Parent  7b81ccd702d91183cb55bc9007088d0826fac357
(help-function-def, help-variable-def)
(help-face-def): Print a message in the minibuffer.

diff -r 7b81ccd702d9 -r 52eeda6a8959 lisp/help-mode.el
--- 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"))