# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871022554 0
# Node ID 0fda8fa5865aeaf13763f859f767173c2de56c7e
# Parent  d125603385f7018da1b88c02763926baf761bf8d
(command-line-1): Don't let type-ahead inhibit the
initial contents of *scratch*.

diff -r d125603385f7 -r 0fda8fa5865a lisp/startup.el
--- 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