From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Sep 1994 03:07:47 +0000 (+0000)
Subject: (commmand-line): Fix previous change.
X-Git-Tag: emacs-19.34~7105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2677ad61f5da8a85dfd2b8f004275de88823e1fe;p=emacs.git

(commmand-line): Fix previous change.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 5b5594e4a61..6b646eed849 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -256,17 +256,20 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
 		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)