Mercurial > emacs
comparison lisp/vc-cvs.el @ 66551:e72e61aed95a
(vc-cvs-delete-file): Commit the file after removing it.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sun, 30 Oct 2005 11:08:41 +0000 |
| parents | 41bb365f41c4 |
| children | 3bd95f4f2941 693e794b57bf 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 66550:b5d0e8180416 | 66551:e72e61aed95a |
|---|---|
| 450 switches)))) | 450 switches)))) |
| 451 (vc-mode-line file) | 451 (vc-mode-line file) |
| 452 (message "Checking out %s...done" filename))))) | 452 (message "Checking out %s...done" filename))))) |
| 453 | 453 |
| 454 (defun vc-cvs-delete-file (file) | 454 (defun vc-cvs-delete-file (file) |
| 455 (vc-cvs-command nil 0 file "remove" "-f")) | 455 (vc-cvs-command nil 0 file "remove" "-f") |
| 456 (vc-cvs-command nil 0 file "commit" "-mRemoved.")) | |
| 456 | 457 |
| 457 (defun vc-cvs-revert (file &optional contents-done) | 458 (defun vc-cvs-revert (file &optional contents-done) |
| 458 "Revert FILE to the version it was based on." | 459 "Revert FILE to the version it was based on." |
| 459 (unless contents-done | 460 (unless contents-done |
| 460 ;; Check out via standard output (caused by the final argument | 461 ;; Check out via standard output (caused by the final argument |