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

1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 0a38a1539fa..0f77b925cd1 100644
--- 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