mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

In vc, abolish the dir-status method.

Browse source
This commit is contained in:
Eric S. Raymond 2014-12-02 10:10:55 -05:00
parent dd601050e7
commit b1a765b3a8
13 changed files with 68 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/vc/vc-src.el
View file

@ -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)