branch: externals/ivy-hydra
commit 0b5c08a6496a141f456132ba4a908d4a53ece7e7
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
counsel.el (counsel-grep-like-occur): Fix copy-sequence for cl-mapcan
---
counsel.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index a3d1332..820f76c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -3063,8 +3063,8 @@ Works for `counsel-git-grep', `counsel-ag', etc."
cmd-template
(mapconcat #'shell-quote-argument all-args " "))
(cl-mapcan
- (lambda (x) (if (string= x "%s") all-args (list x)))
- (copy-sequence cmd-template))))))
+ (lambda (x) (if (string= x "%s") (copy-sequence all-args)
(list x)))
+ cmd-template)))))
(cands (counsel--split-string
(if (stringp cmd-template)
(shell-command-to-string cmd)
