Mercurial > emacs

comparison lisp/bindings.el @ 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 f0c8da8c1856
children 110ec10bd1ea
comparison
equal deleted inserted replaced
46990:ea387a07a37b 46991:d6d4b34f5ef8
246 'mode-line-mule-info 246 'mode-line-mule-info
247 'mode-line-modified 247 'mode-line-modified
248 'mode-line-frame-identification 248 'mode-line-frame-identification
249 'mode-line-buffer-identification 249 'mode-line-buffer-identification
250 (propertize " " 'help-echo help-echo) 250 (propertize " " 'help-echo help-echo)
251 'global-mode-string
252 `(global-mode-string ,(propertize " " 'help-echo help-echo))
253 'mode-line-position 251 'mode-line-position
254 '(vc-mode vc-mode) 252 '(vc-mode vc-mode)
255 (propertize " " 'help-echo help-echo) 253 (propertize " " 'help-echo help-echo)
256 'mode-line-modes 254 'mode-line-modes
257 `(which-func-mode ("" which-func-format ,dashes)) 255 `(which-func-mode ("" which-func-format ,dashes))
256 `(global-mode-string (,dashes global-mode-string))
258 (propertize "-%-" 'help-echo help-echo))) 257 (propertize "-%-" 'help-echo help-echo)))
259 258
260 (setq-default mode-line-modes 259 (setq-default mode-line-modes
261 (list 260 (list
262 (propertize "%[(" 'help-echo help-echo) 261 (propertize "%[(" 'help-echo help-echo)
267 'local-map (make-mode-line-mouse-map 266 'local-map (make-mode-line-mouse-map
268 'mouse-2 #'mode-line-widen)) 267 'mouse-2 #'mode-line-widen))
269 (propertize ")%]--" 'help-echo help-echo))) 268 (propertize ")%]--" 'help-echo help-echo)))
270 269
271 (setq-default mode-line-position 270 (setq-default mode-line-position
272 `((line-number-mode (,(propertize "L%l " 'help-echo help-echo))) 271 `((-3 . ,(propertize "%p" 'help-echo help-echo))
273 (column-number-mode (,(propertize "C%c " 'help-echo help-echo))) 272 (line-number-mode
274 (-3 . ,(propertize "%p" 'help-echo help-echo))))) 273 ((column-number-mode
274 (10 ,(propertize " (%l,%c)" 'help-echo help-echo))
275 (6 ,(propertize " L%l" 'help-echo help-echo))))
276 ((column-number-mode
277 (5 ,(propertize " C%c" 'help-echo help-echo))))))))
275 278
276 (defvar mode-line-buffer-identification-keymap nil "\ 279 (defvar mode-line-buffer-identification-keymap nil "\
277 Keymap for what is displayed by `mode-line-buffer-identification'.") 280 Keymap for what is displayed by `mode-line-buffer-identification'.")
278 281
279 (defun last-buffer () "\ 282 (defun last-buffer () "\