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

Diff of /tramp/lisp/tramp.el

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

revision 2.311 by kai, Sun Jun 8 13:58:14 2003 UTC revision 2.312 by kai, Mon Jun 9 15:16:59 2003 UTC
# Line 2975  This will break if COMMAND prints a newl Line 2975  This will break if COMMAND prints a newl
2975                 filename))                 filename))
2976        (setq tmpfil (tramp-make-temp-file))        (setq tmpfil (tramp-make-temp-file))
2977        (cond (copy-program        (cond (copy-program
2978                 ;; The following should be changed.  We need a more general
2979                 ;; mechanism to parse extra host args.
2980                 (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
2981                   (setq copy-args (cons "-p" (cons (match-string 2 host)
2982                                                    rsh-args)))
2983                   (setq host (match-string 1 host)))
2984               ;; Use rcp-like program for file transfer.               ;; Use rcp-like program for file transfer.
2985               (tramp-message-for-buffer               (tramp-message-for-buffer
2986                multi-method method user host                multi-method method user host
# Line 3167  This will break if COMMAND prints a newl Line 3173  This will break if COMMAND prints a newl
3173        ;; _also_ specifies an encoding function, then that is used for        ;; _also_ specifies an encoding function, then that is used for
3174        ;; encoding the contents of the tmp file.        ;; encoding the contents of the tmp file.
3175        (cond (copy-program        (cond (copy-program
3176                 ;; The following should be changed.  We need a more general
3177                 ;; mechanism to parse extra host args.
3178                 (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
3179                   (setq copy-args (cons "-p" (cons (match-string 2 host)
3180                                                    rsh-args)))
3181                   (setq host (match-string 1 host)))
3182    
3183               ;; use rcp-like program for file transfer               ;; use rcp-like program for file transfer
3184               (let ((argl (append copy-args               (let ((argl (append copy-args
3185                                   (list                                   (list

Legend:
Removed from v.2.311  
changed lines
  Added in v.2.312

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