Function: vc-bzr-dir-status-files

vc-bzr-dir-status-files is a byte-compiled function defined in vc-bzr.el.gz.

Signature

(vc-bzr-dir-status-files DIR FILES UPDATE-FUNCTION)

Documentation

Return a list of conses (file . state) for DIR.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-bzr.el.gz
(defun vc-bzr-dir-status-files (dir files update-function)
  "Return a list of conses (file . state) for DIR."
  (require 'vc-dir)
  (let ((limit vc-dir-process-output-limit))
    (set-process-query-on-exit-flag
     (apply #'vc-bzr-command "status" (current-buffer) 'async dir
            "-v" "-S" files)
     nil)
    ;; FIXME: Consider `vc-run-delayed-success'.
    (vc-run-delayed
      (let ((vc-dir-process-output-limit limit))
        (vc-dir-maybe-narrow-and-show-more-button)
        (vc-bzr-after-dir-status update-function
                                 ;; "bzr status" results are relative to
                                 ;; the bzr root directory, NOT to the
                                 ;; directory "bzr status" was invoked in.
                                 ;; Ugh.
                                 ;; We pass the relative directory here so
                                 ;; that `vc-bzr-after-dir-status' can
                                 ;; frob the results accordingly.
                                 (file-relative-name dir (vc-bzr-root dir)))))))