Mercurial > emacs
changeset 41496:9c8e073f49db
(command-line-1): Don't do startup screen if a subprocess is running.
Call the startup screen buffer "GNU Emacs". Make a special
mode-line-format for it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Nov 2001 17:43:04 +0000 |
| parents | 0bac781ea0d6 |
| children | 608d7b92d289 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sun Nov 25 17:37:10 2001 +0000 +++ b/lisp/startup.el Sun Nov 25 17:43:04 2001 +0000 @@ -1502,6 +1502,9 @@ ;; has selected another buffer. (string= (buffer-name) "*scratch*") ;; Don't display startup screen if init file + ;; has started some sort of server. + (process-list) + ;; Don't display startup screen if init file ;; has inserted some text in *scratch*. (= 0 (buffer-size))) ;; Display a startup screen, after some preparations. @@ -1542,11 +1545,14 @@ ;; If user typed input during all that work, ;; abort the startup screen. Otherwise, display it now. (when (not (input-pending-p)) - (with-temp-buffer + (with-current-buffer (get-buffer-create "GNU Emacs") (if (and (display-graphic-p) (use-fancy-splash-screens-p)) (fancy-splash-screens) - (let ((tab-width 8)) + (let ((tab-width 8) + (mode-line-format (propertize "---- %b %-" + 'face '(:weight bold)))) + ;; The convention for this piece of code is that ;; each piece of output starts with one or two newlines ;; and does not end with any newlines. @@ -1666,7 +1672,8 @@ (goto-char (point-min)) (save-window-excursion (switch-to-buffer (current-buffer)) - (sit-for 120))))))))) + (sit-for 120))))) + (kill-buffer "GNU Emacs"))))) (defun command-line-normalize-file-name (file)