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

`ielm-format-error'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c49a5fbfcf8b0d32d899857f629597c3711e988e..15a7d3c69795c98be290a26df8d58486081193e0 100644 (file)
--- 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 3a9e5e05743d25b04a9e5c94654f9c2f0cc398be..a27f0eb1e89e58cdf9a2b2e97b6ea9aa9161f984 100644 (file)
--- 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")))))