emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 3980c03 035/110: avy.el (avy-move-region): Insert in origi


From: Oleh Krehel
Subject: [elpa] master 3980c03 035/110: avy.el (avy-move-region): Insert in original window
Date: Sat, 11 May 2019 10:15:38 -0400 (EDT)

branch: master
commit 3980c03f6c866f11f4e6223ea737fa1538d40560
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy.el (avy-move-region): Insert in original window
    
    Fixes #187
---
 avy.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/avy.el b/avy.el
index c82e0d3..be317ba 100644
--- a/avy.el
+++ b/avy.el
@@ -1484,7 +1484,8 @@ The window scope is determined by `avy-all-windows' or
   "Select two lines and move the text between them here."
   (interactive)
   (avy-with avy-move-region
-    (let* ((beg (avy--line))
+    (let* ((initial-window (selected-window))
+           (beg (avy--line))
            (end (save-excursion
                   (goto-char (avy--line))
                   (forward-line)
@@ -1493,6 +1494,7 @@ The window scope is determined by `avy-all-windows' or
            (pad (if (bolp) "" "\n")))
       (move-beginning-of-line nil)
       (delete-region beg end)
+      (select-window initial-window)
       (insert text pad))))
 
 ;;;###autoload



reply via email to

[Prev in Thread] Current Thread [Next in Thread]