# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767175201 0
# Node ID bdc1c93a09dba8dbb85dc3f79ff1aeab31210619
# Parent  3638923a611072f2448915efd93d16c28012ed08
(tpu-set-mode-line):
Put mode-line-process immediately after mode-name
when setting mode-line-format.

diff -r 3638923a6110 -r bdc1c93a09db lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Sun Apr 24 08:12:52 1994 +0000
+++ b/lisp/emulation/tpu-edt.el	Sun Apr 24 08:13:21 1994 +0000
@@ -196,7 +196,7 @@
 			     (purecopy "  ")
 			     'tpu-mark-flag
 			     (purecopy " %[(")
-			     'mode-name 'minor-mode-alist "%n" 'mode-line-process
+			     'mode-name 'mode-line-process 'minor-mode-alist "%n"
 			     (purecopy ")%]----")
 			     (purecopy '(-3 . "%p"))
 			     (purecopy "-%-")))