Merge pull request #900 from toctan/fix-kill-region-ad

fix kill-region advice, close bbatsov/prelude#899
This commit is contained in:
Bozhidar Batsov 2015-09-06 11:31:12 +03:00
commit 07dc2d1c5d

View file

@ -197,7 +197,7 @@ The body of the advice is in BODY."
(defadvice kill-region (before smart-cut activate compile)
"When called interactively with no active region, kill a single line instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(if mark-active (list (region-beginning) (region-end) rectangle-mark-mode)
(list (line-beginning-position)
(line-beginning-position 2)))))