* vc-rcs.el (vc-rcs-modify-change-comment):

* vc-cvs.el (vc-cvs-modify-change-comment): Fix argument order.

* log-view.el (log-view-mode-menu): Bind log-view-modify-change-comment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c36567aac20ab59b66fa7610dd4c691b73825539..e5bfa8abb631d1ade941eb16f3357359b554a195 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-08  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-rcs.el (vc-rcs-modify-change-comment):
+       * vc-cvs.el (vc-cvs-modify-change-comment): Fix argument order.
+
+       * log-view.el (log-view-mode-menu): Bind log-view-modify-change-comment.
+
 2008-04-08  Juanma Barranquero  <lekktu@gmail.com>
 
        * international/mule-cmds.el (set-locale-environment): Don't warn if

diff --git a/lisp/log-view.el b/lisp/log-view.el
index 5737f2435fb1c440213e9eca27bdf4736597a00c..2f048cc271a74f24a9d83e787bcb10bc0600df8b 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -156,6 +156,9 @@
     ["Diff Revisions"  log-view-diff]
     ["Visit Version"  log-view-find-revision]
     ["Annotate Version"  log-view-annotate-version]
+    ["Modify Log Comment" log-view-modify-change-comment
+     :help "Edit the change comment displayed at point"]
+    "-----"
     ["Next Log Entry"  log-view-msg-next]
     ["Previous Log Entry"  log-view-msg-prev]
     ["Next File"  log-view-file-next]

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index d17240e146acee3d6a6771daf910014e836fba67..e3ad094d55794792d093287cdfa4b930a46409dd 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -488,7 +488,7 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
 (defun vc-cvs-modify-change-comment (files rev comment)
   "Modify the change comments for FILES on a specified REV. 
 Will fail unless you have administrative privileges on the repo."
-  (vc-cvs-command nil 0 files "rcs" (concat "-m" comment ":" rev)))
+  (vc-cvs-command nil 0 files "admin" (concat "-m" rev ":" comment)))
 
 ;;;
 ;;; History functions

diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index 387a8eaaf035206c720a6e3c429222ff345f52b5..d3785847966f45b478bce01ddb07b4a7bd627dd4 100644 (file)
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -528,7 +528,7 @@ Needs RCS 5.6.2 or later for -M."
   "Modify the change comments change on FILES on a specified REV."
   (dolist (file files)
     (vc-do-command nil 0 "rcs" (vc-name file)
-                  (concat "-m" comment ":" rev))))
+                  (concat "-m" rev ":" comment))))
 
 \f
 ;;;