mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 02:40:34 -08:00
Code Issues Projects Releases Wiki Activity

(command-line-1): Don't let type-ahead inhibit the

Browse source 
initial contents of *scratch*.
This commit is contained in:
Richard M. Stallman 1997-08-08 06:42:34 +00:00
parent f58bb396e8
commit 8baabd2a14
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/startup.el
View file

@ -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