(tpu-set-mode-line) Added mode-line-mule-info and

mode-line-frame-identification.

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 7388e5144c0d057682556a99428067f7ca83c318..77727f5e649aca7db1558526fb2e9e07af94ab3c 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -423,8 +423,10 @@ GOLD is the ASCII 7-bit escape sequence <ESC>OP.")
         (setq minor-mode-alist tpu-original-mm-alist))
        (t
         (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