diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-06-02 06:56:54 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-06-02 06:56:54 +0200 |
commit | f1599a511831d7caa3c566921efd6a9b608b5ff4 (patch) | |
tree | 555683eeac83c8fcf62fb49b33f4ea10e2e26d90 /helm-id-utils.el | |
parent | c9f85cf2d63a2ee65dce49bef7e5d93096757064 (diff) |
Allow async sources receive use-default-as-input.
* helm.el (helm-read-pattern-maybe): Do it.
Consider async sources as kind of delayed sources.
* helm-id-utils.el: Use it.
Diffstat (limited to 'helm-id-utils.el')
-rw-r--r-- | helm-id-utils.el | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/helm-id-utils.el b/helm-id-utils.el index ae612f2a..a01fdd66 100644 --- a/helm-id-utils.el +++ b/helm-id-utils.el @@ -62,20 +62,20 @@ (force-mode-line-update)) (helm-log "Error: Gid %s" (replace-regexp-in-string "\n" "" event))))))))) - (filter-one-by-one :initform 'helm-grep-filter-one-by-one) - (candidate-number-limit :initform 99999) - (action :initform (helm-make-actions - "Find File" 'helm-grep-action - "Find file other frame" 'helm-grep-other-frame - (lambda () (and (locate-library "elscreen") - "Find file in Elscreen")) - 'helm-grep-jump-elscreen - "Save results in grep buffer" 'helm-grep-save-results - "Find file other window" 'helm-grep-other-window)) - (persistent-action :initform 'helm-grep-persistent-action) - (history :initform 'helm-grep-history) - (nohighlight :initform t) - (requires-pattern :initform 2))) + (filter-one-by-one :initform 'helm-grep-filter-one-by-one) + (candidate-number-limit :initform 99999) + (action :initform (helm-make-actions + "Find File" 'helm-grep-action + "Find file other frame" 'helm-grep-other-frame + (lambda () (and (locate-library "elscreen") + "Find file in Elscreen")) + 'helm-grep-jump-elscreen + "Save results in grep buffer" 'helm-grep-save-results + "Find file other window" 'helm-grep-other-window)) + (persistent-action :initform 'helm-grep-persistent-action) + (history :initform 'helm-grep-history) + (nohighlight :initform t) + (requires-pattern :initform 2))) ;;;###autoload (defun helm-gid () @@ -89,7 +89,8 @@ See <https://www.gnu.org/software/idutils/>." default-directory helm-gid-db-file-name)) (helm-grep-default-directory-fn - (lambda () default-directory))) + (lambda () default-directory)) + (helm--maybe-use-default-as-input t)) (cl-assert db nil "No DataBase found, create one with `mkid'") (helm :sources (helm-make-source "Gid" 'helm-gid-source :db-dir db) |