[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[ELPA-diffs] ELPA branch, master, updated. f07d31db1757e184493f39012632d

From: Stefan Monnier
Subject: [ELPA-diffs] ELPA branch, master, updated. f07d31db1757e184493f39012632d232a2b0f7ee
Date: Wed, 14 Aug 2013 02:23:28 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "ELPA".

The branch, master has been updated
       via  f07d31db1757e184493f39012632d232a2b0f7ee (commit)
      from  023ae6e4aa99df2e46e7de618195d37b02f502ec (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f07d31db1757e184493f39012632d232a2b0f7ee
Author: Stefan Monnier <address@hidden>
Date:   Tue Aug 13 22:22:22 2013 -0400

    Don't create local branches

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 863b13e..aaedd9b 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -471,6 +471,8 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
 ;;; Maintain external packages.
+(defconst archive--elpa-git-url "git+ssh://git.sv.gnu.org/srv/git/emacs/elpa")
 (defun archive-add/remove/update-externals ()
   (let ((exts (with-current-buffer (find-file-noselect "externals-list")
                 (goto-char (point-min))
@@ -502,17 +504,9 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
                     ;; FIXME: Use git-new-workdir!
-                    (call-process "git" nil t nil "branch" "--track"
-                                  branch (concat "origin/" branch))
                     (call-process "git" nil t nil "clone"
-                                  "--shared" "--branch" branch "../" dir)
-                    (let ((default-directory (file-name-as-directory
-                                              (expand-file-name dir))))
-                      ;; (call-process "git" nil t nil "branch"
-                      ;;               "-m" branch "master")
-                      (call-process "git" nil t nil "remote"
-                                    "set-url" "--push" "origin"
+                                  "--reference" ".." "--branch" branch
+                                  archive--elpa-git-url dir)
             (message "Cloning branch %s:\n%s" dir output)))
          ((not (file-directory-p (concat dir "/.git")))


Summary of changes:
 admin/archive-contents.el |   14 ++++----------
 1 files changed, 4 insertions(+), 10 deletions(-)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]