[Emacs-diffs] /srv/bzr/emacs/trunk r99738: * vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.

[Glenn Morris]

------------------------------------------------------------
revno: 99738
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-03-23 20:38:17 -0700
message:
  * vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.
modified:
  lisp/ChangeLog
  lisp/vc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-24 03:34:06 +0000
+++ b/lisp/ChangeLog    2010-03-24 03:38:17 +0000
@@ -1,6 +1,8 @@
 2010-03-24  Glenn Morris  <address@hidden>
 
-       * 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.

=== modified file 'lisp/vc.el'
--- a/lisp/vc.el        2010-03-19 09:37:41 +0000
+++ b/lisp/vc.el        2010-03-24 03:38:17 +0000
@@ -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))