Mercurial > emacs
changeset 93867:520490ae1b9a
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 08 Apr 2008 15:59:35 +0000 |
| parents | 1f769203aa6c |
| children | dbecceba58d3 |
| files | lisp/ChangeLog lisp/log-view.el lisp/vc-cvs.el lisp/vc-rcs.el |
| diffstat | 4 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 08 14:57:02 2008 +0000 +++ b/lisp/ChangeLog Tue Apr 08 15:59:35 2008 +0000 @@ -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
--- a/lisp/log-view.el Tue Apr 08 14:57:02 2008 +0000 +++ b/lisp/log-view.el Tue Apr 08 15:59:35 2008 +0000 @@ -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]
--- a/lisp/vc-cvs.el Tue Apr 08 14:57:02 2008 +0000 +++ b/lisp/vc-cvs.el Tue Apr 08 15:59:35 2008 +0000 @@ -488,7 +488,7 @@ (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
--- a/lisp/vc-rcs.el Tue Apr 08 14:57:02 2008 +0000 +++ b/lisp/vc-rcs.el Tue Apr 08 15:59:35 2008 +0000 @@ -528,7 +528,7 @@ "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)))) ;;;