[elpa] externals/kiwix cf6fc32 165/192: add :status-code handler

[Stefan Monnier]

branch: externals/kiwix
commit cf6fc329872265c8422f81d89f31219b0c0e9efe
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    add :status-code handler
---
 kiwix.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/kiwix.el b/kiwix.el
index 74b3619..0efe368 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -224,7 +224,9 @@ Like in function `kiwix-ajax-search-hints'.")
                             (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))))))
+                              (setq kiwix-server-available? t)))
+      :status-code '((404 . (lambda (&rest _) (message (format "Endpoint %s 
does not exist." url))))
+                     (500 . (lambda (&rest _) (message (format "Error from  
%s." url))))))))
 
 (defun kiwix-ajax-search-hints (input &optional selected-library)
   "Instantly AJAX request to get available Kiwix entry keywords