(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 --git a/lisp/bindings.el b/lisp/bindings.el
index ccc162f99aa40cd26066d47fdb94ecbb8686bfa4..a9da9333f010842d14b51620774ec048ccdb7064 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -248,13 +248,12 @@ Keymap to display on major and minor modes.")
      '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 @@ 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)))
-      (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'.")