Mercurial > emacs
comparison lisp/vc-arch.el @ 94847:5e64dca662f0
Remove assumption about what nil means as a first arument to vc-do-command.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Sat, 10 May 2008 13:27:16 +0000 |
| parents | ee5932bf781d |
| children | 7df3d9a17631 |
comparison
equal
deleted
inserted
replaced
| 94846:1a6e4ea4e517 | 94847:5e64dca662f0 |
|---|---|
| 424 | 424 |
| 425 (defalias 'vc-arch-responsible-p 'vc-arch-root) | 425 (defalias 'vc-arch-responsible-p 'vc-arch-root) |
| 426 | 426 |
| 427 (defun vc-arch-command (buffer okstatus file &rest flags) | 427 (defun vc-arch-command (buffer okstatus file &rest flags) |
| 428 "A wrapper around `vc-do-command' for use in vc-arch.el." | 428 "A wrapper around `vc-do-command' for use in vc-arch.el." |
| 429 (apply 'vc-do-command buffer okstatus vc-arch-command file flags)) | 429 (apply 'vc-do-command (or buffer "*vc*") okstatus vc-arch-command file flags)) |
| 430 | 430 |
| 431 (defun vc-arch-init-revision () nil) | 431 (defun vc-arch-init-revision () nil) |
| 432 | 432 |
| 433 ;;; Completion of versions and revisions. | 433 ;;; Completion of versions and revisions. |
| 434 | 434 |