Mercurial > emacs

diff lisp/subr.el @ 111822:7a58c6c26566

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/subr.el (with-demoted-errors): Distinguish symbols from strings.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Dec 2010 18:20:27 -0500
parents 3655cc4062e4
children c00190a8c8ef
line wrap: on
line diff
--- a/lisp/subr.el	Fri Dec 03 18:14:50 2010 -0500
+++ b/lisp/subr.el	Fri Dec 03 18:20:27 2010 -0500
@@ -2816,7 +2816,7 @@
   (let ((err (make-symbol "err")))
     `(condition-case-no-debug ,err
          (progn ,@body)
-       (error (message "Error: %s" ,err) nil))))
+       (error (message "Error: %S" ,err) nil))))
 
 (defmacro combine-after-change-calls (&rest body)
   "Execute BODY, but don't call the after-change functions till the end.