# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 761083941 0
# Node ID 7008ece592cb6039f958ded921875811e0fbfe2b
# Parent  3cfd09c8ba8ef263d1674f15a098451d71532b28
(command-line-1): Improve previous change.

diff -r 3cfd09c8ba8e -r 7008ece592cb lisp/startup.el
--- a/lisp/startup.el	Sat Feb 12 20:01:43 1994 +0000
+++ b/lisp/startup.el	Sat Feb 12 20:12:21 1994 +0000
@@ -344,12 +344,13 @@
 		       (insert-file-contents user-init-file)
 		       (re-search-forward
 			(concat
-			 "(setq inhibit-startup-echo-area-message[ \t]+"
-			 (prin1-to-string
-			  (if (string= init-file-user "")
-			      (user-login-name)
-			    init-file-user))
-			 "[ \t]*)")
+			 "(setq inhibit-startup-echo-area-message[ \t\n]+"
+			 (regexp-quote
+			  (prin1-to-string
+			   (if (string= init-file-user "")
+			       (user-login-name)
+			     init-file-user)))
+			 "[ \t\n]*)")
 			nil t))
 		   (error nil))
 	       (kill-buffer buffer))))