diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-10-23 12:07:46 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-10-23 12:07:46 +0200 |
commit | e9493e671b9d74dab46ae366617f78b134749586 (patch) | |
tree | 78b77fb3e5241bd2dba038d91df644ba337aec22 /helm-grep.el | |
parent | d18dc998d1b2ea3768f3fa511d93eef6d247fc63 (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.el | 11 |
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 |