Mercurial > emacs
changeset 19222:0fda8fa5865a
(command-line-1): Don't let type-ahead inhibit the
initial contents of *scratch*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Aug 1997 06:42:34 +0000 |
| parents | d125603385f7 |
| children | 475cf041a683 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Aug 08 06:40:52 1997 +0000 +++ b/lisp/startup.el Fri Aug 08 06:42:34 1997 +0000 @@ -710,8 +710,7 @@ (cond ((and (not inhibit-startup-message) (not noninteractive) ;; Don't clobber a non-scratch buffer if init file ;; has selected it. - (string= (buffer-name) "*scratch*") - (not (input-pending-p))) + (string= (buffer-name) "*scratch*")) ;; If there are no switches to process, we might as well ;; run this hook now, and there may be some need to do it ;; before doing any output. @@ -738,7 +737,7 @@ (when (= (buffer-size) 0) (let ((buffer-undo-list t)) (unwind-protect - (progn + (when (not (input-pending-p)) (goto-char (point-max)) ;; The convention for this piece of code is that ;; each piece of output starts with one or two newlines