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 | 4046bc901850a471da3a9cbbf4e34edf2283f2d2 (patch) | |
| tree | 606d3aa83a5ecbaac04d87e8ac328b9ab38ac9e6 /lisp/dos-fns.el | |
| parent | aded2645b6ec105fe3907b72899cccd9e4501713 (diff) | |
| download | emacs-4046bc901850a471da3a9cbbf4e34edf2283f2d2.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 ";") |