procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-mouse-scroll-up, Info-mouse-scroll-down): New functions.

Browse source 
(Info-mode-line-node-keymap): Bind mouse commands to
Info-mouse-scroll-up/down instead of Info-scroll-up/down.
This commit is contained in:
Chong Yidong 2007-04-23 15:21:47 +00:00
parent a9da35e0e5
commit 8aab84229c
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/info.el
View file

@ -1400,8 +1400,8 @@ any double quotes or backslashes must be escaped (\\\",\\\\)."
(defvar Info-mode-line-node-keymap
(let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1] 'Info-scroll-up)
(define-key map [mode-line mouse-3] 'Info-scroll-down)
(define-key map [mode-line mouse-1] 'Info-mouse-scroll-up)
(define-key map [mode-line mouse-3] 'Info-mouse-scroll-down)
map)
"Keymap to put on the Info node name in the mode line.")
@ -2620,6 +2620,15 @@ in other ways.)"
(t (Info-next-preorder)))
(scroll-up))))
(defun Info-mouse-scroll-up (e)
"Scroll one screenful forward in Info, using the mouse.
See `Info-scroll-up'."
(interactive "e")
(save-selected-window
(if (eventp e)
(select-window (posn-window (event-start e))))
(Info-scroll-up)))
(defun Info-scroll-down ()
"Scroll one screenful back in Info, considering all nodes as one sequence.
If point is within the menu of a node, and `Info-scroll-prefer-subnodes'
@ -2646,6 +2655,15 @@ parent node."
(Info-last-preorder)
(scroll-down))))
(defun Info-mouse-scroll-down (e)
"Scroll one screenful backward in Info, using the mouse.
See `Info-scroll-down'."
(interactive "e")
(save-selected-window
(if (eventp e)
(select-window (posn-window (event-start e))))
(Info-scroll-down)))
(defun Info-next-reference (&optional recur)
"Move cursor to the next cross-reference or menu item in the node."
(interactive)