branch: elpa/isl
commit 5c879075479b29d9b695e76607eaa8355e78f6e8
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Collect thing-at-point in all windows for DEFAULT
---
isl.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/isl.el b/isl.el
index c4bf9fcffad..0ed02a783d9 100644
--- a/isl.el
+++ b/isl.el
@@ -1274,11 +1274,14 @@ Note that INPUT cannot be used with a non nil value for
RESUME."
(defun isl--thing-at-point ()
"Return symbol or filename at point."
- (thing-at-point
- (if (and (derived-mode-p 'prog-mode)
- (not (nth 3 (syntax-ppss))))
- 'symbol 'filename)
- t))
+ (cl-loop for win in (window-list nil 1)
+ when (with-selected-window win
+ (thing-at-point
+ (if (and (derived-mode-p 'prog-mode)
+ (not (nth 3 (syntax-ppss))))
+ 'symbol 'filename)
+ t))
+ collect it))
(defvar isl-mini-map
(let ((map (make-sparse-keymap)))
