procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix help commands for menu-bar menus

Browse source 
* lisp/help.el (help--analyze-key): Fix "C-h c" and "C-h k" on
menu-bar menu items.  (Bug#51421)
This commit is contained in:
Eli Zaretskii 2021-10-27 16:09:47 +03:00
parent 9589be772d
commit 492b927909
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/help.el
View file

@ -701,7 +701,13 @@ in the selected window."
;; is selected from the context menu that should describe KEY ;; is selected from the context menu that should describe KEY
;; at the position of mouse click that opened the context menu. ;; at the position of mouse click that opened the context menu.
;; When no mouse was involved, don't use `mouse-set-point'. ;; When no mouse was involved, don't use `mouse-set-point'.
(defn (if buffer (key-binding key t) (defn (if (or buffer
;; Clicks on the menu bar produce "event" that
;; is just '(menu-bar)', for which
;; `mouse-set-point' is not useful.
(and (not (windowp (posn-window (event-start event))))
(not (framep (posn-window (event-start event))))))
(key-binding key t)
(save-excursion (mouse-set-point event) (key-binding key t))))) (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)