martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/startup.el (command-line): Simplify with error-message-string

Browse Source 
Suggested by Basil L. Contovounesios <basil@contovou.net>.
This commit is contained in:
Stefan Monnier
2026-03-15 17:29:41 -04:00
parent e2004eb56f
commit e9e9c7cf8e
1 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/startup.el
View File

@@ -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)