Function: vc-hg-repository-url

vc-hg-repository-url is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg-repository-url FILE-OR-DIR &optional REMOTE-NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defun vc-hg-repository-url (file-or-dir &optional remote-name)
  (let ((default-directory (vc-hg-root file-or-dir)))
    (with-temp-buffer
      (vc-hg-command (current-buffer) 0 nil
                     "config"
                     (concat "paths." (or remote-name "default")))
      (buffer-substring-no-properties (point-min) (1- (point-max))))))