branch: elpa/paredit
commit bd0e5ba35e819d2019a592b608ff4a036038a953
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
Don't mask errors during `buffer-string' in `paredit-unescape-string'.
Ignore-this: 8ca077b074853d64639e83f4a81dcd73
darcs-hash:20110320190601-00fcc-54e85aa35638a194de67b28be83fcf65575d7adf
---
paredit.el | 5 ++---
1 file 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
