procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show working revision correctly for mercurial.

Browse source 
* vc-hg.el (vc-hg-working-revision): Use hg parent instead of
hg log as suggested by Alex Harsanyi <alexharsanyi@gmail.com>,
This commit is contained in:
Nick Roberts 2009-12-30 15:22:45 +13:00
parent 3570691b24
commit a9c8a2cdf8
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

7
lisp/vc-hg.el
View file

@ -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