diff options
| author | Juri Linkov | 2021-12-08 22:31:55 +0200 |
|---|---|---|
| committer | Juri Linkov | 2021-12-08 22:31:55 +0200 |
| commit | 00d107ebead8d710cbe339d9af717e6eb2f9f2ff (patch) | |
| tree | 97be49f694ee934bc8d0ebccbbb3385144d30f40 | |
| parent | 6cf358d7a270ce6fc7d032187fe042a9bf234240 (diff) | |
| download | emacs-00d107ebead8d710cbe339d9af717e6eb2f9f2ff.tar.gz emacs-00d107ebead8d710cbe339d9af717e6eb2f9f2ff.zip | |
* lisp/mouse.el (context-menu-entry): Bind to make-sparse-keymap, not ignore.
Then where-is-internal does not run context-menu-map from the :filter,
and no context menu functions are called by e.g. describe-mode in wrong buffer
(bug#9923)
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 459cce4cd97..13dda5ca883 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -524,7 +524,7 @@ Some context functions add menu items below the separator." | |||
| 524 | menu) | 524 | menu) |
| 525 | 525 | ||
| 526 | (defvar context-menu-entry | 526 | (defvar context-menu-entry |
| 527 | `(menu-item ,(purecopy "Context Menu") ignore | 527 | `(menu-item ,(purecopy "Context Menu") ,(make-sparse-keymap) |
| 528 | :filter (lambda (_) (context-menu-map))) | 528 | :filter (lambda (_) (context-menu-map))) |
| 529 | "Menu item that creates the context menu and can be bound to a mouse key.") | 529 | "Menu item that creates the context menu and can be bound to a mouse key.") |
| 530 | 530 | ||