mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2010-03-23 20:38:17 -07:00
parent ebbe23ddbb
commit 5ac92c5f31
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

25
lisp/vc.el
View File

@ -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))