Fix jumping to other frames

* avy.el (avy--goto): Select the window frame if needed. Fixes #54
11 years ago · 78d20e0b02
parent 9ddde6dd79
commit 78d20e0b02
1 changed files with 5 additions and 1 deletions
--- a/avy.el
+++ b/avy.el
@ -395,7 +395,11 @@ POS is either a position or (BEG . END)."
        ((eq x 'exit))

        (t
-         (select-window (cdr x))
+         (let* ((window (cdr x))
+                (frame (window-frame window)))
+           (unless (equal frame (selected-frame))
+             (select-frame-set-input-focus frame))
+           (select-window window))
         (let ((pt (car x)))
           (when (consp pt)
             (setq pt (car pt)))