* lisp/replace.el (replace-eval-replacement): Try to give more helpful error

message.

Fixes: debbugs:15836

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f11ebd4d4187f96aa8843e1df4a92ceaf99e9a0c..a4d1874a4b1c603d8bc7ec7fbbf417ce582535cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-11-13  Glenn Morris  <rgm@gnu.org>
 
+       * replace.el (replace-eval-replacement):
+       Try to give more helpful error message.  (Bug#15836)
+
        * arc-mode.el (archive-7z-extract, archive-7z-expunge)
        (archive-7z-update): Avoid custom type mismatches.
 

diff --git a/lisp/replace.el b/lisp/replace.el
index d92fb6809efcc8aa98ac51a6e62690beeaf5d1e1..9d7aba333c45a75f4f84268e6c4e0c2db78bbe00 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1,7 +1,7 @@
 ;;; replace.el --- replace commands for Emacs
 
-;; Copyright (C) 1985-1987, 1992, 1994, 1996-1997, 2000-2013 Free
-;; Software Foundation, Inc.
+;; Copyright (C) 1985-1987, 1992, 1994, 1996-1997, 2000-2013
+;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Package: emacs
@@ -1793,7 +1793,12 @@ type them using Lisp syntax."
 
 (defun replace-eval-replacement (expression count)
   (let* ((replace-count count)
-         (replacement (eval expression)))
+         err
+         (replacement
+          (condition-case err
+              (eval expression)
+            (error
+             (error "Error evaluating replacement expression: %S" err)))))
     (if (stringp replacement)
         replacement
       (prin1-to-string replacement t))))