[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a20e013: ; * lisp/help.el (help--analyze-key): Add comment.
From: |
Juri Linkov |
Subject: |
master a20e013: ; * lisp/help.el (help--analyze-key): Add comment. |
Date: |
Thu, 30 Sep 2021 03:05:36 -0400 (EDT) |
branch: master
commit a20e013d56fc6ab6e63fea84e48af873cb1cf1c9
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
; * lisp/help.el (help--analyze-key): Add comment.
---
lisp/help.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lisp/help.el b/lisp/help.el
index 02e9b9e..eaca337 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a20e013: ; * lisp/help.el (help--analyze-key): Add comment.,
Juri Linkov <=