/[emacs]/emacs/lisp/net/tramp-vc.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp-vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.2.3 by miles, Fri Jul 23 04:30:38 2004 UTC revision 1.5.2.4 by miles, Wed Oct 27 05:41:58 2004 UTC
# Line 217  Since TRAMP doesn't do async commands ye Line 217  Since TRAMP doesn't do async commands ye
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
# Line 242  Since TRAMP doesn't do async commands ye Line 243  Since TRAMP doesn't do async commands ye
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    

Legend:
Removed from v.1.5.2.3  
changed lines
  Added in v.1.5.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26