# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1221634284 0
# Node ID c792a9e621a1a5cbb1a32cb8b2fe46202b0123cc
# Parent  b6cf257b02c150de2165265893596d4538b8ad1f
(Info-follow-nearest-node): Don't raise an error for
mouse-1 clicks.

diff -r b6cf257b02c1 -r c792a9e621a1 lisp/info.el
--- a/lisp/info.el	Wed Sep 17 02:36:46 2008 +0000
+++ b/lisp/info.el	Wed Sep 17 06:51:24 2008 +0000
@@ -3123,6 +3123,10 @@
 	    (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.