(batch-update-autoloads): Use error-message-string.

ce5aaa0c · Richard M. Stallman · 15294654 · ce5aaa0c
Commit ce5aaa0c authored Jan 05, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

lisp/emacs-lisp/autoload.el lisp/emacs-lisp/autoload.el +1 -3

No files found.
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -412,9 +412,7 @@ For example, invoke `emacs -batch -f batch-update-autoloads *.el'."
 		      (princ ">>Error processing ")
 		      (princ file)
 		      (princ ": ")
- 		      (if (fboundp 'display-error)
- 			  (display-error lossage nil)
- 			(prin1 lossage))
+		      (princ (error-message-string lossage))
 		      (princ "\n")
 		      (setq lost t)))))))
      (while args