TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix error when checking for new version

Browse source 
Explicitly re-create and fetch the checkversion remote.
This commit is contained in:
syl20bnr 2015-06-01 11:28:58 -04:00
parent 5cbe4812ad
commit 3599517b31
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
core/core-spacemacs.el
View file

@ -203,8 +203,7 @@ FILE-TO-LOAD is an explicit file to load after the installation."
"Return the last tagged version of BRANCH on REMOTE repository from "Return the last tagged version of BRANCH on REMOTE repository from
OWNER REPO." OWNER REPO."
(let ((url (format "https://github.com/%s/%s" owner repo))) (let ((url (format "https://github.com/%s/%s" owner repo)))
(unless (spacemacs/git-has-remote remote) (spacemacs/git-declare-remote remote url))
(spacemacs/git-declare-remote remote url)))
(spacemacs/git-fetch-tags remote branch) (spacemacs/git-fetch-tags remote branch)
(let ((version (spacemacs/git-latest-tag remote branch))) (let ((version (spacemacs/git-latest-tag remote branch)))
(when version (when version
@ -255,9 +254,14 @@ found."
"Declare a new REMOTE pointing to URL, return t if no error." "Declare a new REMOTE pointing to URL, return t if no error."
(let((proc-buffer "git-declare-remote") (let((proc-buffer "git-declare-remote")
(default-directory (file-truename user-emacs-directory))) (default-directory (file-truename user-emacs-directory)))
(prog1 (prog2
(progn
(eq 0 (process-file "git" nil proc-buffer nil
"remote" "remove" remote))
(eq 0 (process-file "git" nil proc-buffer nil
"remote" "add" remote url)))
(eq 0 (process-file "git" nil proc-buffer nil (eq 0 (process-file "git" nil proc-buffer nil
"remote" "add" remote url)) "fetch" remote))
(kill-buffer proc-buffer)))) (kill-buffer proc-buffer))))
(defun spacemacs/git-fetch-tags (remote branch) (defun spacemacs/git-fetch-tags (remote branch)