Mercurial > emacs

comparison lisp/net/tramp-vc.el @ 59582:92796330257a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync with Tramp 2.0.47.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 16 Jan 2005 13:18:31 +0000
parents b324ca4df07c
children aac0a33f5772 6d92d69fae33
comparison
equal deleted inserted replaced
59581:26fb5a3f95ac 59582:92796330257a
128 ;; 128 ;;
129 ;; Daniel Pittman <daniel@danann.net> 129 ;; Daniel Pittman <daniel@danann.net>
130 (save-excursion 130 (save-excursion
131 (save-window-excursion 131 (save-window-excursion
132 ;; Actually execute remote command 132 ;; Actually execute remote command
133 (shell-command 133 ;; `shell-command' cannot be used; it isn't magic in XEmacs.
134 (tramp-handle-shell-command
134 (mapconcat 'tramp-shell-quote-argument 135 (mapconcat 'tramp-shell-quote-argument
135 (cons command squeezed) " ") t) 136 (cons command squeezed) " ") t)
136 ;;(tramp-wait-for-output) 137 ;;(tramp-wait-for-output)
137 ;; Get status from command 138 ;; Get status from command
138 (tramp-send-command multi-method method user host "echo $?") 139 (tramp-send-command multi-method method user host "echo $?")
188 (setq squeezed (append squeezed (list (file-relative-name 189 (setq squeezed (append squeezed (list (file-relative-name
189 file default-directory))))) 190 file default-directory)))))
190 (let ((w32-quote-process-args t)) 191 (let ((w32-quote-process-args t))
191 (when (eq okstatus 'async) 192 (when (eq okstatus 'async)
192 (message "Tramp doesn't do async commands, running synchronously.")) 193 (message "Tramp doesn't do async commands, running synchronously."))
193 (setq status (shell-command 194 ;; `shell-command' cannot be used; it isn't magic in XEmacs.
195 (setq status (tramp-handle-shell-command
194 (mapconcat 'tramp-shell-quote-argument 196 (mapconcat 'tramp-shell-quote-argument
195 (cons command squeezed) " ") t)) 197 (cons command squeezed) " ") t))
196 (when (or (not (integerp status)) 198 (when (or (not (integerp status))
197 (and (integerp okstatus) (< okstatus status))) 199 (and (integerp okstatus) (< okstatus status)))
198 (pop-to-buffer (current-buffer)) 200 (pop-to-buffer (current-buffer))
283 ;; 285 ;;
284 ;; Daniel Pittman <daniel@danann.net> 286 ;; Daniel Pittman <daniel@danann.net>
285 (save-excursion 287 (save-excursion
286 (save-window-excursion 288 (save-window-excursion
287 ;; Actually execute remote command 289 ;; Actually execute remote command
288 (shell-command 290 ;; `shell-command' cannot be used; it isn't magic in XEmacs.
291 (tramp-handle-shell-command
289 (mapconcat 'tramp-shell-quote-argument 292 (mapconcat 'tramp-shell-quote-argument
290 (append (list command) args (list localname)) " ") 293 (append (list command) args (list localname)) " ")
291 (get-buffer-create"*vc-info*")) 294 (get-buffer-create"*vc-info*"))
292 ;(tramp-wait-for-output) 295 ;(tramp-wait-for-output)
293 ;; Get status from command 296 ;; Get status from command