From: Juri Linkov <juri@jurta.org>
Date: Fri, 21 Mar 2008 23:59:04 +0000 (+0000)
Subject: (standard-mode-line-modes): Put special help-echo
X-Git-Tag: emacs-pretest-23.0.90~6998
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7fd8c465fe49e61ae228548c7abb4b6616135cf;p=emacs.git

(standard-mode-line-modes): Put special help-echo
tooltip on recursive edit %[ %] mode-line constructs.
---

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