Commit a9c8a2cd authored by Nick Roberts's avatar Nick Roberts
Browse files

Show working revision correctly for mercurial.

* vc-hg.el (vc-hg-working-revision): Use hg parent instead of
hg log as suggested by Alex Harsanyi <alexharsanyi@gmail.com>,
parent 3570691b
2009-12-30 Nick Roberts <nickrob@snap.net.nz>
Show working revision correctly for mercurial.
* vc-hg.el (vc-hg-working-revision): Use hg parent instead of
hg log as suggested by Alex Harsanyi <alexharsanyi@gmail.com>,
2009-12-29 Juanma Barranquero <lekktu@gmail.com>
Declare some functions for the byte-compiler.
......
......@@ -209,14 +209,11 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
;; Ignore all errors.
(process-file
"hg" nil t nil
"log" "-l1" (file-relative-name file)))
"parent" "--template" "\"{rev}\"" (file-relative-name file)))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))
(when (eq 0 status)
(if (string-match "changeset: *\\([0-9]*\\)" out)
(match-string 1 out)
"0"))))
(when (eq 0 status) (read out))))
;;; History functions
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment