Mercurial > emacs
comparison lisp/vc-cvs.el @ 95673:52ec5c5888db
(vc-cvs-dir-status): Pass -f to cvs.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Jun 2008 15:18:28 +0000 |
| parents | fff438dcde9e |
| children | 22820f8cee46 |
comparison
equal
deleted
inserted
replaced
| 95672:df59f8d16051 | 95673:52ec5c5888db |
|---|---|
| 907 ;; (funcall update-function result))) | 907 ;; (funcall update-function result))) |
| 908 ) | 908 ) |
| 909 | 909 |
| 910 (defun vc-cvs-dir-status (dir update-function) | 910 (defun vc-cvs-dir-status (dir update-function) |
| 911 "Create a list of conses (file . state) for DIR." | 911 "Create a list of conses (file . state) for DIR." |
| 912 (vc-cvs-command (current-buffer) 'async dir "status") | 912 (vc-cvs-command (current-buffer) 'async dir "-f" "status") |
| 913 ;; Alternative implementation: use the "update" command instead of | 913 ;; Alternative implementation: use the "update" command instead of |
| 914 ;; the "status" command. | 914 ;; the "status" command. |
| 915 ;; (vc-cvs-command (current-buffer) 'async | 915 ;; (vc-cvs-command (current-buffer) 'async |
| 916 ;; (file-relative-name dir) | 916 ;; (file-relative-name dir) |
| 917 ;; "-f" "-n" "update" "-d" "-P") | 917 ;; "-f" "-n" "update" "-d" "-P") |