[elpa] externals/plz 4480f4ea24 2/3: Fix: (plz--sentinel) When curl process is interrupted

[ELPA Syncer]

branch: externals/plz
commit 4480f4ea248cd433c1f97b2f4364fa84cbd99b08
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (plz--sentinel) When curl process is interrupted
---
 README.org | 3 ++-
 plz.el     | 9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index fc7c76d76f..9c31cfa326 100644
--- a/README.org
+++ b/README.org
@@ -175,7 +175,8 @@ You may also clear a queue with ~plz-clear~, which cancels 
any active or queued
 
 ** 0.2.1-pre
 
-Nothing new yet.
+*Fixes*
++ Handle when Curl process is interrupted.
 
 ** 0.2
 
diff --git a/plz.el b/plz.el
index 8f0cbe2504..4f709d92de 100644
--- a/plz.el
+++ b/plz.el
@@ -654,9 +654,12 @@ node `(elisp) Sentinels').  Kills the buffer before 
returning."
                  (`nil (signal 'plz-curl-error err))
                  ((pred functionp) (funcall plz-else err)))))
 
-            ("killed\n"
-             ;; Curl process killed.
-             (let ((err (make-plz-error :message "curl process killed")))
+            ((and (or "killed\n" "interrupt\n") status)
+             ;; Curl process killed or interrupted.
+             (let* ((message (pcase status
+                               ("killed\n" "curl process killed")
+                               ("interrupt\n" "curl process interrupted")))
+                    (err (make-plz-error :message message)))
                (pcase-exhaustive plz-else
                  (`nil (signal 'plz-curl-error err))
                  ((pred functionp) (funcall plz-else err)))))))