diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2009-12-30 15:22:45 +1300 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2009-12-30 15:22:45 +1300 |
commit | a9c8a2cdf87cac01ea79da989059846ea86a9b72 (patch) | |
tree | c186f0d1d9c288df56c62ff3e91eb453a96e34a6 | |
parent | 3570691b24eadb24088dd904dc85adb30755db85 (diff) | |
download | emacs-a9c8a2cdf87cac01ea79da989059846ea86a9b72.tar.gz |
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>,
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/vc-hg.el | 7 |
2 files changed, 8 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c59b6ed87c..4d78d53c81c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 91e9d682f88..9dc1d380b0a 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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 |