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) |
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 |
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 |
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 |
|
|
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 |
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 |
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 |