Mercurial > emacs
comparison lisp/vc.el @ 81983:d3b18c88b7e5
(vc-print-log): Fix call to print-log.
(vc-default-comment-history): Likewise.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jul 2007 00:19:49 +0000 |
| parents | d4b8336cd8f5 |
| children | 5fe5698ac0fb |
comparison
equal
deleted
inserted
replaced
| 81982:d4b8336cd8f5 | 81983:d3b18c88b7e5 |
|---|---|
| 2503 ;; Don't switch to the output buffer before running the command, | 2503 ;; Don't switch to the output buffer before running the command, |
| 2504 ;; so that any buffer-local settings in the vc-controlled | 2504 ;; so that any buffer-local settings in the vc-controlled |
| 2505 ;; buffer can be accessed by the command. | 2505 ;; buffer can be accessed by the command. |
| 2506 (condition-case err | 2506 (condition-case err |
| 2507 (progn | 2507 (progn |
| 2508 (vc-call print-log file "*vc-change-log*") | 2508 (vc-call print-log (list file) "*vc-change-log*") |
| 2509 (set-buffer "*vc-change-log*")) | 2509 (set-buffer "*vc-change-log*")) |
| 2510 (wrong-number-of-arguments | 2510 (wrong-number-of-arguments |
| 2511 ;; If this error came from the above call to print-log, try again | 2511 ;; If this error came from the above call to print-log, try again |
| 2512 ;; without the optional buffer argument (for backward compatibility). | 2512 ;; without the optional buffer argument (for backward compatibility). |
| 2513 ;; Otherwise, resignal. | 2513 ;; Otherwise, resignal. |
| 2545 | 2545 |
| 2546 (defun vc-default-comment-history (backend file) | 2546 (defun vc-default-comment-history (backend file) |
| 2547 "Return a string with all log entries stored in BACKEND for FILE." | 2547 "Return a string with all log entries stored in BACKEND for FILE." |
| 2548 (if (vc-find-backend-function backend 'print-log) | 2548 (if (vc-find-backend-function backend 'print-log) |
| 2549 (with-current-buffer "*vc*" | 2549 (with-current-buffer "*vc*" |
| 2550 (vc-call print-log file) | 2550 (vc-call print-log (list file)) |
| 2551 (vc-call wash-log file) | 2551 (vc-call wash-log file) |
| 2552 (buffer-string)))) | 2552 (buffer-string)))) |
| 2553 | 2553 |
| 2554 (defun vc-default-wash-log (backend file) | 2554 (defun vc-default-wash-log (backend file) |
| 2555 "Remove all non-comment information from log output. | 2555 "Remove all non-comment information from log output. |