branch: externals/consult-recoll
commit 8ba4d4b9b898016f765e6f18ac294166ff7796e6
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
hide cursor in non-selected preview windows
---
consult-recoll.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/consult-recoll.el b/consult-recoll.el
index eec67cec4e..9f3c7a6107 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -142,6 +142,7 @@ Set to nil to use the default 'title (path)' format."
"Preview search result CANDIDATE when ACTION is \\='preview."
(cond ((or (eq action 'setup) (null candidate))
(with-current-buffer (get-buffer-create
consult-recoll--preview-buffer)
+ (setq-local cursor-in-non-selected-windows nil)
(delete-region (point-min) (point-max))))
((and (eq action 'preview) candidate)
(when-let* ((url (consult-recoll--candidate-url candidate))
@@ -153,7 +154,8 @@ Set to nil to use the default 'title (path)' format."
(insert (propertize url 'face 'consult-recoll-url-face) "\n")
(insert (propertize (consult-recoll--candidate-mime candidate)
'face 'consult-recoll-mime-face))
- (when-let (s (consult-recoll--snippets candidate)) (insert "\n"
s)))
+ (when-let (s (consult-recoll--snippets candidate)) (insert "\n"
s))
+ (goto-char (point-min)))
(pop-to-buffer buff)))
((eq action 'exit)
(when (get-buffer consult-recoll--preview-buffer)
