[Emacs-diffs] Changes to emacs/lisp/help-mode.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/07/12 16:00:45

Index: help-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/help-mode.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- help-mode.el        11 Jul 2006 20:12:40 -0000      1.48
+++ help-mode.el        12 Jul 2006 16:00:45 -0000      1.49
@@ -157,7 +157,8 @@
                   (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 @@
                     (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 @@
                   (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"))