# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1206143944 0
# Node ID c3e303fc7a15e2e78064b7566b79cceafdde24c0
# Parent  4e8466e2b7c45c28048f752b1f2e6095a3dacc3d
(standard-mode-line-modes): Put special help-echo
tooltip on recursive edit %[ %] mode-line constructs.

diff -r 4e8466e2b7c4 -r c3e303fc7a15 lisp/bindings.el
--- a/lisp/bindings.el	Fri Mar 21 23:58:06 2008 +0000
+++ b/lisp/bindings.el	Fri Mar 21 23:59:04 2008 +0000
@@ -345,7 +345,8 @@
 	 (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-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