Correctly determine last commit timestamp for a set of hg files (see #79)

This commit is contained in:
Steve Purcell 2012-04-18 11:02:09 +01:00
parent 05f920a494
commit a971eeddd5

View file

@ -303,7 +303,10 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(delete-directory dir t nil)) (delete-directory dir t nil))
(print "cloning repository") (print "cloning repository")
(pb/run-process nil "hg" "clone" repo dir))) (pb/run-process nil "hg" "clone" repo dir)))
(pb/run-process dir "hg" "tip" "--style" "compact") (apply 'pb/run-process dir "hg" "log" "-l1"
(pb/expand-file-list dir
(or (plist-get config :files)
(list "*.el"))))
(pb/find-parse-time (pb/find-parse-time
"\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}\\)")))) "\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}\\)"))))