diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2013-10-15 21:40:22 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2013-10-15 21:40:22 +0300 |
| commit | 6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7 (patch) | |
| tree | 326618c8b06adf0baff15b5c3b2cce6d47778c3c /lisp | |
| parent | 5d64d7704ec60bcc95084173336851c5822f8ca5 (diff) | |
| download | emacs-6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7.tar.gz emacs-6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7.tar.bz2 emacs-6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7.zip | |
Support mouse wheel in TTY menus.
lisp/menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
menu navigations commands.
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) |