Enable follow-mode in wikipedia suggest (#467)

* helm.el (helm-follow-input-idle-delay): New var, when bound following happen after this delay.
* helm-net.el (helm-wikipedia-suggest): Use it.
(helm-source-wikipedia-suggest): Enable follow.

helm-net.el

@@ -439,6 +439,7 @@ Return an alist with elements like (data . number_results)."
                                  candidate)))))
     (persistent-action . helm-wikipedia-persistent-action)
     (volatile)
+    (follow . 1)
     (requires-pattern . 3)))
 
 
@@ -570,7 +571,9 @@ Return an alist with elements like (data . number_results)."
 (defun helm-wikipedia-suggest ()
   "Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest."
   (interactive)
-  (helm-other-buffer 'helm-source-wikipedia-suggest "*helm wikipedia*"))
+  (helm :sources 'helm-source-wikipedia-suggest
+        :buffer "*helm wikipedia*"
+        :follow-input-idle-delay 2))
 
 
 (provide 'helm-net)

helm.el

@@ -4442,13 +4442,15 @@ This will enable `helm-follow-mode' automatically in `helm-source-buffers-list'.
       (when (and helm-follow-mode-persistent sym)
         (set (car `(,sym)) src)))))
 
+(defvar helm-follow-input-idle-delay nil)
 (defun helm-follow-execute-persistent-action-maybe ()
   "Execute persistent action in mode `helm-follow-mode'.
 This happen after `helm-input-idle-delay' secs."
   (and (not (get-buffer-window helm-action-buffer 'visible))
        (eq (assoc-default 'follow (helm-get-current-source)) 1)
-       (sit-for (and helm-input-idle-delay
-                     (max helm-input-idle-delay 0.01)))
+       (sit-for (or helm-follow-input-idle-delay
+                    (and helm-input-idle-delay
+                     (max helm-input-idle-delay 0.01))))
        (helm-window)
        (helm-get-selection)
        (save-excursion