Commit 2677ad61 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(commmand-line): Fix previous change.

parent 1ed14cfd
......@@ -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
(princ
(if (eq (car error) 'error)
(message "%s" (apply 'concat (cdr error)))
(apply 'concat (cdr error))
(if (memq 'file-error (get (car error) 'error-conditions))
(message "%s: %s"
(format "%s: %s"
(nth 1 error)
(mapconcat '(lambda (obj) (prin1-to-string obj t))
(cdr (cdr error)) ", "))
(message "%s: %s"
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment