[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   07/12/27 11:26:29

Index: vc-sccs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- vc-sccs.el  10 Oct 2007 19:39:23 -0000      1.38
+++ vc-sccs.el  27 Dec 2007 11:26:26 -0000      1.39
@@ -285,6 +285,12 @@
   (vc-do-command nil 0 "unget" (vc-name file) "-n" (if rev (concat "-r" rev)))
   (vc-do-command nil 0 "get" (vc-name file) "-g" (if rev (concat "-r" rev))))
 
+(defun vc-sccs-modify-change-comment (files rev comment)
+  "Modify (actually, append to) the change comments for FILES on a specified 
REV."
+  (dolist (file files)
+    (vc-do-command nil 0 "cdc" (vc-name file) 
+                  (concat "-y" comment) (concat "-r" rev))))
+
 
 ;;;
 ;;; History functions