Mercurial > emacs

comparison lisp/vc-cvs.el @ 98495:e8a025cdac4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-svn.el (vc-svn-dir-status-files): * vc-cvs.el (vc-cvs-dir-status-files): New function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 04 Oct 2008 01:22:26 +0000
parents 4a399b9bc4b9
children 04d30d4471c2
comparison
equal deleted inserted replaced
98494:95d08e34e42a 98495:e8a025cdac4a
914 ;; (file-relative-name dir) 914 ;; (file-relative-name dir)
915 ;; "-f" "-n" "update" "-d" "-P") 915 ;; "-f" "-n" "update" "-d" "-P")
916 (vc-exec-after 916 (vc-exec-after
917 `(vc-cvs-after-dir-status (quote ,update-function)))) 917 `(vc-cvs-after-dir-status (quote ,update-function))))
918 918
919 (defun vc-cvs-dir-status-files (dir files default-state update-function)
920 "Create a list of conses (file . state) for DIR."
921 (apply 'vc-cvs-command (current-buffer) 'async dir "-f" "status" files)
922 (vc-exec-after
923 `(vc-cvs-after-dir-status (quote ,update-function))))
924
919 (defun vc-cvs-file-to-string (file) 925 (defun vc-cvs-file-to-string (file)
920 "Read the content of FILE and return it as a string." 926 "Read the content of FILE and return it as a string."
921 (condition-case nil 927 (condition-case nil
922 (with-temp-buffer 928 (with-temp-buffer
923 (insert-file-contents file) 929 (insert-file-contents file)