+2010-04-20 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-hg.el (vc-hg-state): Use HGRCPATH, not HGRC.
+ (vc-hg-working-revision): Likewise. Use hg parents, not hg parent
+ (Bug#5846).
+
2010-04-20 Glenn Morris <rgm@gnu.org>
* emacs-lisp/lisp.el (lisp-completion-at-point): Give it a doc string.
(condition-case nil
;; Ignore all errors.
(let ((process-environment
- ;; Avoid localization of messages so we can parse the output.
- (append (list "TERM=dumb" "LANGUAGE=C" "HGRC=") process-environment)))
-
- (process-file
- "hg" nil t nil
- "status" "-A" (file-relative-name file)))
+ ;; Avoid localization of messages so we
+ ;; can parse the output.
+ (append (list "TERM=dumb" "LANGUAGE=C" "HGRCPATH=")
+ process-environment)))
+ (process-file
+ "hg" nil t nil
+ "status" "-A" (file-relative-name file)))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))
((status nil)
(default-directory (file-name-directory file))
;; Avoid localization of messages so we can parse the output.
- (avoid-local-env (append (list "TERM=dumb" "LANGUAGE=C" "HGRC=")
+ (avoid-local-env (append (list "TERM=dumb" "LANGUAGE=C" "HGRCPATH=")
process-environment))
(out
(with-output-to-string
;; Ignore all errors.
(process-file
"hg" nil t nil
- "parent" "--template" "{rev}" (file-relative-name file)))
+ "parents" "--template" "{rev}" (file-relative-name file)))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))