diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-01-03 07:05:41 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-01-03 07:05:41 +0000 |
commit | 96691503a58dd89d230507a3480bd560140161d2 (patch) | |
tree | 9739a4177042588767cbc86ca82bd8f5dda6bc28 | |
parent | ba7b3a0100d13266e75a16d5f49251563e78d7de (diff) | |
download | emacs-96691503a58dd89d230507a3480bd560140161d2.tar.gz |
(command-line-1): Pause between init file error
and command line option processing.
-rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index bc39a0c39ff..54c0b0aa5db 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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 |