Function: vc-read-revision

vc-read-revision is a byte-compiled function defined in vc.el.gz.

Signature

(vc-read-revision PROMPT &optional FILES BACKEND DEFAULT INITIAL-INPUT)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc.el.gz
(defun vc-read-revision (prompt &optional files backend default initial-input)
  (cond
   ((null files)
    (let ((vc-fileset (vc-deduce-fileset t))) ;FIXME: why t?  --Stef
      (setq files (cadr vc-fileset))
      (setq backend (car vc-fileset))))
   ((null backend) (setq backend (vc-backend (car files)))))
  (let ((completion-table
         (vc-call-backend backend 'revision-completion-table files)))
    (if completion-table
        (completing-read prompt completion-table
                         nil nil initial-input 'vc-revision-history default)
      (read-string prompt initial-input nil default))))