comparison lisp/vc-hg.el @ 108322:a70c2c59b3f6

Fix hg envvar handling (Bug#5846). * vc-hg.el (vc-hg-state): Use HGRCPATH, not HGRC. (vc-hg-working-revision): Likewise. Use hg parents, not hg parent (Bug#5846).

108321:497767b878dc

              standard-output
            (setq status
                  (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)))
                    ;; Some problem happened.  E.g. We can't find an `hg'
                    ;; executable.
                    (error nil)))))))
    (when (eq 0 status)
        (when (null (string-match ".*: No such file or directory$" out))

  "Hg-specific version of `vc-working-revision'."
  (let*
      ((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=")
				     process-environment))
       (out
        (with-output-to-string
          (with-current-buffer
              standard-output

                  (condition-case nil
		      (let ((process-environment avoid-local-env))
			;; Ignore all errors.
			(process-file
			 "hg" nil t nil
			 "parent" "--template" "{rev}" (file-relative-name file)))
                    ;; Some problem happened.  E.g. We can't find an `hg'
                    ;; executable.
                    (error nil)))))))
    (if (eq 0 status)
	out

108322:a70c2c59b3f6

              standard-output
            (setq status
                  (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" "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)))))))
    (when (eq 0 status)
        (when (null (string-match ".*: No such file or directory$" out))

  "Hg-specific version of `vc-working-revision'."
  (let*
      ((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" "HGRCPATH=")
				     process-environment))
       (out
        (with-output-to-string
          (with-current-buffer
              standard-output

                  (condition-case nil
		      (let ((process-environment avoid-local-env))
			;; Ignore all errors.
			(process-file
			 "hg" nil t nil
			 "parents" "--template" "{rev}" (file-relative-name file)))
                    ;; Some problem happened.  E.g. We can't find an `hg'
                    ;; executable.
                    (error nil)))))))
    (if (eq 0 status)
	out