From 4544e9dbee944cfef164396717f83f8c43ac421c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 May 1997 04:02:49 +0000 Subject: [PATCH] (mode-line-mule-info): Delete the colon. (mode-line-buffer-identification): Delete %F:. (mode-line-frame-identification): New variable. (mode-line-format): Use mode-line-frame-identification. Start with a dash. (mode-line-modified): Delete the final dash. --- lisp/bindings.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index 36682a847b3..a3d795952fb 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -50,34 +50,37 @@ (defconst mode-line-mule-info (purecopy '(enable-multibyte-characters ((current-input-method ("[" current-input-method-title "]")) - "%z:"))) + "%z"))) "Mode-line control for displaying information of multilingual environment.") (make-variable-buffer-local 'mode-line-mule-info) -(defvar mode-line-buffer-identification (purecopy '("%F: %12b")) +(defvar mode-line-buffer-identification (purecopy '("%12b")) "Mode-line control for identifying the buffer being displayed. -Its default value is (\"%F: %12b\"). Under X, `%F' is replaced with `Emacs'. +Its default value is (\"%12b\"). Major modes that edit things other than ordinary files may change this \(e.g. Info, Dired,...)") (make-variable-buffer-local 'mode-line-buffer-identification) +(defvar mode-line-frame-identification '("-%F ")) + (defvar mode-line-process nil "Mode-line control for displaying info on process status. Normally nil in most modes, since there is no process to display.") (make-variable-buffer-local 'mode-line-process) -(defvar mode-line-modified (purecopy '("--%1*%1+-")) +(defvar mode-line-modified (purecopy '("--%1*%1+")) "Mode-line control for displaying whether current buffer is modified.") (make-variable-buffer-local 'mode-line-modified) (setq-default mode-line-format - (list (purecopy "") + (list (purecopy "-") 'mode-line-mule-info 'mode-line-modified + 'mode-line-frame-identification 'mode-line-buffer-identification (purecopy " ") 'global-mode-string -- 2.39.2