branch: externals/srht
commit 9dd0d15e4aefe8960d017d84a4b1585088fb9ab8
Author: Aleksandr Vityazev <avitya...@posteo.org>
Commit: Aleksandr Vityazev <avitya...@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
