diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2013-09-25 17:51:39 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2013-09-25 17:51:39 +0300 |
| commit | e648f6997511f3a4cabc338783e61ad076074859 (patch) | |
| tree | 6852858ba974f0a2a047b59782d7bae660cbe395 /lisp/menu-bar.el | |
| parent | aa36c6d0c478a756cc0a9aca796cbf431be773ee (diff) | |
| download | emacs-e648f6997511f3a4cabc338783e61ad076074859.tar.gz | |
Read mouse movement via read_menu_command.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 37cbd9f0490..70be2587b10 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -2295,10 +2295,14 @@ If nil, the current mouse position is used." (define-key map [mode-line C-mouse-1] 'tty-menu-ignore) (define-key map [mode-line C-mouse-2] 'tty-menu-ignore) (define-key map [mode-line C-mouse-3] 'tty-menu-ignore) + ;; The mouse events must be bound to tty-menu-ignore, otherwise + ;; the initial mouse click will select and immediately pop down + ;; the menu. (define-key map [mouse-1] 'tty-menu-ignore) (define-key map [C-mouse-1] 'tty-menu-ignore) (define-key map [C-mouse-2] 'tty-menu-ignore) (define-key map [C-mouse-3] 'tty-menu-ignore) + (define-key map [mouse-movement] 'tty-menu-mouse-movement) map) "Keymap used while processing TTY menus.") |