# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206298494 0
# Node ID e3b492a971e157e8fe5d6aa23f96a3fb9725bf2b
# Parent  22d835ffa8f724392119a6b0c14c902c0ba291a4
(standard-mode-line-modes): Avoid duplicating a string.

diff -r 22d835ffa8f7 -r e3b492a971e1 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Mar 23 18:15:35 2008 +0000
+++ b/lisp/ChangeLog	Sun Mar 23 18:54:54 2008 +0000
@@ -1,5 +1,7 @@
 2008-03-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* bindings.el (standard-mode-line-modes): Avoid duplicating a string.
+
 	* vc-cvs.el (vc-cvs-parse-status): Note there are problems with
 	subdirectories.
 
diff -r 22d835ffa8f7 -r e3b492a971e1 lisp/bindings.el
--- a/lisp/bindings.el	Sun Mar 23 18:15:35 2008 +0000
+++ b/lisp/bindings.el	Sun Mar 23 18:54:54 2008 +0000
@@ -324,6 +324,7 @@
 	"mouse-1: Select (drag to resize)\n\
 mouse-2: Make current window occupy the whole frame\n\
 mouse-3: Remove current window from display")
+       (recursive-edit-help-echo "Recursive edit, type C-M-c to get out")
        (dashes (propertize "--" 'help-echo help-echo))
        (standard-mode-line-format
 	(list
@@ -345,7 +346,7 @@
 	 (propertize "-%-" 'help-echo help-echo)))
        (standard-mode-line-modes
 	(list
-	 (propertize "%[" 'help-echo "Recursive edit, type C-M-c to get out")
+	 (propertize "%[" 'help-echo recursive-edit-help-echo)
 	 (propertize "(" 'help-echo help-echo)
 	 `(:propertize ("" mode-name)
 		       help-echo "Major mode\n\
@@ -367,7 +368,7 @@
 		     'local-map (make-mode-line-mouse-map
 				 'mouse-2 #'mode-line-widen))
 	 (propertize ")" 'help-echo help-echo)
-	 (propertize "%]" 'help-echo "Recursive edit, type C-M-c to get out")
+	 (propertize "%]" 'help-echo recursive-edit-help-echo)
 	 (propertize "--" 'help-echo help-echo)))
 
        (standard-mode-line-position