From ce5aaa0c3d760f8b8f6181ecc49c77ff03c8cad5 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 5 Jan 1996 02:08:29 +0000
Subject: [PATCH] (batch-update-autoloads): Use error-message-string.

---
 lisp/emacs-lisp/autoload.el | 4 +---
 1 file changed, 1 insertion(+), 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
-- 
2.39.2