mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(vc-default-comment-history): Likewise.
This commit is contained in:
Dan Nicolaescu 2007-07-20 00:19:49 +00:00
parent a6ea7ffc20
commit ee2f409bc1
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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.

4
lisp/vc.el
View file

@ -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))))