[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/startup.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/startup.el |
Date: |
Sun, 25 Nov 2001 12:43:04 -0500 |
Index: emacs/lisp/startup.el
diff -u emacs/lisp/startup.el:1.275 emacs/lisp/startup.el:1.276
--- emacs/lisp/startup.el:1.275 Sun Nov 18 01:48:18 2001
+++ emacs/lisp/startup.el Sun Nov 25 12:43:04 2001
@@ -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)
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Richard M. Stallman, 2001/11/10
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Pavel JanÃk, 2001/11/16
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Stefan Monnier, 2001/11/16
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Richard M. Stallman, 2001/11/18
- [Emacs-diffs] Changes to emacs/lisp/startup.el,
Richard M. Stallman <=
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Richard M. Stallman, 2001/11/25
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Eli Zaretskii, 2001/11/26
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Richard M. Stallman, 2001/11/26