From 2cf7c3d1677012bff79e9a5128d095f3f9d70191 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 17 Sep 2008 06:52:00 +0000 Subject: [PATCH] (Info-follow-nearest-node): Don't raise an error for mouse-1 clicks. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 4 ++++ 2 files changed, 9 insertions(+) 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 + + * info.el (Info-follow-nearest-node): Don't raise an error for + mouse-1 clicks. + 2008-09-17 Jay Belanger * 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. -- 2.39.5