(command-line-1): Don't try to call process-list if it is not fboundp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85dcbb35d3230a764d440f0f2d427b2e4ff8e946..e650ba78b68f9c3a42e615602656c32b4fb35dc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-26  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * startup.el (command-line-1): Don't try to call process-list if
+       it is not fboundp.
+
 2001-11-26  Sam Steingold  <sds@gnu.org>
 
        * frame.el (show-trailing-whitespace): Remove :set argument (the

diff --git a/lisp/startup.el b/lisp/startup.el
index ce5ebb6faa6b27760d05f043b1e46ac37fa082f4..df8075a7def8ac4c756474eab6593ec88880986b 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1492,7 +1492,7 @@ where FACE is a valid face specification, as it can be used with
        ;; 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 @@ where FACE is a valid face specification, as it can be used with
               (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)))