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

1996-01-05 02:08:29 +00:00
parent 15294654d6
commit ce5aaa0c3d
1 changed files with 1 additions and 3 deletions
--- 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