2357 |
;; without the optional buffer argument (for backward compatibility). |
;; without the optional buffer argument (for backward compatibility). |
2358 |
;; Otherwise, resignal. |
;; Otherwise, resignal. |
2359 |
(if (or (not (eq (cadr err) |
(if (or (not (eq (cadr err) |
2360 |
(indirect-function |
(indirect-function |
2361 |
(vc-find-backend-function (vc-backend file) |
(vc-find-backend-function (vc-backend file) |
2362 |
'print-log)))) |
'print-log)))) |
2363 |
(not (eq (caddr err) 2))) |
(not (eq (caddr err) 2))) |
2364 |
(signal wrong-number-of-arguments err) |
(signal (car err) (cdr err)) |
2365 |
;; for backward compatibility |
;; for backward compatibility |
2366 |
(vc-call print-log file) |
(vc-call print-log file) |
2367 |
(set-buffer "*vc*")))) |
(set-buffer "*vc*")))) |