Fix typos.

[gnu-emacs] / lisp / vc-hg.el

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 91e9d682f8842db0ed7da824b987cc7d29cc4197..b6e1d39c2ff38c0cf6d3a6f976a45132f1f1926d 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -1,6 +1,6 @@
 ;;; vc-hg.el --- VC backend for the mercurial version control system
 
-;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 
 ;; Author: Ivan Kanis
 ;; Keywords: tools
@@ -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) out)))
 
 ;;; History functions