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'.")
(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]*)")
"([ \t\n]*setq[ \t\n]+"
"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))))
......
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