From 39d0516b55e49c1f54b33e72204ae52105298691 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 23 Mar 2008 18:54:54 +0000 Subject: [PATCH] (standard-mode-line-modes): Avoid duplicating a string. --- lisp/ChangeLog | 2 ++ lisp/bindings.el | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c0c3fec8b6..226eec3fb14 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-03-23 Dan Nicolaescu + * 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 2742e2e4d16..3c1147cc32d 100644 --- 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 -- 2.39.2