changeset 17812:7fb38e7df85b

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

--- a/lisp/bindings.el	Thu May 15 03:59:36 1997 +0000
+++ b/lisp/bindings.el	Thu May 15 04:02:49 1997 +0000
@@ -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