(vc-print-log): Fix call to print-log.

(vc-default-comment-history): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dca9dd6436426c52749a8effef9ad53fcc67390d..9f8989bcc12e72b9e3cfcab17d43eac9a9efd256 100644 (file)
--- 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 b5ae94d8bddf3f5e93708bcaccaa276771c0b09f..91caef0f4d61736f7ee90a121bcb31d282f82d2c 100644 (file)
--- 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))))