From 6363b39e9842d23cc4d14ead8184fe5945ae9ea9 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 24 Apr 1994 08:13:21 +0000
Subject: [PATCH] (tpu-set-mode-line): Put mode-line-process immediately after
 mode-name when setting mode-line-format.

---
 lisp/emulation/tpu-edt.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 2ae6c52f0f..ce629caa6e 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -196,7 +196,7 @@ GOLD is the ASCII 7-bit escape sequence <ESC>OP.")
 			     (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 "-%-")))
-- 
2.39.2