[elpa] externals/consult-recoll 8ba4d4b9b8 39/50: hide cursor in non-selected preview windows

[ELPA Syncer]

branch: externals/consult-recoll
commit 8ba4d4b9b898016f765e6f18ac294166ff7796e6
Author: jao <jao@gnu.org>
Commit: jao <jao@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)