ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2026-02-04 06:42:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy-move-region): Update

Browse Source 
Fixes #188
This commit is contained in:
Oleh Krehel
2017-04-02 21:14:29 +02:00
parent 3980c03f6c
commit 54bce2cfb0
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
avy.el
View File

@@ -1481,21 +1481,23 @@ The window scope is determined by `avy-all-windows' or
(t (t
(user-error "Unexpected `avy-line-insert-style'"))))))) (user-error "Unexpected `avy-line-insert-style'")))))))
;;;###autoload ;;;###autoload
(defun avy-move-region () (defun avy-move-region ()
"Select two lines and move the text between them above the current line." "Select two lines and move the text between them above the current line."
(interactive) (interactive)
(avy-with avy-move-region (avy-with avy-move-region
(let* ((initial-window (selected-window)) (let* ((initial-window (selected-window))
(beg (avy--line)) (beg (avy--line))
(end (save-excursion (end (avy--line))
(goto-char (avy--line)) text)
(forward-line) (when (> beg end)
(point))) (cl-rotatef beg end))
(setq end (save-excursion
(goto-char end)
(1+ (line-end-position)))) (1+ (line-end-position))))
(setq text (buffer-substring beg end)) (setq text (buffer-substring beg end))
(move-beginning-of-line nil) (move-beginning-of-line nil)
(delete-region beg end) (delete-region beg end)
(select-window initial-window) (select-window initial-window)
(insert text)))) (insert text))))