(standard-mode-line-modes): Avoid duplicating a string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c0c3fec8b6df273d2a34e4c6c3855988d8589ab..226eec3fb141bff25704b2ff5e774f51790192d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/bindings.el b/lisp/bindings.el
index 2742e2e4d16494943275f4ff7697bb6f5bd3c1de..3c1147cc32d31050c76a6947a9b183a690453248 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -324,6 +324,7 @@ Keymap to display on column and line numbers.")
        "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 @@ mouse-3: Remove current window from display")
         (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 @@ mouse-3: Toggle minor modes"
                     '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