(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.

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