From 43202f8a9d697bec9efd49497cc3ab2636b5b118 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 2 Dec 2007 17:56:03 +0000 Subject: [PATCH] (cvs-mode-commit, cvs-mode-edit-log): Also pass a diff function to log-edit. --- lisp/ChangeLog | 5 +++++ lisp/pcvs.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a52a37c2816..79fcc774ecc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-12-02 Dan Nicolaescu + + * pcvs.el (cvs-mode-commit, cvs-mode-edit-log): Also pass a diff + function to log-edit. + 2007-12-02 Michael Albinus * net/dbus.el: New file. 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) -- 2.11.4.GIT