From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Aug 1997 06:42:34 +0000 (+0000)
Subject: (command-line-1): Don't let type-ahead inhibit the
X-Git-Tag: emacs-20.1~725
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8baabd2a147bdff47317e789751ff80f3c2dce31;p=emacs.git

(command-line-1): Don't let type-ahead inhibit the
initial contents of *scratch*.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index b89922ba49d..8b7da9c7e3c 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -710,8 +710,7 @@ from being initialized."
       (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 @@ from being initialized."
 	     (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