diff options
| author | Richard M. Stallman | 1994-02-12 20:14:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-12 20:14:29 +0000 |
| commit | d9a71a8ffce1052e7de9f5e7251255cf71b2d017 (patch) | |
| tree | d310a047802eb7e26851421ab0bae0bfd7870953 | |
| parent | 1d7da582b401e1859d61d3c2d91bc7a70e1dfd6d (diff) | |
| download | emacs-d9a71a8ffce1052e7de9f5e7251255cf71b2d017.tar.gz emacs-d9a71a8ffce1052e7de9f5e7251255cf71b2d017.zip | |
(command-line-1): Improve previous change.
| -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)))) |