* 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.

diff --git a/etc/NEWS b/etc/NEWS
index cc779b40f45512c5957158a34656f366051271c0..b221f1362416f83a5c2f04a10bc765ce72308ac3 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -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.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 54240397001d9ae1966f2d952e749124cc5c2c85..d2a5200d8de3d437797ed3b517c5d7ff5b26e883 100644 (file)
--- 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)