# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027910749 0
# Node ID 378639c31552dfaca085ec4fcb66bb64a5123bc9
# Parent  2d147caabf88cbd343389848acfb48bba3cd8b10
(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.

diff -r 2d147caabf88 -r 378639c31552 lisp/bindings.el
--- 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 "\