(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.

1 files changed, 6 insertions, 4 deletions

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 139232ea0ec..00fbfb59e1f 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -249,14 +249,16 @@ Keymap to display on major and minor modes.")
      '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 @@ Keymap to display on major and minor modes.")
      (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 "\