# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1269401897 25200
# Node ID 8d62d5ccf7939b93b2dd90d638a09797d577c9bc
# Parent  79c0352f271fb722d13b12da02e8d2aebaa5f565
* vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.

diff -r 79c0352f271f -r 8d62d5ccf793 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Mar 23 20:34:06 2010 -0700
+++ b/lisp/ChangeLog	Tue Mar 23 20:38:17 2010 -0700
@@ -1,6 +1,8 @@
 2010-03-24  Glenn Morris  <rgm@gnu.org>
 
-	* vc-bzr.el, vc-hg.el (log-edit-mode): Declare.
+	* vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.
+
+	* vc.el, vc-bzr.el, vc-hg.el (log-edit-mode): Declare.
 
 	* vc-dispatcher.el (vc-start-logentry): Doc fix.
 	(log-view-process-buffer, log-edit-extra-flags): Declare.
diff -r 79c0352f271f -r 8d62d5ccf793 lisp/vc.el
--- a/lisp/vc.el	Tue Mar 23 20:34:06 2010 -0700
+++ b/lisp/vc.el	Tue Mar 23 20:38:17 2010 -0700
@@ -1744,17 +1744,18 @@
 
 (defun vc-modify-change-comment (files rev oldcomment)
   "Edit the comment associated with the given files and revision."
-  (vc-start-logentry
-   files rev oldcomment t
-   "Enter a replacement change comment."
-   "*VC-log*"
-   (lambda (files rev comment ignored)
-     (vc-call-backend
-      ;; Less of a kluge than it looks like; log-view mode only passes
-      ;; this function a singleton list.  Arguments left in this form in
-      ;; case the more general operation ever becomes meaningful.
-      (vc-responsible-backend (car files))
-      'modify-change-comment files rev comment))))
+  ;; Less of a kluge than it looks like; log-view mode only passes
+  ;; this function a singleton list.  Arguments left in this form in
+  ;; case the more general operation ever becomes meaningful.
+  (let ((backend (vc-responsible-backend (car files))))
+    (vc-start-logentry
+     files rev oldcomment t
+     "Enter a replacement change comment."
+     "*VC-log*"
+     (lambda () (vc-call-backend backend 'log-edit-mode))
+     (lambda (files rev comment ignored)
+       (vc-call-backend backend
+                        'modify-change-comment files rev comment)))))
 
 ;;;###autoload
 (defun vc-merge ()
@@ -2433,6 +2434,8 @@
 
 (defalias 'vc-default-check-headers 'ignore)
 
+(declare-function log-edit-mode "log-edit" ())
+
 (defun vc-default-log-edit-mode (backend) (log-edit-mode))
 
 (defun vc-default-log-view-mode (backend) (log-view-mode))