From 8baabd2a147bdff47317e789751ff80f3c2dce31 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 8 Aug 1997 06:42:34 +0000 Subject: [PATCH] (command-line-1): Don't let type-ahead inhibit the initial contents of *scratch*. --- lisp/startup.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 -- 2.39.2