changeset 8749:db4473742de7

(commmand-line): Fix previous change.

--- a/lisp/startup.el	Thu Sep 15 02:35:45 1994 +0000
+++ b/lisp/startup.el	Thu Sep 15 03:07:47 1994 +0000
@@ -256,17 +256,20 @@
 		nil t))
     ;; If we can't read it, print the error message and exit.
     (error
-     (if (eq (car error) 'error)
-	 (message "%s" (apply 'concat (cdr error)))
-       (if (memq 'file-error (get (car error) 'error-conditions))
-	   (message "%s: %s"
-		    (nth 1 error)
-		    (mapconcat '(lambda (obj) (prin1-to-string obj t))
-			       (cdr (cdr error)) ", "))
-	 (message "%s: %s"
-		  (get (car error) 'error-message)
-		  (mapconcat '(lambda (obj) (prin1-to-string obj t))
-			     (cdr error) ", "))))
+     (princ
+      (if (eq (car error) 'error)
+	  (apply 'concat (cdr error))
+	(if (memq 'file-error (get (car error) 'error-conditions))
+	    (format "%s: %s"
+		     (nth 1 error)
+		     (mapconcat '(lambda (obj) (prin1-to-string obj t))
+				(cdr (cdr error)) ", "))
+	  (format "%s: %s"
+		   (get (car error) 'error-message)
+		   (mapconcat '(lambda (obj) (prin1-to-string obj t))
+			      (cdr error) ", "))))
+      'external-debugging-output)
+     (setq window-system nil)
      (kill-emacs)))
 
   (let ((done nil)