# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868731971 0
# Node ID e558b6879b0cb1c699666b54885e0a53d25d120b
# Parent  7b452f99a32f3f4afd766cd8371752123b20c34a
(tpu-set-mode-line) Added mode-line-mule-info and
mode-line-frame-identification.

diff -r 7b452f99a32f -r e558b6879b0c lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Sat Jul 12 07:34:33 1997 +0000
+++ b/lisp/emulation/tpu-edt.el	Sat Jul 12 18:26:11 1997 +0000
@@ -423,8 +423,10 @@
 	 (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