[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114673: Support mouse wheel in TTY menus.
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] trunk r114673: Support mouse wheel in TTY menus. |
Date: |
Tue, 15 Oct 2013 18:41:00 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114673: Support mouse wheel in TTY menus.,
Eli Zaretskii <=