From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Nov 1995 17:10:58 +0000 (+0000)
Subject: (mode-line-format): Modify it, don't override it entirely.
X-Git-Tag: emacs-19.34~2388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64852bcde8fd86a3411b719ff18dc0ef0a5f867b;p=emacs.git

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

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 ";")