Mercurial > emacs
diff lisp/bindings.el @ 46991:d6d4b34f5ef8
(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 | f0c8da8c1856 |
children | 110ec10bd1ea |
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'.")