From 25e444c7cd225f7629d57267d16fc620737a5a21 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 5 Dec 2010 17:48:22 +0000 Subject: Omit optional argument `yank-handler' in `paredit-kill-region'. Ignore-this: d406778b8c6c314badf584b4cbcde099 This appears to have been a GNU Emacs 22ism, which I don't use anyway. darcs-hash:20101205174822-00fcc-532684fb73397075e9d93ed7f35bebfe6b15c3f5 --- paredit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index f51d24e..9c2ed24 100644 --- a/paredit.el +++ b/paredit.el @@ -1611,7 +1611,7 @@ With a prefix argument, disregard any imbalance." (setq this-command 'kill-ring-save) (kill-ring-save beginning end)) -(defun paredit-kill-region (beginning end &optional yank-handler) +(defun paredit-kill-region (beginning end) "Kill balanced text between point and mark, like `kill-region'. If that text is imbalanced, signal an error instead." (interactive "r") @@ -1624,7 +1624,7 @@ If that text is imbalanced, signal an error instead." (state* (parse-partial-sexp beginning end nil nil state))) (paredit-check-region-state state state*)))) (setq this-command 'kill-region) - (kill-region beginning end yank-handler)) + (kill-region beginning end)) (defun paredit-check-region-state (beginning-state end-state) (paredit-check-region-state-depth beginning-state end-state) -- cgit v1.2.1