[Emacs-diffs] trunk r114673: Support mouse wheel in TTY menus.

[Eli Zaretskii]

------------------------------------------------------------
revno: 114673
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Tue 2013-10-15 21:40:22 +0300
message:
  Support mouse wheel in TTY menus.
  
   lisp/menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
   menu navigations commands.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/menu-bar.el               menubar.el-20091113204419-o5vbwnq5f7feedwu-546

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-14 19:20:29 +0000
+++ b/lisp/ChangeLog    2013-10-15 18:40:22 +0000
@@ -1,3 +1,8 @@
+2013-10-15  Eli Zaretskii  <address@hidden>
+
+       * menu-bar.el (tty-menu-navigation-map): Bind mouse wheels to TTY
+       menu navigations commands.
+
 2013-10-14  Dima Kogan  <address@hidden>  (tiny change)
 
        * progmodes/subword.el (subword-capitalize): Be careful when

=== modified file 'lisp/menu-bar.el'
--- a/lisp/menu-bar.el  2013-10-14 15:37:12 +0000
+++ b/lisp/menu-bar.el  2013-10-15 18:40:22 +0000
@@ -2341,6 +2341,10 @@
     (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)