Mercurial > emacs

changeset 93135:c3e303fc7a15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(standard-mode-line-modes): Put special help-echo tooltip on recursive edit %[ %] mode-line constructs.
author Juri Linkov <juri@jurta.org>
date Fri, 21 Mar 2008 23:59:04 +0000
parents 4e8466e2b7c4
children 56129728bb04
files lisp/bindings.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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