diff options
| author | Juri Linkov <juri@linkov.net> | 2021-09-28 22:00:41 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-09-28 22:00:41 +0300 |
| commit | 2d1564103e2024eeb4377b473f28e1523a5206bc (patch) | |
| tree | 6eac22fc5347b4b968e2089b87eedb2975457c35 /lisp/help.el | |
| parent | 7cc6e1dda73946c9a75e50a198bdbce0cd19cd4d (diff) | |
| download | emacs-2d1564103e2024eeb4377b473f28e1523a5206bc.tar.gz emacs-2d1564103e2024eeb4377b473f28e1523a5206bc.tar.bz2 emacs-2d1564103e2024eeb4377b473f28e1523a5206bc.zip | |
* lisp/mouse.el (context-menu-map): Fix when menu is a command (bug#50851)
* lisp/help.el (help--analyze-key): Get information at the position
of mouse click such as 'C-h k' on a context menu item (bug#50067).
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 8f771670408..b794751ecab 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -695,7 +695,7 @@ Returns a list of the form (BRIEF-DESC DEFN EVENT MOUSE-MSG)." (mouse-msg (if (or (memq 'click modifiers) (memq 'down modifiers) (memq 'drag modifiers)) " at that spot" "")) - (defn (key-binding key t))) + (defn (save-excursion (mouse-set-point event) (key-binding key t)))) ;; Handle the case where we faked an entry in "Select and Paste" menu. (when (and (eq defn nil) (stringp (aref key (1- (length key)))) |