From bd0e5ba35e819d2019a592b608ff4a036038a953 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 20 Mar 2011 19:06:01 +0000 Subject: 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(-) (limited to 'paredit.el') 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 -- cgit v1.2.1