[elpa] externals/srht 9dd0d15e4a 20/27: srht-git-repo-update: Fix.

[ELPA Syncer]

branch: externals/srht
commit 9dd0d15e4aefe8960d017d84a4b1585088fb9ab8
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    srht-git-repo-update: Fix.
---
 lisp/srht-git.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/srht-git.el b/lisp/srht-git.el
index c9466568d4..d7be8a82f4 100644
--- a/lisp/srht-git.el
+++ b/lisp/srht-git.el
@@ -222,7 +222,6 @@ Called when the request fails with one argument, a 
‘plz-error’ struct PLZ-ER
                               :description description)
                :else #'srht-git--else))
 
-
 (defun srht-git--find-info (repo-name)
   "Find repository information by REPO-NAME."
   (catch 'found
@@ -230,7 +229,6 @@ Called when the request fails with one argument, a 
‘plz-error’ struct PLZ-ER
       (when (equal (cl-getf repo :name) repo-name)
         (throw 'found repo)))))
 
-
 ;;;###autoload
 (defun srht-git-repo-update (repo-name visibility new-name description)
   "Update repository REPO-NAME.
@@ -243,14 +241,15 @@ Set VISIBILITY, NEW-NAME and DESCRIPTION."
      (list name
            (completing-read "Visibility: "
                            '("private" "public" "unlisted") nil t v)
-           (read-string "Repository name: " name
-                        'srht-git-repo-name-history )
+           (read-string "Repository name: " nil
+                        'srht-git-repo-name-history)
            (read-string "Repository description (markdown): " d))))
   (when (yes-or-no-p (format "Update %s repository?" repo-name))
     (srht-update (srht-git-repo repo-name nil
                                 :visibility visibility
                                 :name new-name
                                 :description description)
+                 :else #'srht-git--else
                  :then (lambda (_resp)
                          ;; NOTE: resp examle
                          ;; (:id 110277