branch: externals/kiwix
commit f4a1e2d4b23c553338efa0d14d7d9e92aee13c22
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
rename function* -> cl-function
---
kiwix.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/kiwix.el b/kiwix.el
index cd2d2a3..74b3619 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -220,10 +220,11 @@ Like in function `kiwix-ajax-search-hints'.")
:type "GET"
:sync t
:parser (lambda () (libxml-parse-html-region (point-min) (point-max)))
- :success (function* (lambda (&key data &allow-other-keys)
- (setq kiwix-server-available? t)))
- :error (function* (lambda (&rest args &key error-thrown
&allow-other-keys)
- (setq kiwix-server-available? nil))))))
+ :error (cl-function (lambda (&rest args &key error-thrown
&allow-other-keys)
+ (setq kiwix-server-available? nil)
+ (warn "kiwix.el ping server error: %S"
error-thrown)))
+ :success (cl-function (lambda (&key data &allow-other-keys)
+ (setq kiwix-server-available? t))))))
(defun kiwix-ajax-search-hints (input &optional selected-library)
"Instantly AJAX request to get available Kiwix entry keywords
