From 9a93420140a14ac2cbe458d732f3408d1c1bdd0c Mon Sep 17 00:00:00 2001 From: Dieter Deyke Date: Thu, 10 Jul 2014 08:06:59 +0200 Subject: [PATCH] fossil 1.21 (as used on the server) uses _FOSSIL_ instead of the newer .fslckout to store local data --- package-build.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/package-build.el b/package-build.el index be490a97..5ec75994 100644 --- a/package-build.el +++ b/package-build.el @@ -333,7 +333,8 @@ seconds; the server cuts off after 10 requests in 20 seconds.") (let ((repo (plist-get config :url))) (with-current-buffer (get-buffer-create "*package-build-checkout*") (cond - ((and (file-exists-p (expand-file-name ".fslckout" dir)) + ((and (or (file-exists-p (expand-file-name ".fslckout" dir)) + (file-exists-p (expand-file-name "_FOSSIL_" dir))) (string-equal (pb/fossil-repo dir) repo)) (pb/princ-exists dir) (pb/run-process dir "fossil" "update")) @@ -598,6 +599,7 @@ Optionally PRETTY-PRINT the data." "--exclude=.git*" "--exclude=_darcs" "--exclude=.fslckout" + "--exclude=_FOSSIL_" "--exclude=.bzr" "--exclude=.hg" (or (mapcar (lambda (fn) (concat dir "/" fn)) files) (list dir))))