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 |