Merge pull request #900 from toctan/fix-kill-region-ad
fix kill-region advice, close bbatsov/prelude#899
This commit is contained in:
commit
07dc2d1c5d
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue