[nongnu] elpa/helm 1a97cf31ef: Store directory value in helm-ag source

[ELPA Syncer]

branch: elpa/helm
commit 1a97cf31ef56d74bbe8f761081baea6b5eeb7d3a
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Store directory value in helm-ag source
    
    Add new slot to helm-grep-ag-class and use it when building source.
---
 helm-grep.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/helm-grep.el b/helm-grep.el
index 41cb8016b0..c3c07bf44a 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1709,6 +1709,9 @@ returns if available with current AG version."
    (persistent-action :initform 'helm-grep-persistent-action)
    (persistent-help :initform "Jump to line (`C-u' Record in mark ring)")
    (candidate-number-limit :initform 99999)
+   (directory :initarg :directory :initform nil
+              :documentation
+              "  Directory currently searched.")
    (requires-pattern :initform 2)
    (nomark :initform t)
    (action :initform 'helm-grep-actions)
@@ -1732,6 +1735,7 @@ If INPUT is provided, use it as the search string."
           :header-name (lambda (name)
                          (format "%s [%s]"
                                  name (abbreviate-file-name directory)))
+          :directory directory
           :candidates-process
           (lambda () (helm-grep-ag-init directory type))))
   (helm-set-local-variable 'helm-input-idle-delay helm-grep-input-idle-delay)