(Info-follow-nearest-node): Don't raise an error for

mouse-1 clicks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92b517bfaeaedb2b639a37aac6cd127ddf95d754..64a70052890f4aafc5aef461c7ca9d163587c652 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-17  Martin Rudalics  <rudalics@gmx.at>
+
+       * info.el (Info-follow-nearest-node): Don't raise an error for
+       mouse-1 clicks.
+
 2008-09-17  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-units.el (calc-convert-temperature):  Use default

diff --git a/lisp/info.el b/lisp/info.el
index ac04643d0fa4c56470b64c544eccc029d7b59110..3b7603a2f838c1cb9c5cda13ca0aaf4f076b148a 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3123,6 +3123,10 @@ If FORK is a string, it is the name to use for the new buffer."
            (Info-goto-node
             (Info-extract-menu-item (match-string-no-properties 1)) fork)
            t)))
+      (and (eq this-command 'Info-mouse-follow-nearest-node)
+          ;; Don't raise an error when mouse-1 is bound to this - it's
+          ;; often used to simply select the window or frame.
+          (eq 'mouse-1 (event-basic-type last-input-event)))
       (error "Point neither on reference nor in menu item description")))
 
 ;; Common subroutine.