# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1262139765 -46800
# Node ID 17778dd7f114bbcb1e3034e68cab34fe33564d34
# Parent  598bffb4b64e4095118a11f287db588f4c11f813
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>,

diff -r 598bffb4b64e -r 17778dd7f114 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 29 19:29:33 2009 +0100
+++ b/lisp/ChangeLog	Wed Dec 30 15:22:45 2009 +1300
@@ -1,3 +1,9 @@
+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.
diff -r 598bffb4b64e -r 17778dd7f114 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Tue Dec 29 19:29:33 2009 +0100
+++ b/lisp/vc-hg.el	Wed Dec 30 15:22:45 2009 +1300
@@ -209,14 +209,11 @@
 			;; 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