From 2ef6aac8459a81178aaaa2074a9b20e5bc0fbaa1 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 21 Aug 2002 12:05:09 +0000 Subject: [PATCH] (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. --- lisp/bindings.el | 13 ++++++++----- 1 file 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'.") -- 2.39.5