diff options
| author | Eric S. Raymond <esr@thyrsus.com> | 2014-12-02 10:10:55 -0500 |
|---|---|---|
| committer | Eric S. Raymond <esr@thyrsus.com> | 2014-12-02 10:11:48 -0500 |
| commit | b1a765b3a8586cd53c21579982c8fbc0ce534336 (patch) | |
| tree | 61801046859be7d78354e3031b3e1f89c125088b /lisp/vc/vc-src.el | |
| parent | dd601050e7db69f322eea09d99751d8e6363b153 (diff) | |
| download | emacs-b1a765b3a8586cd53c21579982c8fbc0ce534336.tar.gz | |
In vc, abolish the dir-status method.
Diffstat (limited to 'lisp/vc/vc-src.el')
| -rw-r--r-- | lisp/vc/vc-src.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/vc/vc-src.el b/lisp/vc/vc-src.el index a2ebeef22b9..3186d7254cb 100644 --- a/lisp/vc/vc-src.el +++ b/lisp/vc/vc-src.el @@ -31,8 +31,7 @@ ;; STATE-QUERYING FUNCTIONS ;; * registered (file) OK ;; * state (file) OK -;; * dir-status (dir update-function) OK -;; - dir-status-files (dir files uf) ?? +;; - dir-status-files (dir files uf) OK ;; - dir-extra-headers (dir) NOT NEEDED ;; - dir-printer (fileinfo) ?? ;; * working-revision (file) OK @@ -179,11 +178,11 @@ For a description of possible values, see `vc-check-master-templates'." (autoload 'vc-expand-dirs "vc") -(defun vc-src-dir-status (dir update-function) +(defun vc-src-dir-status-files (dir files update-function) ;; FIXME: Use one src status -a call for this - (let ((flist (vc-expand-dirs (list dir) 'SRC)) - (result nil)) - (dolist (file flist) + (if (not files) (setq files (vc-expand-dirs (list dir) 'RCS))) + (let ((result nil)) + (dolist (file files) (let ((state (vc-state file)) (frel (file-relative-name file))) (when (and (eq (vc-backend file) 'SRC) |