diff options
| author | Juri Linkov <juri@linkov.net> | 2021-08-18 20:01:03 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-08-18 20:01:03 +0300 |
| commit | 1a4ed8ee7843b7cb929f066781a4a754bebf0f4d (patch) | |
| tree | 8b6a055b8ae9462211b3c9ab664ac9eb1a0f7c2f /lisp | |
| parent | 0d5ff75e944e765dce0e3a93ebdefa4fb6d5f356 (diff) | |
| download | emacs-1a4ed8ee7843b7cb929f066781a4a754bebf0f4d.tar.gz | |
* lisp/mouse.el: More fixes for context-menu.
(context-menu-map): Remove menu title "Context Menu" (bug#50067).
(context-menu-minor): Reverse sub-menus to display exactly in the same order
as on the menu bar.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 54240397001..d2a5200d8de 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -304,7 +304,7 @@ the same menu with changes such as added new menu items." (defun context-menu-map () "Return composite menu map." - (let ((menu (make-sparse-keymap "Context Menu"))) + (let ((menu (make-sparse-keymap))) (run-hook-wrapped 'context-menu-functions (lambda (fun) (setq menu (funcall fun menu)) @@ -341,7 +341,7 @@ the same menu with changes such as added new menu items." "Minor modes submenus." (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) (define-key-after menu [separator-minor] menu-bar-separator) - (dolist (mode (minor-mode-key-binding [menu-bar])) + (dolist (mode (reverse (minor-mode-key-binding [menu-bar]))) (when (and (consp mode) (symbol-value (car mode))) (map-keymap (lambda (key binding) (when (consp binding) |