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

(command-line-1): Pause between init file error

and command line option processing.
parent 9e9c0abe
......@@ -559,6 +559,10 @@ Type \\[describe-distribution] for information on getting the latest version."))
(set-buffer (get-buffer "*scratch*"))
(erase-buffer)
(set-buffer-modified-p nil)))))
;; Delay 2 seconds after the init file error message
;; was displayed, so user can read it.
(if init-file-had-error
(sit-for 2))
(let ((dir command-line-default-directory)
(file-count 0)
first-file-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