Mercurial > emacs
changeset 107485:8d62d5ccf793
* vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 23 Mar 2010 20:38:17 -0700 |
| parents | 79c0352f271f |
| children | 16cde13bf410 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 17 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))