Function: vc-bzr-repository-url

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

Signature

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

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-bzr.el.gz
(defun vc-bzr-repository-url (file-or-dir &optional _remote-name)
  (let ((default-directory (vc-bzr-root file-or-dir)))
    (with-temp-buffer
      (vc-bzr-command "info" (current-buffer) 0 nil)
      (goto-char (point-min))
      (if (re-search-forward "parent branch: \\(.*\\)$" nil t)
          (match-string 1)
        (error "Cannot determine Bzr repository URL")))))