diff options
| author | Richard M. Stallman | 1995-11-10 17:10:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-10 17:10:58 +0000 |
| commit | 64852bcde8fd86a3411b719ff18dc0ef0a5f867b (patch) | |
| tree | d84aea4bf5bd44f8e459a9e495efa75dbbc02909 | |
| parent | 80c1bbc61f6509ad54a9c1611b612ff1f95f320e (diff) | |
| download | emacs-64852bcde8fd86a3411b719ff18dc0ef0a5f867b.tar.gz emacs-64852bcde8fd86a3411b719ff18dc0ef0a5f867b.zip | |
(mode-line-format): Modify it, don't override it entirely.
| -rw-r--r-- | lisp/dos-fns.el | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 83918c88da6..4f60325d083 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -27,20 +27,10 @@ | |||
| 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 ";") |