Commit 6456c0ea authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Support mouse wheel in TTY menus.

 lisp/menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
 menu navigations commands.
parent 5d64d770
2013-10-15 Eli Zaretskii <eliz@gnu.org>
* menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
menu navigations commands.
2013-10-14 Dima Kogan <dima@secretsauce.net> (tiny change)
* progmodes/subword.el (subword-capitalize): Be careful when
......
......@@ -2341,6 +2341,10 @@ If FRAME is nil or not given, use the selected frame."
(define-key map [linefeed] 'tty-menu-select)
(define-key map [down-mouse-1] 'tty-menu-select)
(define-key map [drag-mouse-1] 'tty-menu-select)
(define-key map [wheel-down] 'tty-menu-next-item)
(define-key map [wheel-up] 'tty-menu-prev-item)
(define-key map [wheel-left] 'tty-menu-prev-menu)
(define-key map [wheel-right] 'tty-menu-next-menu)
;; The following 4 bindings are for those whose text-mode mouse
;; lack the wheel.
(define-key map [S-down-mouse-1] 'tty-menu-next-item)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment