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

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

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

revision 2.5 by kai, Thu Dec 5 09:21:05 2002 UTC revision 2.6 by kai, Sat Feb 15 18:37:30 2003 UTC
# Line 82  See `vc-do-command' for more information Line 82  See `vc-do-command' for more information
82               (method (tramp-file-name-method v))               (method (tramp-file-name-method v))
83               (user (tramp-file-name-user v))               (user (tramp-file-name-user v))
84               (host (tramp-file-name-host v))               (host (tramp-file-name-host v))
85               (path (tramp-file-name-path v)))               (localname (tramp-file-name-localname v)))
86          (set-buffer (get-buffer-create buffer))          (set-buffer (get-buffer-create buffer))
87          (set (make-local-variable 'vc-parent-buffer) camefrom)          (set (make-local-variable 'vc-parent-buffer) camefrom)
88          (set (make-local-variable 'vc-parent-buffer-name)          (set (make-local-variable 'vc-parent-buffer-name)
# Line 99  See `vc-do-command' for more information Line 99  See `vc-do-command' for more information
99                   (setq vc-file (vc-name file)))                   (setq vc-file (vc-name file)))
100              (setq squeezed              (setq squeezed
101                    (append squeezed                    (append squeezed
102                            (list (tramp-file-name-path                            (list (tramp-file-name-localname
103                                   (tramp-dissect-file-name vc-file))))))                                   (tramp-dissect-file-name vc-file))))))
104          (if (and file (eq last 'WORKFILE))          (if (and file (eq last 'WORKFILE))
105              (progn              (progn
# Line 172  Since TRAMP doesn't do async commands ye Line 172  Since TRAMP doesn't do async commands ye
172               (method (when file (tramp-file-name-method v)))               (method (when file (tramp-file-name-method v)))
173               (user (when file (tramp-file-name-user v)))               (user (when file (tramp-file-name-user v)))
174               (host (when file (tramp-file-name-host v)))               (host (when file (tramp-file-name-host v)))
175               (path (when file (tramp-file-name-path v))))               (localname (when file (tramp-file-name-localname v))))
176        (setq squeezed (delq nil (copy-sequence flags)))        (setq squeezed (delq nil (copy-sequence flags)))
177        (when file        (when file
178          (setq squeezed (append squeezed (list (file-relative-name          (setq squeezed (append squeezed (list (file-relative-name
# Line 194  Since TRAMP doesn't do async commands ye Line 194  Since TRAMP doesn't do async commands ye
194            (message "Running %s...OK" command))            (message "Running %s...OK" command))
195        (vc-exec-after        (vc-exec-after
196         `(run-hook-with-args         `(run-hook-with-args
197           'vc-post-command-functions ',command ',path ',flags))           'vc-post-command-functions ',command ',localname ',flags))
198        status))))        status))))
199    
200    
# Line 251  Since TRAMP doesn't do async commands ye Line 251  Since TRAMP doesn't do async commands ye
251             (method (tramp-file-name-method v))             (method (tramp-file-name-method v))
252             (user (tramp-file-name-user v))             (user (tramp-file-name-user v))
253             (host (tramp-file-name-host v))             (host (tramp-file-name-host v))
254             (path (tramp-file-name-path v)))             (localname (tramp-file-name-localname v)))
255        (save-excursion (set-buffer (get-buffer-create "*vc-info*"))        (save-excursion (set-buffer (get-buffer-create "*vc-info*"))
256                        (erase-buffer))                        (erase-buffer))
257        (let ((exec-path (append vc-path exec-path)) exec-status        (let ((exec-path (append vc-path exec-path)) exec-status
# Line 275  Since TRAMP doesn't do async commands ye Line 275  Since TRAMP doesn't do async commands ye
275              ;; Actually execute remote command              ;; Actually execute remote command
276              (tramp-handle-shell-command              (tramp-handle-shell-command
277               (mapconcat 'tramp-shell-quote-argument               (mapconcat 'tramp-shell-quote-argument
278                          (append (list command) args (list path)) " ")                          (append (list command) args (list localname)) " ")
279               (get-buffer-create"*vc-info*"))               (get-buffer-create"*vc-info*"))
280                                          ;(tramp-wait-for-output)                                          ;(tramp-wait-for-output)
281              ;; Get status from command              ;; Get status from command
# Line 435  filename we are thinking about..." Line 435  filename we are thinking about..."
435                                       (tramp-file-name-method v)                                       (tramp-file-name-method v)
436                                       (tramp-file-name-user v)                                       (tramp-file-name-user v)
437                                       (tramp-file-name-host v))                                       (tramp-file-name-host v))
438                   (tramp-shell-quote-argument (tramp-file-name-path v))))                   (tramp-shell-quote-argument (tramp-file-name-localname v))))
439          (tramp-wait-for-output)          (tramp-wait-for-output)
440          ;; parse `ls -l' output ...          ;; parse `ls -l' output ...
441          ;; ... file mode flags          ;; ... file mode flags

Legend:
Removed from v.2.5  
changed lines
  Added in v.2.6

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