Function: vc-arch--version-completion-table

vc-arch--version-completion-table is a byte-compiled function defined in vc-arch.el.gz.

Signature

(vc-arch--version-completion-table ROOT STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-arch.el.gz
;;; Completion of versions and revisions.

(defun vc-arch--version-completion-table (root string)
  (delq nil
	(mapcar
	 (lambda (d)
	   (when (string-match "/\\([^/]+\\)/\\([^/]+\\)\\'" d)
	     (concat (match-string 2 d) "/" (match-string 1 d))))
	 (let ((default-directory root))
	   (file-expand-wildcards
	    (concat "*/*/"
		    (if (string-match "/" string)
			(concat (substring string (match-end 0))
				"*/" (substring string 0 (match-beginning 0)))
		      (concat "*/" string))
		    "*"))))))