diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-08-29 18:56:12 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-08-29 18:56:12 +0000 |
| commit | db167d28c634931c7cc72640edb23b141050fd33 (patch) | |
| tree | 8889a2fefc42d731ac583e17f7afba807f197971 /lisp/vc-cvs.el | |
| parent | e0840eefe151fcecd119f24665f7a7445d19892c (diff) | |
| download | emacs-db167d28c634931c7cc72640edb23b141050fd33.tar.gz | |
* vc.el (vc-print-log-internal): Move RCS/CVS specific code ...
* vc-rcs.el (vc-rcs-print-log-cleanup): ... here. New function.
(vc-rcs-print-log): Use it.
* vc-cvs.el (vc-cvs-print-log): Use vc-rcs-print-log-cleanup.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 33571c10c31..55a03d79900 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -494,13 +494,18 @@ Will fail unless you have administrative privileges on the repo." ;;; History functions ;;; +(declare-function vc-rcs-print-log-cleanup "vc-rcs" ()) + (defun vc-cvs-print-log (files &optional buffer) "Get change logs associated with FILES." + (require 'vc-rcs) ;; It's just the catenation of the individual logs. (vc-cvs-command buffer (if (vc-stay-local-p files 'CVS) 'async 0) - files "log")) + files "log") + (with-current-buffer buffer + (vc-exec-after (vc-rcs-print-log-cleanup)))) (defun vc-cvs-comment-history (file) "Get comment history of a file." |