Commit d9a71a8f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(command-line-1): Improve previous change.

parent 1d7da582
...@@ -344,12 +344,14 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") ...@@ -344,12 +344,14 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(insert-file-contents user-init-file) (insert-file-contents user-init-file)
(re-search-forward (re-search-forward
(concat (concat
"(setq inhibit-startup-echo-area-message[ \t]+" "([ \t\n]*setq[ \t\n]+"
"inhibit-startup-echo-area-message[ \t\n]+"
(prin1-to-string (prin1-to-string
(if (string= init-file-user "") (if (string= init-file-user "")
(user-login-name) (user-login-name)
init-file-user)) init-file-user)))
"[ \t]*)") "[ \t\n]*)")
nil t)) nil t))
(error nil)) (error nil))
(kill-buffer buffer)))) (kill-buffer buffer))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment