Mercurial > emacs
comparison lisp/startup.el @ 10324:82efaa5a2567
(command-line-1): Pause between init file error
and command line option processing.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Jan 1995 07:05:41 +0000 |
| parents | abacb10bd5e6 |
| children | c6bc0c89d0ce |
comparison
equal
deleted
inserted
replaced
| 10323:759195dcd02b | 10324:82efaa5a2567 |
|---|---|
| 557 ;; In case the Emacs server has already selected | 557 ;; In case the Emacs server has already selected |
| 558 ;; another buffer, erase the one our message is in. | 558 ;; another buffer, erase the one our message is in. |
| 559 (set-buffer (get-buffer "*scratch*")) | 559 (set-buffer (get-buffer "*scratch*")) |
| 560 (erase-buffer) | 560 (erase-buffer) |
| 561 (set-buffer-modified-p nil))))) | 561 (set-buffer-modified-p nil))))) |
| 562 ;; Delay 2 seconds after the init file error message | |
| 563 ;; was displayed, so user can read it. | |
| 564 (if init-file-had-error | |
| 565 (sit-for 2)) | |
| 562 (let ((dir command-line-default-directory) | 566 (let ((dir command-line-default-directory) |
| 563 (file-count 0) | 567 (file-count 0) |
| 564 first-file-buffer | 568 first-file-buffer |
| 565 (line 0)) | 569 (line 0)) |
| 566 (while command-line-args-left | 570 (while command-line-args-left |