summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2010-12-05 17:48:22 +0000
committerTaylor R Campbell <campbell@mumble.net>2010-12-05 17:48:22 +0000
commit25e444c7cd225f7629d57267d16fc620737a5a21 (patch)
tree9f55b0ffb72d42bb2b94aefa199d3ece3a327c82
parentb51f220aa8d21011b6eab253e4593c372c4ef8ee (diff)
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
-rw-r--r--paredit.el4
1 files changed, 2 insertions, 2 deletions
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)