Mercurial > emacs

comparison lisp/dos-fns.el @ 13472:c51fb9c4c780

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-format): Modify it, don't override it entirely.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Nov 1995 17:10:58 +0000
parents 5ff133dbb12f
children 5cff4081b8a6
comparison
equal deleted inserted replaced
13471:0fe6457bc953 13472:c51fb9c4c780
25 25
26 ;; Part of this code is taken from (or derived from) demacs. 26 ;; Part of this code is taken from (or derived from) demacs.
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (setq-default mode-line-format 30 ;;; Add %t: into the mode line format just after the open-paren.
31 (list (purecopy "") 31 (let ((tail (assoc " %[(" mode-line-format)))
32 'mode-line-modified 32 (setcdr tail (cons (purecopy "%t:")
33 'mode-line-buffer-identification 33 (cdr tail))))
34 (purecopy " ")
35 'global-mode-string
36 (purecopy " %[(")
37 (purecopy "%t:")
38 'mode-name 'mode-line-process 'minor-mode-alist
39 (purecopy "%n")
40 (purecopy ")%]--")
41 (purecopy '(line-number-mode "L%l--"))
42 (purecopy '(-3 . "%p"))
43 (purecopy "-%-")))
44 34
45 ;; Use ";" instead of ":" as a path separator (from files.el). 35 ;; Use ";" instead of ":" as a path separator (from files.el).
46 (setq path-separator ";") 36 (setq path-separator ";")
47 37
48 ;; Set the null device (for compile.el). 38 ;; Set the null device (for compile.el).