diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-10 17:10:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-10 17:10:58 +0000 |
| commit | 64852bcde8fd86a3411b719ff18dc0ef0a5f867b (patch) | |
| tree | d84aea4bf5bd44f8e459a9e495efa75dbbc02909 /lisp/dos-fns.el | |
| parent | 80c1bbc61f6509ad54a9c1611b612ff1f95f320e (diff) | |
| download | emacs-64852bcde8fd86a3411b719ff18dc0ef0a5f867b.tar.gz | |
(mode-line-format): Modify it, don't override it entirely.
Diffstat (limited to 'lisp/dos-fns.el')
| -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 @@ ;;; Code: -(setq-default mode-line-format - (list (purecopy "") - 'mode-line-modified - 'mode-line-buffer-identification - (purecopy " ") - 'global-mode-string - (purecopy " %[(") - (purecopy "%t:") - 'mode-name 'mode-line-process 'minor-mode-alist - (purecopy "%n") - (purecopy ")%]--") - (purecopy '(line-number-mode "L%l--")) - (purecopy '(-3 . "%p")) - (purecopy "-%-"))) +;;; Add %t: into the mode line format just after the open-paren. +(let ((tail (assoc " %[(" mode-line-format))) + (setcdr tail (cons (purecopy "%t:") + (cdr tail)))) ;; Use ";" instead of ":" as a path separator (from files.el). (setq path-separator ";") |