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.") ...@@ -256,17 +256,20 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
nil t)) nil t))
;; If we can't read it, print the error message and exit. ;; If we can't read it, print the error message and exit.
(error (error
(if (eq (car error) 'error) (princ
(message "%s" (apply 'concat (cdr error))) (if (eq (car error) 'error)
(if (memq 'file-error (get (car error) 'error-conditions)) (apply 'concat (cdr error))
(message "%s: %s" (if (memq 'file-error (get (car error) 'error-conditions))
(nth 1 error) (format "%s: %s"
(mapconcat '(lambda (obj) (prin1-to-string obj t)) (nth 1 error)
(cdr (cdr error)) ", ")) (mapconcat '(lambda (obj) (prin1-to-string obj t))
(message "%s: %s" (cdr (cdr error)) ", "))
(get (car error) 'error-message) (format "%s: %s"
(mapconcat '(lambda (obj) (prin1-to-string obj t)) (get (car error) 'error-message)
(cdr error) ", ")))) (mapconcat '(lambda (obj) (prin1-to-string obj t))
(cdr error) ", "))))
'external-debugging-output)
(setq window-system nil)
(kill-emacs))) (kill-emacs)))
(let ((done nil) (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