(mode-line-format): Modify it, don't override it entirely.

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 83918c88da6db2a97dea3023f60d0cbe6edd59bf..4f60325d0830a0b80d0666a8ac0c34c0eda5ee53 100644 (file)
--- 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 ";")