From: Eli Zaretskii Date: Tue, 15 Oct 2013 18:40:22 +0000 (+0300) Subject: Support mouse wheel in TTY menus. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1258 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7;p=emacs.git Support mouse wheel in TTY menus. lisp/menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY menu navigations commands. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ea25c557a51..ec92c2b5c29 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-10-15 Eli Zaretskii + + * menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY + menu navigations commands. + 2013-10-14 Dima Kogan (tiny change) * progmodes/subword.el (subword-capitalize): Be careful when diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 7a53f968d69..368fb289c36 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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)