# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1029931509 0
# Node ID d6d4b34f5ef8bf2f22e41b597d7b80de3b0ac5a2
# Parent  ea387a07a37b40814b3b1e1e5b32c9068b27a055
(mode-line-format): Moved global-mode-string last.
(mode-line-position): Moved %p first.  Added padding to %l/%c to
eliminate jumpyness in modeline.  Use (%l,%c) format if both
line-number-mode and column-number-mode are enabled.

diff -r ea387a07a37b -r d6d4b34f5ef8 lisp/bindings.el
--- a/lisp/bindings.el	Wed Aug 21 12:04:42 2002 +0000
+++ b/lisp/bindings.el	Wed Aug 21 12:05:09 2002 +0000
@@ -248,13 +248,12 @@
      'mode-line-frame-identification
      'mode-line-buffer-identification
      (propertize "   " 'help-echo help-echo)
-     'global-mode-string
-     `(global-mode-string ,(propertize "   " 'help-echo help-echo))
      'mode-line-position
      '(vc-mode vc-mode)
      (propertize "   " 'help-echo help-echo)
      'mode-line-modes
      `(which-func-mode ("" which-func-format ,dashes))
+     `(global-mode-string (,dashes global-mode-string))
      (propertize "-%-" 'help-echo help-echo)))
 
   (setq-default mode-line-modes
@@ -269,9 +268,13 @@
      (propertize ")%]--" 'help-echo help-echo)))
 
   (setq-default mode-line-position
-    `((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)))))
+    `((-3 . ,(propertize "%p" 'help-echo help-echo))
+      (line-number-mode 
+       ((column-number-mode
+	 (10 ,(propertize " (%l,%c)" 'help-echo help-echo))
+	 (6 ,(propertize " L%l" 'help-echo help-echo))))
+       ((column-number-mode
+	 (5 ,(propertize " C%c" 'help-echo help-echo))))))))
 
 (defvar mode-line-buffer-identification-keymap nil "\
 Keymap for what is displayed by `mode-line-buffer-identification'.")