[elpa] externals/devdocs f0436bc0e2: Fix devdocs-install (change from a433fab9)

[ELPA Syncer]

branch: externals/devdocs
commit f0436bc0e2077683438e838acdfc425337898175
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Fix devdocs-install (change from a433fab9)
---
 devdocs.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/devdocs.el b/devdocs.el
index 9520e4ca3f..92c589b18e 100644
--- a/devdocs.el
+++ b/devdocs.el
@@ -210,11 +210,11 @@ DOC is a document slug or metadata alist.  If the 
document is
 already installed, reinstall it."
   (interactive (list (devdocs--read-document "Install documentation: " nil t)))
   (make-directory devdocs-data-dir t)
-  (let* ((doc (or (listp doc)
-                  (seq-find (lambda (it) (string= doc (alist-get 'slug it)))
+  (unless (listp doc)
+    (setq doc (or (seq-find (lambda (it) (string= doc (alist-get 'slug it)))
                             (devdocs--available-docs))
-                  (user-error "No such document: %s" doc)))
-         (slug (alist-get 'slug doc))
+                  (user-error "No such document: %s" doc))))
+  (let* ((slug (alist-get 'slug doc))
          (mtime (alist-get 'mtime doc))
          (temp (make-temp-file "devdocs-" t))
          pages)