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 | d4c878b4b78c87fa2c3b370e42cde84430d3df9d (patch) | |
| tree | 54022ac6e7642d1d8f39b9847fb165d91b3845d5 /lisp/bindings.el | |
| parent | b856446919ae0513289bcc7571d2c72d7387f63e (diff) | |
| download | emacs-d4c878b4b78c87fa2c3b370e42cde84430d3df9d.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.
Diffstat (limited to 'lisp/bindings.el')
| -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'.") |