diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-15 04:02:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-15 04:02:49 +0000 |
| commit | 3876cf0163bfc50679a8f24051a787ca3091d1eb (patch) | |
| tree | 8a8b4116bd0f23874aa16be42a553b0f67c468e7 /lisp/bindings.el | |
| parent | 656764291373fa19ba4bf860c433db9544cb3bbe (diff) | |
| download | emacs-3876cf0163bfc50679a8f24051a787ca3091d1eb.tar.gz | |
(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.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 13 |
1 files 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 |