]> code.delx.au - gnu-emacs-elpa/commitdiff
counsel.el (counsel-recoll): Simplify
authorOleh Krehel <ohwoeowho@gmail.com>
Mon, 27 Jul 2015 14:24:13 +0000 (16:24 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Mon, 27 Jul 2015 14:24:13 +0000 (16:24 +0200)
counsel.el

index 04be3db12bcbed298562d1bce6049ee02f4a5887..1d85b0b50e8b4469fe7b3bbcc4cc0d1eb44a5913 100644 (file)
@@ -876,7 +876,6 @@ You'll be given a list of files that match.
 Selecting a file will launch `swiper' for that file.
 INITIAL-INPUT can be given as the initial minibuffer input."
   (interactive)
-  (setq counsel--git-grep-dir default-directory)
   (ivy-read "recoll: " 'counsel-recoll-function
             :initial-input initial-input
             :dynamic-collection t
@@ -886,8 +885,7 @@ INITIAL-INPUT can be given as the initial minibuffer input."
                         (let ((file-name (match-string 1 x)))
                           (find-file file-name)
                           (unless (string-match "pdf$" x)
-                            (swiper ivy-text)))))
-            :unwind #'swiper--cleanup))
+                            (swiper ivy-text)))))))
 
 (provide 'counsel)