Commit 5ac92c5f authored by Glenn Morris's avatar Glenn Morris
Browse files

* vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.

parent ebbe23dd
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.
......
......@@ -1744,17 +1744,18 @@ The headers are reset to their non-expanded form."
(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 @@ to provide the `find-revision' operation instead."
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment