[Fix #899] Make the kill-region advice play nice with rectangle-mark-mode

This commit is contained in:
toctan 2015-09-03 12:46:50 +08:00
parent bcdc411744
commit 535e054208

View file

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