Use paredit-check-region-for-delete.

paredit-check-region-for-delete was added in v23 and replaces -evil-check-region.

1 files changed, 1 insertions, 12 deletions

diff --git a/evil-paredit.el b/evil-paredit.el
index cc8516c..8ddabf6 100644
--- a/evil-paredit.el
+++ b/evil-paredit.el
@@ -25,24 +25,13 @@
   "Minor mode for setting up Evil with paredit in a single buffer"
   :keymap '())
 
-(defun -evil-paredit-check-region (beginning end)
-  (if (and beginning end)
-      ;; Check that region begins and ends in a sufficiently similar
-      ;; state, so that deleting it will leave the buffer balanced.
-      (save-excursion
-        (goto-char beginning)
-        (let* ((state (paredit-current-parse-state))
-               (state* (parse-partial-sexp beginning end nil nil state)))
-          (paredit-check-region-state state state*)))))
-
 (evil-define-operator evil-paredit-yank (beg end type register yank-handler)
   "Saves the characters in motion into the kill-ring."
   :move-point nil
   :repeat nil
   (interactive "<R><x><y>")
-  (-evil-paredit-check-region beg end)
+  (paredit-check-region-for-delete beg end)
   (cond
-
    ((eq type 'block)
     (evil-yank-rectangle beg end register yank-handler))
    ((eq type 'line)