diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-12-02 17:56:03 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-12-02 17:56:03 +0000 |
commit | 43202f8a9d697bec9efd49497cc3ab2636b5b118 (patch) | |
tree | ac331286ef47093c77115e78fc53b47b0c9abbc9 /lisp/pcvs.el | |
parent | d9e21158633e2c1789dddcc2260e12f3f4ee060a (diff) | |
download | emacs-43202f8a9d697bec9efd49497cc3ab2636b5b118.tar.gz |
(cvs-mode-commit, cvs-mode-edit-log): Also pass a diff
function to log-edit.
Diffstat (limited to 'lisp/pcvs.el')
-rw-r--r-- | lisp/pcvs.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 53bed601a36..f9c71c34192 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -1457,7 +1457,9 @@ The POSTPROC specified there (typically `log-edit') is then called, (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup)) (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist))) 'log-edit))) - (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf) + (funcall setupfun 'cvs-do-commit setup + '((log-edit-listfun . cvs-commit-filelist) + (log-edit-diff-function . cvs-mode-diff)) buf) (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap) (run-hooks 'cvs-mode-commit-hook))) @@ -1520,7 +1522,10 @@ This is best called from a `log-view-mode' buffer." ;; Set the filename before, so log-edit can correctly setup its ;; log-edit-initial-files variable. (set (make-local-variable 'cvs-edit-log-files) (list file))) - (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf) + (funcall setupfun 'cvs-do-edit-log nil + '((log-edit-listfun . cvs-edit-log-filelist) + (log-edit-diff-function . cvs-mode-diff)) + buf) (when text (erase-buffer) (insert text)) (set (make-local-variable 'cvs-edit-log-revision) rev) (set (make-local-variable 'cvs-minor-wrap-function) |