comparison lisp/startup.el @ 41581:40ffde2a2402

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

41580:c386756cfa43

			   (setq column 0))))))))
	;; If 3 or more files visited, and not all visible,
	;; show user what they all are.  But leave the last one current.
	(and (> file-count 2)
	     (not noninteractive)
	     (not inhibit-startup-buffer-menu)	   
	     (or (get-buffer-window first-file-buffer)
		 (list-buffers))))

    ;; No command args: maybe display a startup screen.
    (when (and (not inhibit-startup-message) (not noninteractive)
	       ;; Don't display startup screen if init file
	       ;; has selected another buffer.
	       (string= (buffer-name) "*scratch*")
	       ;; Don't display startup screen if init file
	       ;; has started some sort of server.
	       (null (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.

41581:40ffde2a2402

			   (setq column 0))))))))
	;; If 3 or more files visited, and not all visible,
	;; show user what they all are.  But leave the last one current.
	(and (> file-count 2)
	     (not noninteractive)
	     (not inhibit-startup-buffer-menu)
	     (or (get-buffer-window first-file-buffer)
		 (list-buffers))))

    ;; No command args: maybe display a startup screen.
    (when (and (not inhibit-startup-message) (not noninteractive)
	       ;; Don't display startup screen if init file
	       ;; has selected another buffer.
	       (string= (buffer-name) "*scratch*")
	       ;; Don't display startup screen if init file
	       ;; has started some sort of server.
	       (not (and (fboundp 'process-list)
			 (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.