[Emacs-diffs] Changes to emacs/lisp/startup.el

[Eli Zaretskii]

Index: emacs/lisp/startup.el
diff -u emacs/lisp/startup.el:1.277 emacs/lisp/startup.el:1.278
--- emacs/lisp/startup.el:1.277 Sun Nov 25 14:16:10 2001
+++ emacs/lisp/startup.el       Mon Nov 26 14:40:54 2001
@@ -1492,7 +1492,7 @@
        ;; show user what they all are.  But leave the last one current.
        (and (> file-count 2)
             (not noninteractive)
-            (not inhibit-startup-buffer-menu)     
+            (not inhibit-startup-buffer-menu)
             (or (get-buffer-window first-file-buffer)
                 (list-buffers))))
 
@@ -1503,7 +1503,8 @@
               (string= (buffer-name) "*scratch*")
               ;; Don't display startup screen if init file
               ;; has started some sort of server.
-              (null (process-list))
+              (not (and (fboundp 'process-list)
+                        (process-list)))
               ;; Don't display startup screen if init file
               ;; has inserted some text in *scratch*.
               (= 0 (buffer-size)))