Commit 64852bcd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 80c1bbc6
......@@ -27,20 +27,10 @@
;;; Code:
(setq-default mode-line-format
(list (purecopy "")
(purecopy " ")
(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 ";")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment