Mercurial > emacs

changeset 13472:c51fb9c4c780

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-format): Modify it, don't override it entirely.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Nov 1995 17:10:58 +0000
parents 0fe6457bc953
children 4492ba9a0757
files lisp/dos-fns.el
diffstat 1 files changed, 4 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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 ";")