summaryrefslogtreecommitdiff
path: root/helm-grep.el
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2012-10-23 12:07:46 +0200
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2012-10-23 12:07:46 +0200
commite9493e671b9d74dab46ae366617f78b134749586 (patch)
tree78b77fb3e5241bd2dba038d91df644ba337aec22 /helm-grep.el
parentd18dc998d1b2ea3768f3fa511d93eef6d247fc63 (diff)
* helm-grep.el (helm-c-grep-guess-extensions): Fix dups when `helm-c-use-adaptative-sorting' is nil.
Use helm-fast-remove-dups instead of delete-duplicates.
Diffstat (limited to 'helm-grep.el')
-rw-r--r--helm-grep.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/helm-grep.el b/helm-grep.el
index 3ed0ea4f..f8fa1003 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -16,7 +16,7 @@
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
-(require 'cl)
+(eval-when-compile (require 'cl))
(require 'helm)
(require 'grep)
(require 'helm-regexp)
@@ -556,10 +556,11 @@ These extensions will be added to command line with --include arg of grep."
(member glob glob-list)
(member glob grep-find-ignored-files))
collect glob into glob-list
- finally return (append glob-list
- (delete-duplicates
- (delq nil (list "*" helm-c-grep-preferred-ext))
- :test 'string=))))
+ finally return (helm-fast-remove-dups
+ (append glob-list
+ (delq nil
+ (list "*" helm-c-grep-preferred-ext)))
+ :test 'equal)))
(defun helm-grep-collect-candidates ()
(let* ((helm-c-grep-default-command