Support mouse wheel in TTY menus.

 lisp/menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
 menu navigations commands.

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)