aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/startup.el14
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el
index ae34c9db10e..5d1d7574a28 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -344,12 +344,14 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
344 (insert-file-contents user-init-file) 344 (insert-file-contents user-init-file)
345 (re-search-forward 345 (re-search-forward
346 (concat 346 (concat
347 "(setq inhibit-startup-echo-area-message[ \t]+" 347 "([ \t\n]*setq[ \t\n]+"
348 (prin1-to-string 348 "inhibit-startup-echo-area-message[ \t\n]+"
349 (if (string= init-file-user "") 349 (regexp-quote
350 (user-login-name) 350 (prin1-to-string
351 init-file-user)) 351 (if (string= init-file-user "")
352 "[ \t]*)") 352 (user-login-name)
353 init-file-user)))
354 "[ \t\n]*)")
353 nil t)) 355 nil t))
354 (error nil)) 356 (error nil))
355 (kill-buffer buffer)))) 357 (kill-buffer buffer))))