diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-20 16:20:33 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-20 16:20:33 +0200 |
| commit | 09be39722f5518b56740163f8876a4e3e01bca11 (patch) | |
| tree | 1fef4395c7aa429e64cc22cc65faaa1fcfdb9a1a /helm-net.el | |
| parent | db1e0059afff67ef4faa5e6130c86ec457c6bc54 (diff) | |
Rename helm-google-suggest-use-curl-p and make it obsolete.
* helm-net.el (helm-net-prefer-curl): New.
(helm-net--url-retrieve-sync): Use it.
Diffstat (limited to 'helm-net.el')
| -rw-r--r-- | helm-net.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/helm-net.el b/helm-net.el index b71fcc39..08d068f3 100644 --- a/helm-net.el +++ b/helm-net.el @@ -59,12 +59,15 @@ When nil, fallback to `browse-url-browser-function'." :type 'string :group 'helm-net) -(defcustom helm-google-suggest-use-curl-p nil - "When non--nil use CURL to get info from `helm-google-suggest-url'. +(defcustom helm-net-prefer-curl nil + "When non--nil use CURL external program to fetch data. Otherwise `url-retrieve-synchronously' is used." :type 'boolean :group 'helm-net) +(defvaralias 'helm-google-suggest-use-curl-p 'helm-net-prefer-curl) +(make-obsolete-variable 'helm-google-suggest-use-curl-p 'helm-net-prefer-curl "1.7.7") + (defcustom helm-surfraw-duckduckgo-url "https://duckduckgo.com/lite/?q=%s&kp=1" "The duckduckgo url. @@ -169,7 +172,7 @@ This is a format string, don't forget the `%s'." 'CompleteSuggestion) for i in result-alist collect (cdr (cl-caadr (assoc 'suggestion i)))))))) - (if helm-google-suggest-use-curl-p + (if helm-net-prefer-curl (with-temp-buffer (call-process "curl" nil t nil request) (funcall fetch)) |