counsel.el (counsel-recoll): add unwind

Fixes #403

diff --git a/counsel.el b/counsel.el
index 083413a38154e808fdc94f6841f647f63ff80beb..a1777177d15aca31de25fb8d1a1ef7497baa78b7 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -1240,6 +1240,7 @@ INITIAL-INPUT can be given as the initial minibuffer input."
                           (find-file file-name)
                           (unless (string-match "pdf$" x)
                             (swiper ivy-text)))))
+            :unwind #'counsel-delete-process
             :caller 'counsel-recoll))
 ;;* Misc Emacs
 ;;** `counsel-org-tag'