'minor-mode-menu-from-indicator' now display full minor mode.

When there is no menu for a mode, display the mode name after the
indicator instead of just the indicator (which is sometime cryptic).
Ex:
before : SP
now    : SP - Smartparens Mode

* etc/NEWS: Add en entry for this new feature.
* lisp/mouse.el (minor-mode-menu-from-indicator): Append the mode name
  after the indicator when there is no menu defined by the mode.

diff --git a/etc/NEWS b/etc/NEWS
index 8d413cccd49bde554a48a4a9de3c59fadda20f67..4f0125c1734cbdb970684cfe3a9ba287f48b0a8b 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -864,11 +864,18 @@ UUID at point.
 
 
 ** Interactive automatic highlighting
-
 +++
 *** 'highlight-regexp' can now highlight subexpressions.
 The now command accepts a prefix numeric argument to choose the
 subexpression.
+** Mouse display major mode menu
++++
+*** 'minor-mode-menu-from-indicator' now display full minor mode.
+When there is no menu for a mode, display the mode name after the
+indicator instead of just the indicator (which is sometime cryptic).
+Ex:
+before : SP
+now    : SP - Smartparens Mode
 
 \f
 * New Modes and Packages in Emacs 27.1

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 7efe751ab6b9c160732794c8fbc3e004b7a02768..ca61e36440758a4da19add25862b1d191696abaf 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -171,7 +171,10 @@ items `Turn Off' and `Help'."
                 (mouse-menu-non-singleton menu)
               (if (fboundp mm-fun)      ; bug#20201
                   `(keymap
-                    ,indicator
+                    ,(format "%s - %s" indicator
+                            (capitalize
+                             (replace-regexp-in-string
+                              "-" " " (format "%S" minor-mode))))
                     (turn-off menu-item "Turn off minor mode" ,mm-fun)
                     (help menu-item "Help for minor mode"
                           (lambda () (interactive)