emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix "failed" error from +helm/ag{,-from-cwd} #644

Browse source 
Only affected Ag backend.
This commit is contained in:
Henrik Lissner 2018-06-05 19:49:34 +02:00
parent e4e2fb55ed
commit 641425ab77
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/completion/helm/autoload/helm.el
View file

@ -18,6 +18,7 @@
(directory (or in project-root))
(default-directory directory)
(helm-ag--default-directory directory)
(helm-ag--default-target (list directory))
(engine (or engine
(and (executable-find "rg") 'rg)
(and (executable-find "ag") 'ag)
@ -61,7 +62,6 @@
(if recursive " -R" "")
(if recursive "." "./*"))))
(helm-grep-default-recurse-command helm-grep-default-command))
(message "-- %s (%s)" helm-grep-default-command query)
(setq helm-source-grep
(helm-build-async-source (capitalize (helm-grep-command t))
:header-name (lambda (_name) "Helm Projectile Grep (C-c ? Help)")
@ -85,7 +85,8 @@
:truncate-lines helm-grep-truncate-lines))
(cl-return t))
(`ag
(list "ag -zS --nocolor --nogroup"
(list "ag -zS"
(if IS-WINDOWS "--vimgrep" "--nocolor --nogroup")
(when all-files "-a")
(unless recursive "--depth 1")))
(`rg
@ -97,6 +98,9 @@
(when all-files "-a")
(unless recursive "--depth 1")))))
(helm-ag-base-command (string-join command " ")))
(if (and (eq engine 'ag)
(equal query ""))
(helm-do-ag directory)
(setq helm-ag--last-query query)
(helm-attrset 'search-this-file nil helm-ag-source)
(helm-attrset 'name (helm-ag--helm-header helm-ag--default-directory) helm-ag-source)
@ -105,7 +109,7 @@
:prompt prompt
:buffer "*helm-ag*"
:keymap helm-ag-map
:history 'helm-ag--helm-history)))
:history 'helm-ag--helm-history))))
;;;###autoload
(defun +helm/project-search (arg)