From 64852bcde8fd86a3411b719ff18dc0ef0a5f867b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 10 Nov 1995 17:10:58 +0000 Subject: [PATCH] (mode-line-format): Modify it, don't override it entirely. --- lisp/dos-fns.el | 18 ++++-------------- 1 file 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 ";") -- 2.39.2