Fix kill & yank errors with `paredit-lose-if-not-in-sexp' while barfing.

darcs-hash:20090105133355-00fcc-b6838fcc0a0a8f3a8345866a67b717b8f4b8ac5b

1 files 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)))