Mercurial > emacs

changeset 41581:40ffde2a2402

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line-1): Don't try to call process-list if it is not fboundp.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 26 Nov 2001 19:40:54 +0000
parents c386756cfa43
children f4a306cd702f
files lisp/startup.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Mon Nov 26 18:28:18 2001 +0000
+++ b/lisp/startup.el	Mon Nov 26 19:40:54 2001 +0000
@@ -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)))