changeset 98203:c792a9e621a1

(Info-follow-nearest-node): Don't raise an error for mouse-1 clicks.
author Martin Rudalics <rudalics@gmx.at>
date Wed, 17 Sep 2008 06:51:24 +0000
parents b6cf257b02c1
children 306787e2d3ce
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.