(standard-mode-line-modes): Put special help-echo

tooltip on recursive edit %[ %] mode-line constructs.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4b40a00f4f5..2742e2e4d16 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -345,7 +345,8 @@ mouse-3: Remove current window from display")
          (propertize "-%-" 'help-echo help-echo)))
        (standard-mode-line-modes
         (list
-         (propertize "%[(" 'help-echo help-echo)
+         (propertize "%[" 'help-echo "Recursive edit, type C-M-c to get out")
+         (propertize "(" 'help-echo help-echo)
          `(:propertize ("" mode-name)
                        help-echo "Major mode\n\
 mouse-1: Display major mode menu\n\
@@ -365,7 +366,9 @@ mouse-3: Toggle minor modes"
                      'mouse-face 'mode-line-highlight
                      'local-map (make-mode-line-mouse-map
                                  'mouse-2 #'mode-line-widen))
-         (propertize ")%]--" 'help-echo help-echo)))
+         (propertize ")" 'help-echo help-echo)
+         (propertize "%]" 'help-echo "Recursive edit, type C-M-c to get out")
+         (propertize "--" 'help-echo help-echo)))
 
        (standard-mode-line-position
         `((-3 ,(propertize