217 |
;; Daniel Pittman <daniel@danann.net> |
;; Daniel Pittman <daniel@danann.net> |
218 |
;;-(if (fboundp 'vc-call-backend) |
;;-(if (fboundp 'vc-call-backend) |
219 |
;;- () ;; This is the new VC for which we don't have an appropriate advice yet |
;;- () ;; This is the new VC for which we don't have an appropriate advice yet |
220 |
|
(unless (fboundp 'process-file) |
221 |
(if (fboundp 'vc-call-backend) |
(if (fboundp 'vc-call-backend) |
222 |
(defadvice vc-do-command |
(defadvice vc-do-command |
223 |
(around tramp-advice-vc-do-command |
(around tramp-advice-vc-do-command |
243 |
(setq ad-return-value |
(setq ad-return-value |
244 |
(apply 'tramp-vc-do-command buffer okstatus command |
(apply 'tramp-vc-do-command buffer okstatus command |
245 |
(or file (buffer-file-name)) last flags)) |
(or file (buffer-file-name)) last flags)) |
246 |
ad-do-it)))) |
ad-do-it))))) |
247 |
;;-) |
;;-) |
248 |
|
|
249 |
|
|