[elpa] master 98af823 4/4: Merge commit 'fb1801ff24b09adc816ef763c9db9cd4b1b5d9dd' from swiper

[Oleh Krehel]

branch: master
commit 98af8234e926e2de8910d42dae550ef2626a9289
Merge: c4a397d fb1801f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Merge commit 'fb1801ff24b09adc816ef763c9db9cd4b1b5d9dd' from swiper
---
 packages/swiper/counsel.el |    4 ++--
 packages/swiper/ivy.el     |   10 +++++++++-
 packages/swiper/swiper.el  |    3 ++-
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/packages/swiper/counsel.el b/packages/swiper/counsel.el
index e7787c0..c1b90d6 100644
--- a/packages/swiper/counsel.el
+++ b/packages/swiper/counsel.el
@@ -125,6 +125,7 @@
                                  (ucs-names)))))
     (insert-char (get-text-property 0 'result char))))
 
+(declare-function cider-sync-request:complete "ext:cider-client")
 (defun counsel-clj ()
   "Clojure completion at point."
   (interactive)
@@ -132,8 +133,7 @@
    (lambda (str)
      (mapcar
       #'cl-caddr
-      (with-no-warnings
-        (cider-sync-request:complete str ":same"))))))
+      (cider-sync-request:complete str ":same")))))
 
 (defun counsel-git ()
   "Find file in the current Git repository."
diff --git a/packages/swiper/ivy.el b/packages/swiper/ivy.el
index e98dd85..de556ca 100644
--- a/packages/swiper/ivy.el
+++ b/packages/swiper/ivy.el
@@ -256,7 +256,15 @@ the ones that match INITIAL-INPUT.
 
 UPDATE-FN is called each time the current candidate(s) is changed."
   (setq ivy--directory nil)
-  (cond ((eq collection 'read-file-name-internal)
+  (cond ((eq collection 'Info-read-node-name-1)
+         (if (equal Info-current-file "dir")
+             (setq collection
+                   (mapcar (lambda (x) (format "(%s)" x))
+                           (cl-delete-duplicates
+                            (all-completions "(" collection predicate)
+                            :test 'equal)))
+           (setq collection (all-completions "" collection predicate))))
+        ((eq collection 'read-file-name-internal)
          (setq ivy--directory default-directory)
          (setq initial-input nil)
          (setq collection
diff --git a/packages/swiper/swiper.el b/packages/swiper/swiper.el
index 96a029c..d69e4ae 100644
--- a/packages/swiper/swiper.el
+++ b/packages/swiper/swiper.el
@@ -112,7 +112,8 @@
                                  gnus-article-mode
                                  gnus-group-mode
                                  emms-playlist-mode erc-mode
-                                 org-agenda-mode)))
+                                 org-agenda-mode
+                                 dired-mode)))
     (unless (> (buffer-size) 100000)
       (if (fboundp 'font-lock-ensure)
           (font-lock-ensure)