diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 4 |
2 files changed, 9 insertions, 0 deletions
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 <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 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) |