diff options
| -rw-r--r-- | lisp/startup.el | 14 |
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)))) |