diff options
-rw-r--r-- | evil-paredit.el | 13 |
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) |