Mercurial > emacs
comparison lisp/vc-bzr.el @ 97401:58215ab2e8e6
(vc-bzr-find-revision): Rename from
vc-bzr-find-version, forgotten in the 2007-10-10 renaming.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 10 Aug 2008 19:48:57 +0000 |
| parents | d9bc43f652b0 |
| children | 9fc5b62e3967 |
comparison
equal
deleted
inserted
replaced
| 97400:ab3e7eb2a2a0 | 97401:58215ab2e8e6 |
|---|---|
| 401 "Check FILE in to bzr with log message COMMENT. | 401 "Check FILE in to bzr with log message COMMENT. |
| 402 REV non-nil gets an error." | 402 REV non-nil gets an error." |
| 403 (if rev (error "Can't check in a specific revision with bzr")) | 403 (if rev (error "Can't check in a specific revision with bzr")) |
| 404 (vc-bzr-command "commit" nil 0 files "-m" comment)) | 404 (vc-bzr-command "commit" nil 0 files "-m" comment)) |
| 405 | 405 |
| 406 (defun vc-bzr-find-version (file rev buffer) | 406 (defun vc-bzr-find-revision (file rev buffer) |
| 407 "Fetch version REV of file FILE and put it into BUFFER." | 407 "Fetch revision REV of file FILE and put it into BUFFER." |
| 408 (with-current-buffer buffer | 408 (with-current-buffer buffer |
| 409 (if (and rev (stringp rev) (not (string= rev ""))) | 409 (if (and rev (stringp rev) (not (string= rev ""))) |
| 410 (vc-bzr-command "cat" t 0 file "-r" rev) | 410 (vc-bzr-command "cat" t 0 file "-r" rev) |
| 411 (vc-bzr-command "cat" t 0 file)))) | 411 (vc-bzr-command "cat" t 0 file)))) |
| 412 | 412 |