Mercurial > emacs
changeset 93161:e3b492a971e1
(standard-mode-line-modes): Avoid duplicating a string.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 23 Mar 2008 18:54:54 +0000 |
| parents | 22d835ffa8f7 |
| children | 9ad0e809937c |
| files | lisp/ChangeLog lisp/bindings.el |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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