[elpa] externals/plz-media-type 0a402897d2 10/26: Extract a function to handle a successful synchronous response

[ELPA Syncer]

branch: externals/plz-media-type
commit 0a402897d2409e5cc6800fb89abad43290f93c19
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>

    Extract a function to handle a successful synchronous response
---
 plz-media-type.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/plz-media-type.el b/plz-media-type.el
index 768e77fc75..07ce937447 100644
--- a/plz-media-type.el
+++ b/plz-media-type.el
@@ -524,6 +524,14 @@ parsing the HTTP response body with the
     (plz-media-type--handle-sync-http-error error media-types))
    (t (signal (car error) (cdr error)))))
 
+(defun plz-media-type--handle-sync-response (buffer)
+  "Handle a successful synchronous response in BUFFER."
+  (unwind-protect
+      (with-current-buffer buffer
+        (plz-media-type-then plz-media-type--current plz-media-type--response))
+    (when (buffer-live-p buffer)
+      (kill-buffer buffer))))
+
 (cl-defun plz-media-type-request
     (method
      url
@@ -676,17 +684,12 @@ not.
                                                         plz-media-type--current
                                                         
plz-media-type--response))))))))
               (cond ((bufferp result)
-                     (unwind-protect
-                         (with-current-buffer result
-                           (plz-media-type-then plz-media-type--current 
plz-media-type--response))
-                       (when (buffer-live-p result)
-                         (kill-buffer result))))
+                     (plz-media-type--handle-sync-response result))
                     ((processp result)
                      result)
                     (t (user-error "Unexpected response: %s" result))))
           ;; TODO: How to kill the buffer for sync requests that raise an 
error?
-          (plz-error
-           (plz-media-type--handle-sync-error error media-types))))
+          (plz-error (plz-media-type--handle-sync-error error media-types))))
     (apply #'plz (append (list method url) rest))))
 
 ;;;; Footer