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 ea25c557a51d7f398e40688efd98ad48fcde8a3a..ec92c2b5c29a7b7181fc268f1f0672f3075e0419 100644 (file)
--- 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 7a53f968d695862b9cf4352952473f17e9ff9ec3..368fb289c3670dae4bf2a16be0bc3d97e72bef3e 100644 (file)
--- 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)