From: Martin Rudalics <rudalics@gmx.at>
Date: Wed, 17 Sep 2008 06:52:00 +0000 (+0000)
Subject: (Info-follow-nearest-node): Don't raise an error for
X-Git-Tag: emacs-pretest-23.0.90~2876
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cf7c3d1677012bff79e9a5128d095f3f9d70191;p=emacs.git

(Info-follow-nearest-node): Don't raise an error for
mouse-1 clicks.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92b517bfaea..64a70052890 100644
--- 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 ac04643d0fa..3b7603a2f83 100644
--- 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.