# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816023458 0
# Node ID c51fb9c4c780ad21d1d48a68d107b6cbb49f9c0a
# Parent  0fe6457bc9531b252c53453cbb4cf97319ef3e01
(mode-line-format): Modify it, don't override it entirely.

diff -r 0fe6457bc953 -r c51fb9c4c780 lisp/dos-fns.el
--- a/lisp/dos-fns.el	Fri Nov 10 17:09:45 1995 +0000
+++ b/lisp/dos-fns.el	Fri Nov 10 17:10:58 1995 +0000
@@ -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 ";")