Mercurial > emacs
comparison lisp/vc-rcs.el @ 91302:56a72e2bd635
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-306
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 29 Dec 2007 02:39:17 +0000 |
| parents | d38543a1c0f9 315124ffb889 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91301:7774e5860c70 | 91302:56a72e2bd635 |
|---|---|
| 508 (vc-do-command nil 0 "rcs" (vc-name file) "-M" (concat "-u" rev)) | 508 (vc-do-command nil 0 "rcs" (vc-name file) "-M" (concat "-u" rev)) |
| 509 ;; Do a real checkout after stealing the lock, so that we see | 509 ;; Do a real checkout after stealing the lock, so that we see |
| 510 ;; expanded headers. | 510 ;; expanded headers. |
| 511 (vc-do-command nil 0 "co" (vc-name file) "-f" (concat "-l" rev))) | 511 (vc-do-command nil 0 "co" (vc-name file) "-f" (concat "-l" rev))) |
| 512 | 512 |
| 513 (defun vc-rcs-modify-change-comment (files rev comment) | |
| 514 "Modify the change comments change on FILES on a specified REV." | |
| 515 (dolist (file files) | |
| 516 (vc-do-command nil 0 "rcs" (vc-name file) | |
| 517 (concat "-m" comment ":" rev)))) | |
| 513 | 518 |
| 514 | 519 |
| 515 ;;; | 520 ;;; |
| 516 ;;; History functions | 521 ;;; History functions |
| 517 ;;; | 522 ;;; |