changeset 5931:7008ece592cb

(command-line-1): Improve previous change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Feb 1994 20:12:21 +0000
parents 3cfd09c8ba8e
children 86efd91bb72c
files lisp/startup.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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))))