diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-08-21 12:05:09 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-08-21 12:05:09 +0000 |
| commit | 2ef6aac8459a81178aaaa2074a9b20e5bc0fbaa1 (patch) | |
| tree | b2d59146f68910808bcfa987ee16b641ad258b72 | |
| parent | 88a0d95abde0c9b61cbf4b0a33d0c0a98a0e42d6 (diff) | |
| download | emacs-2ef6aac8459a81178aaaa2074a9b20e5bc0fbaa1.tar.gz | |
(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.
| -rw-r--r-- | lisp/bindings.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index ccc162f99aa..a9da9333f01 100644 --- 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'.") |