From ee2f409bc14c0b2be3c64bf81ed29a07d8e38c44 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 20 Jul 2007 00:19:49 +0000 Subject: [PATCH] (vc-print-log): Fix call to print-log. (vc-default-comment-history): Likewise. --- lisp/ChangeLog | 2 ++ lisp/vc.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dca9dd64364..9f8989bcc12 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -9,6 +9,8 @@ (vc-hg-create-repo): Fix typos. * vc.el: Fix typo. + (vc-print-log): Fix call to print-log. + (vc-default-comment-history): Likewise. * vc-mcvs.el (vc-mcvs-create-repo): Fix typos. diff --git a/lisp/vc.el b/lisp/vc.el index b5ae94d8bdd..91caef0f4d6 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2505,7 +2505,7 @@ If FOCUS-REV is non-nil, leave the point at that revision." ;; buffer can be accessed by the command. (condition-case err (progn - (vc-call print-log file "*vc-change-log*") + (vc-call print-log (list file) "*vc-change-log*") (set-buffer "*vc-change-log*")) (wrong-number-of-arguments ;; If this error came from the above call to print-log, try again @@ -2547,7 +2547,7 @@ If FOCUS-REV is non-nil, leave the point at that revision." "Return a string with all log entries stored in BACKEND for FILE." (if (vc-find-backend-function backend 'print-log) (with-current-buffer "*vc*" - (vc-call print-log file) + (vc-call print-log (list file)) (vc-call wash-log file) (buffer-string)))) -- 2.39.5