From c7909e025caf62091eaacde4b019aeca287617b3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 12 Jul 1997 18:26:11 +0000
Subject: [PATCH] (tpu-set-mode-line) Added mode-line-mule-info and
 mode-line-frame-identification.

---
 lisp/emulation/tpu-edt.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.11.4.GIT