diff options
| author | Juri Linkov <juri@linkov.net> | 2021-09-30 10:04:20 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-09-30 10:05:00 +0300 |
| commit | a20e013d56fc6ab6e63fea84e48af873cb1cf1c9 (patch) | |
| tree | 88f8fcd90910596d0534a0c8ed2319f88437b4ed /lisp/help.el | |
| parent | ad27c4c66344f2a61bee8fbf2db3bf721894e38f (diff) | |
| download | emacs-a20e013d56fc6ab6e63fea84e48af873cb1cf1c9.tar.gz emacs-a20e013d56fc6ab6e63fea84e48af873cb1cf1c9.tar.bz2 emacs-a20e013d56fc6ab6e63fea84e48af873cb1cf1c9.zip | |
; * lisp/help.el (help--analyze-key): Add comment.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/help.el b/lisp/help.el index 02e9b9e8e46..eaca33795ae 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -695,6 +695,10 @@ 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" "")) + ;; Use mouse-set-point to handle the case when a menu item + ;; is selected from the context menu that should describe KEY + ;; at the position of mouse click that opened the context menu. + ;; When no mouse was involved, it defaults to window-point. (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) |