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): Insert in original window

Browse Source 
Fixes #187
This commit is contained in:
Oleh Krehel
2017-04-02 10:12:22 +02:00
parent 0c30cdba9e
commit 3980c03f6c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
avy.el
View File

@@ -1484,7 +1484,8 @@ The window scope is determined by `avy-all-windows' or
;;;###autoload ;;;###autoload
(defun avy-move-region () (defun avy-move-region ()
"Select two lines and move the text between them here." "Select two lines and move the text between them here."
(interactive) (interactive)
(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 (save-excursion
@@ -1493,6 +1494,7 @@ The window scope is determined by `avy-all-windows' or
(point))) (point)))
(text (buffer-substring beg end)) (text (buffer-substring beg end))
(pad (if (bolp) "" "\n"))) (pad (if (bolp) "" "\n")))
(move-beginning-of-line nil)
(delete-region beg end) (delete-region beg end)
(select-window initial-window) (select-window initial-window)
(insert text pad)))) (insert text pad))))