Fix jumping to other frames

* avy.el (avy--goto): Select the window frame if needed.

Fixes #54
This commit is contained in:
Oleh Krehel 2015-05-30 10:11:04 +02:00
parent 9ddde6dd79
commit 78d20e0b02

6
avy.el
View File

@ -395,7 +395,11 @@ POS is either a position or (BEG . END)."
((eq x 'exit)) ((eq x 'exit))
(t (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))) (let ((pt (car x)))
(when (consp pt) (when (consp pt)
(setq pt (car pt))) (setq pt (car pt)))