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

[bpt/emacs.git] / lisp / emacs-lisp / autoload.el

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 0a38a15..0f77b92 100644 (file)
--- 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