mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source 
mouse-1 clicks.
This commit is contained in:
Martin Rudalics 2008-09-17 06:52:00 +00:00
parent ba0421242c
commit 2cf7c3d167
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/info.el
View File

@ -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.