comparison lisp/vc-rcs.el @ 87432:315124ffb889

* (vc.el, vc-sccs.el, vc-rcs.el, vc-cs.el, vc-mcvs.el): Put machinery in place to support editing of change comments with 'e' in a log-view buffer. Not documented yet as this only works for SCCS, RCS, and maybe CVS if you have admin privileges. When we have backend support for Subversion and more modern systems it will ve time to write this up.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 27 Dec 2007 11:26:27 +0000
parents 8ba0e30716a5
children 107ccd98fa12 56a72e2bd635
comparison
equal deleted inserted replaced
87431:59242fb42f3a 87432:315124ffb889
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 ;;;