branch: elpa/paredit
commit f7c26b9336361c368dfdaae278da3838d2879bc7
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
Fix kill & yank errors with `paredit-lose-if-not-in-sexp' while barfing.
darcs-hash:20090105133355-00fcc-b6838fcc0a0a8f3a8345866a67b717b8f4b8ac5b
---
paredit.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/paredit.el b/paredit.el
index d5d65ee..d6d527b 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1823,7 +1823,7 @@ If in a string, move the opening double-quote forward by
one
Automatically reindent the newly barfed S-expression with respect to
its new enclosing form."
(interactive)
- (paredit-lose-if-not-in-sexp 'paredit-forward-slurp-sexp)
+ (paredit-lose-if-not-in-sexp 'paredit-forward-barf-sexp)
(save-excursion
(up-list) ; Up to the end of the list to
(let ((close (char-before))) ; save and delete the closing
@@ -1895,7 +1895,7 @@ If in a string, move the opening double-quote backward by
one
Automatically reindent the barfed S-expression and the form from which
it was barfed."
(interactive)
- (paredit-lose-if-not-in-sexp 'paredit-forward-slurp-sexp)
+ (paredit-lose-if-not-in-sexp 'paredit-backward-barf-sexp)
(save-excursion
(backward-up-list)
(let ((open (char-after)))
