branch: elpa/helm
commit 5d62c2a7e5a33b3e8ea99cd60f0f8d6056ce4ccc
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Remove now unneeded helm--setup-source calls
---
helm-grep.el | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/helm-grep.el b/helm-grep.el
index 31ce39f97d..8d61d69943 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1218,15 +1218,6 @@ of grep."
(defvar helm-source-grep nil)
-(cl-defmethod helm--setup-source ((source helm-grep-class))
- (cl-call-next-method)
- (helm-aif (and helm-follow-mode-persistent
- (if (eq (slot-value source 'backend) 'git)
- helm-source-grep-git
- helm-source-grep))
- (setf (slot-value source 'follow)
- (assoc-default 'follow it))))
-
(defun helm-do-grep-1 (targets &optional recurse backend exts
default-input input source)
"Launch helm using backend BACKEND on a list of TARGETS files.
@@ -1777,13 +1768,6 @@ grep ag."
(defvar helm-source-grep-ag nil)
-(cl-defmethod helm--setup-source ((source helm-grep-ag-class))
- (cl-call-next-method)
- (helm-aif (and helm-follow-mode-persistent
- helm-source-grep-ag
- (assoc-default 'follow helm-source-grep-ag))
- (setf (slot-value source 'follow) it)))
-
(defun helm-grep-ag-1 (directory &optional type input)
"Start helm ag in DIRECTORY maybe searching in files of type TYPE.
If INPUT is provided, use it as the search string."
