From e9e9c7cf8ee7e0aa2881e091d8c1bd535d5c2430 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 15 Mar 2026 17:29:41 -0400 Subject: [PATCH] lisp/startup.el (command-line): Simplify with `error-message-string` Suggested by Basil L. Contovounesios . --- lisp/startup.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 5b8f90a81c4..adaea013604 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1588,14 +1588,7 @@ please check its value") ;; If there was an error, print the error message and exit. (error (princ - (if (eq (car error) 'error) - (apply #'concat (cdr error)) - (if (error-has-type-p error 'file-error) - (format "%s: %s" - (nth 1 error) - (mapconcat (lambda (obj) (prin1-to-string obj t)) - (cdr (cdr error)) ", ")) - (error-message-string error))) + (error-message-string error) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil)