changeset 46724:378639c31552

(mode-line-format): Handle vc-mode specially. Move mode-line-position to after global-mode-string. (mode-line-modes): Move the starting 3 spaces out of here. (mode-line-position): Separate with a space, not dashes.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jul 2002 02:45:49 +0000
parents 2d147caabf88
children 23e238634b44
files lisp/bindings.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Mon Jul 29 02:40:40 2002 +0000
+++ b/lisp/bindings.el	Mon Jul 29 02:45:49 2002 +0000
@@ -249,14 +249,16 @@
      'mode-line-buffer-identification
      (propertize "   " 'help-echo help-echo)
      'global-mode-string
+     'mode-line-position
+     '(vc-mode vc-mode)
+     (propertize "   " 'help-echo help-echo)
      'mode-line-modes
      `(which-func-mode ("" which-func-format ,dashes))
-     'mode-line-position
      (propertize "-%-" 'help-echo help-echo)))
 
   (setq-default mode-line-modes
     (list
-     (propertize "   %[(" 'help-echo help-echo)
+     (propertize "%[(" 'help-echo help-echo)
      `(:propertize ("" mode-name mode-line-process minor-mode-alist)
 		   help-echo "mouse-3: minor mode menu"
 		   local-map ,mode-line-minor-mode-keymap)
@@ -266,8 +268,8 @@
      (propertize ")%]--" 'help-echo help-echo)))
 
   (setq-default mode-line-position
-    `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes))
-      (column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes))
+    `((line-number-mode (,(propertize "L%l " 'help-echo help-echo)))
+      (column-number-mode (,(propertize "C%c " 'help-echo help-echo)))
       (-3 . ,(propertize "%p" 'help-echo help-echo)))))
 
 (defvar mode-line-buffer-identification-keymap nil "\