Don't mask errors during `buffer-string' in `paredit-unescape-string'.

Ignore-this: 8ca077b074853d64639e83f4a81dcd73

darcs-hash:20110320190601-00fcc-54e85aa35638a194de67b28be83fcf65575d7adf

1 files changed, 2 insertions, 3 deletions

diff --git a/paredit.el b/paredit.el
index 427fdbf..33dff5e 100644
--- a/paredit.el
+++ b/paredit.el
@@ -2079,9 +2079,8 @@ With a prefix argument N, move up N lists before wrapping."
                 (search-forward "\\" nil t))
       (delete-char -1)
       (forward-char))
-    (condition-case condition
-        (progn (check-parens) (buffer-string))
-      (error nil))))
+    (funcall (condition-case condition (progn (check-parens) 'buffer-string)
+               (error (lambda () nil))))))
 
 ;;;; Slurpage & Barfage