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

* lisp/mouse.el: More fixes for context-menu.

Browse source 
(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.
This commit is contained in:
Juri Linkov 2021-08-18 20:01:03 +03:00
parent 0d5ff75e94
commit 1a4ed8ee78
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/NEWS
View file

@ -396,9 +396,8 @@ onto 'file-name-history'.
*** New minor mode 'context-menu-mode' for context menus popped by 'mouse-3'.
When this mode is enabled, clicking 'down-mouse-3' anywhere in the buffer
pops up a menu whose contents depends on surrounding context near the
mouse click. You can customize the order of the default sub-menus in
the context menu by customizing the user option
'context-menu-functions'.
mouse click. You can change the order of the default sub-menus in the
context menu by customizing the user option 'context-menu-functions'.
+++
*** The "Edit => Clear" menu item now obeys a rectangular region.

4
lisp/mouse.el
View file

@ -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)