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)