Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

If point is at beginning of line when dragging the region, don't incl…

…ude that line
  • Loading branch information...
commit ca3856faf53b379a2bfc7adc681a800352cbf093 1 parent 47a711b
@amalloy authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  drag-things.el
View
3  drag-things.el
@@ -136,6 +136,9 @@ mark is active, it will be left active."
((region-active-p)
(let (deactivate-mark)
+ (when (and (bolp) ; don't move line if point is at its start
+ (> (point) (mark)))
+ (backward-char))
(drag-region-lines (region-beginning) (region-end) arg)
(when drag-line-reindents
Please sign in to comment.
Something went wrong with that request. Please try again.