mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

; * lisp/help.el (help--analyze-key): Add comment.

Browse Source
This commit is contained in:
Juri Linkov 2021-09-30 10:04:20 +03:00
parent ad27c4c663
commit a20e013d56
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/help.el
View File

@ -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) (mouse-msg (if (or (memq 'click modifiers) (memq 'down modifiers)
(memq 'drag modifiers)) (memq 'drag modifiers))
" at that spot" "")) " 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)))) (defn (save-excursion (mouse-set-point event) (key-binding key t))))
;; Handle the case where we faked an entry in "Select and Paste" menu. ;; Handle the case where we faked an entry in "Select and Paste" menu.
(when (and (eq defn nil) (when (and (eq defn nil)