Function: vc-default-retrieve-tag

vc-default-retrieve-tag is a byte-compiled function defined in vc.el.gz.

Signature

(vc-default-retrieve-tag BACKEND DIR NAME UPDATE)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc.el.gz
(defun vc-default-retrieve-tag (backend dir name update)
  (if (string-empty-p name)
      (vc-file-tree-walk dir
                         (lambda (f)
                           (and (vc-up-to-date-p f)
                                (vc-error-occurred
                                 (vc-call-backend backend 'checkout f nil "")
                                 (when update
                                   (vc-resynch-buffer f t t))))))
    (let ((result (vc-tag-precondition dir)))
      (if (stringp result)
          (error "File %s is locked" result)
        (setq update (and (eq result 'visited) update))
        (vc-file-tree-walk dir
                           (lambda (f)
                             (vc-error-occurred
                              (vc-call-backend backend 'checkout f nil name)
                              (when update
                                (vc-resynch-buffer f t t)))))))))