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 /lisp/vc-hg.el | |
| 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>,
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 7 |
1 files changed, 2 insertions, 5 deletions
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 |