[Top][All Lists]

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

[elpa] master b8d7163 032/110: avy.el (avy-action-goto): Add raise-frame

From: Oleh Krehel
Subject: [elpa] master b8d7163 032/110: avy.el (avy-action-goto): Add raise-frame
Date: Sat, 11 May 2019 10:15:38 -0400 (EDT)

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

    avy.el (avy-action-goto): Add raise-frame
 avy.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/avy.el b/avy.el
index e1ef07c..6cfedca 100644
--- a/avy.el
+++ b/avy.el
@@ -506,7 +506,10 @@ Set `avy-style' according to COMMMAND as well."
 (defun avy-action-goto (pt)
   "Goto PT."
-  (goto-char pt))
+  (let ((frame (window-frame (selected-window))))
+    (select-frame-set-input-focus frame)
+    (raise-frame frame)
+    (goto-char pt)))
 (defun avy-action-mark (pt)
   "Mark sexp at PT."

reply via email to

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