[elpa] externals/kiwix f4a1e2d 164/192: rename function* -> cl-function

[Stefan Monnier]

branch: externals/kiwix
commit f4a1e2d4b23c553338efa0d14d7d9e92aee13c22
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@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