diff options
author | Juri Linkov <juri@linkov.net> | 2022-02-17 20:28:43 +0200 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2022-02-17 20:28:43 +0200 |
commit | 3d0f5bc219de43ebd1789882bad483720d581a4e (patch) | |
tree | 8c9a33f76d299b0c07a6a252f6d84a5b4192aa2c /lisp/mouse.el | |
parent | 09ba81f1d26b605c4334c82044b40608a5486c33 (diff) | |
download | emacs-3d0f5bc219de43ebd1789882bad483720d581a4e.tar.gz |
* lisp/mouse.el (context-menu-entry): Don't create menu for Help commands.
Help commands that describe keybindings call context-menu-entry bound to
a key. This causes too much trouble when trying to build the context menu
in a temporary Help buffer that is not displayed in a window.
OTOH, there is no information in context menus useful for Help commands.
So `help-buffer-under-preparation' is added to filter out such calls.
(bug#53910)
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 1e205283de2..da2ca1c0360 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -541,7 +541,9 @@ Some context functions add menu items below the separator." (defvar context-menu-entry `(menu-item ,(purecopy "Context Menu") ,(make-sparse-keymap) - :filter ,(lambda (_) (context-menu-map))) + :filter ,(lambda (_) (unless help-buffer-under-preparation + ;; No need to build menu to describe keys + (context-menu-map)))) "Menu item that creates the context menu and can be bound to a mouse key.") (defvar context-menu-mode-map |