[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 4f6e2f0558: * elpa-admin.el (elpa--pull): Fix paren ty
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 4f6e2f0558: * elpa-admin.el (elpa--pull): Fix paren typo |
Date: |
Mon, 10 Jan 2022 16:58:11 -0500 (EST) |
branch: elpa-admin
commit 4f6e2f055811e408b3cd331cf77200336cb06a1e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpa--pull): Fix paren typo
---
elpa-admin.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 363919d9ab..d570c3c6aa 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1578,7 +1578,7 @@ arbitrary code."
(let ((elpaa--debug nil))
(elpaa--call t "git" "checkout" "--"
(concat (file-name-nondirectory dirname) "-pkg.el")))
- (erase-buffer) ;Throw away the error message we usually get.
+ (erase-buffer) ;Throw away the error message we usually get.
(cond
((file-directory-p ".git")
(message "Running git pull in %S" default-directory)
@@ -1607,12 +1607,12 @@ arbitrary code."
;; There is an upstream to set it to!
(elpaa--git-branch-p ortb))
(elpaa--call t "git" "branch" "--set-upstream-to" ortb))
- (if (or (not ortb) ;Not a worktree, presumably.
- (elpaa--git-branch-p ortb)
+ (if (or (not ortb) ;Not a worktree, presumably.
+ (elpaa--git-branch-p ortb))
(progn
(message "Updating worktree in %S" default-directory)
(elpaa--call t "git" "merge"))
- (message "Not pushed to origin yet. Not updating
worktree")))))))
+ (message "Not pushed to origin yet. Not updating
worktree"))))))
(t (error "No .git in %S" default-directory)))
(unless (and (eobp) (bobp))
(message "Updated %s:%s%s" dirname
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin 4f6e2f0558: * elpa-admin.el (elpa--pull): Fix paren typo,
Stefan Monnier <=