Mercurial > emacs

changeset 46991:d6d4b34f5ef8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Kim F. Storm <storm@cua.dk>
date Wed, 21 Aug 2002 12:05:09 +0000
parents ea387a07a37b
children 6529728ddf05
files lisp/bindings.el
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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'.")