diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-08 15:59:35 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-08 15:59:35 +0000 |
| commit | 031f1766297b61947d7b4b43327ad034150df532 (patch) | |
| tree | 0e7cb3d67d2ba8481c33362fe18bc85cde458254 /lisp | |
| parent | 80e3310b378e05683a1fde3845499165640ac994 (diff) | |
| download | emacs-031f1766297b61947d7b4b43327ad034150df532.tar.gz | |
* 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/log-view.el | 3 | ||||
| -rw-r--r-- | lisp/vc-cvs.el | 2 | ||||
| -rw-r--r-- | lisp/vc-rcs.el | 2 |
4 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c36567aac20..e5bfa8abb63 100644 --- 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 5737f2435fb..2f048cc271a 100644 --- 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 d17240e146a..e3ad094d557 100644 --- 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 387a8eaaf03..d3785847966 100644 --- 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)))) ;;; |