From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Jul 2002 02:45:49 +0000 (+0000)
Subject: (mode-line-format): Handle vc-mode specially.
X-Git-Tag: ttn-vms-21-2-B4~13829
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c347bc85b209a63a2706fb8dbd3ca9f4a479e78;p=emacs.git

(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 --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 "\