[elpa] externals/plz 0cb20bc74d 03/40: Tidy

[ELPA Syncer]

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

    Tidy
---
 plz.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/plz.el b/plz.el
index 232823e6f9..c5ac63a4d3 100644
--- a/plz.el
+++ b/plz.el
@@ -405,7 +405,11 @@ NOQUERY is passed to `make-process', which see."
          (decode (pcase as
                    ('binary nil)
                    (_ decode)))
-         (default-directory temporary-file-directory)
+         (default-directory
+           ;; Avoid making process in a nonexistent directory (in case the 
current
+           ;; default-directory has since been removed).  It's unclear what 
the best
+           ;; directory is, but this seems to make sense, and it should still 
exist.
+           temporary-file-directory)
          (process-buffer (generate-new-buffer " *plz-request-curl*"))
          (stderr-buffer (generate-new-buffer " *plz-request-curl-stderr*"))
          (process (make-process :name "plz-request-curl"
@@ -427,13 +431,7 @@ NOQUERY is passed to `make-process', which see."
                    (process-put process :plz-result result)
                    (setf plz-result result))))
     (with-current-buffer process-buffer
-      ;; Avoid making process in a nonexistent directory (in case the current
-      ;; default-directory has since been removed).  It's unclear what the best
-      ;; directory is, but this seems to make sense, and it should still exist.
-      (let (
-            
-            ;; The THEN function is called in the response buffer.
-            (then (pcase-exhaustive as
+      (let ((then (pcase-exhaustive as
                     ((or 'binary 'string)
                      (lambda ()
                        (let ((coding-system (or (plz--coding-system) 'utf-8)))