From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 19 Sep 2002 07:32:14 +0000 (+0000)
Subject: (ielm-eval-input): Call `error-message-string' instead of the non-existent
X-Git-Tag: ttn-vms-21-2-B4~13109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5967d9633f6129517a27455ef3ddedce10ddd613;p=emacs.git

(ielm-eval-input): Call `error-message-string' instead of the non-existent
`ielm-format-error'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c49a5fbfcf8..15a7d3c6979 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-19  Juanma Barranquero  <lektu@terra.es>
+
+	* ielm.el (ielm-eval-input): Call `error-message-string' instead
+	of the non-existent `ielm-format-error'.
+
 2002-09-18  Richard M. Stallman  <rms@gnu.org>
 
 	* dired.el (dired-mark-pop-up): Doc fix.
diff --git a/lisp/ielm.el b/lisp/ielm.el
index 3a9e5e05743..a27f0eb1e89 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -361,7 +361,7 @@ simply inserts a newline."
 				  (set-buffer ielm-temp-buffer))
 			      (when ielm-temp-buffer
 				(kill-buffer ielm-temp-buffer)))
-			  (error (setq ielm-result (ielm-format-error err))
+			  (error (setq ielm-result (error-message-string err))
 				 (setq ielm-error-type "Eval error"))
 			  (quit (setq ielm-result "Quit during evaluation")
 				(setq ielm-error-type "Eval error")))))