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

mode-line-frame-identification.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 7388e5144c0..77727f5e649 100644
--- 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