/[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.300 by kai, Sat May 3 20:14:11 2003 UTC revision 2.301 by kai, Sat May 3 20:42:21 2003 UTC
# Line 233  This variable defaults to the value of ` Line 233  This variable defaults to the value of `
233    
234  (defcustom tramp-methods  (defcustom tramp-methods
235    '( ("rcp"   (tramp-connection-function  tramp-open-connection-rsh)    '( ("rcp"   (tramp-connection-function  tramp-open-connection-rsh)
236                (tramp-rsh-program          "rsh")                (tramp-login-program        "rsh")
237                (tramp-rcp-program          "rcp")                (tramp-copy-program         "rcp")
238                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
239                (tramp-rsh-args             nil)                (tramp-login-args           nil)
240                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
241                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
242       ("scp"   (tramp-connection-function  tramp-open-connection-rsh)       ("scp"   (tramp-connection-function  tramp-open-connection-rsh)
243                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
244                (tramp-rcp-program          "scp")                (tramp-copy-program         "scp")
245                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
246                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
247                (tramp-rcp-args             nil)                (tramp-copy-args             nil)
248                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
249       ("scp1"  (tramp-connection-function  tramp-open-connection-rsh)       ("scp1"  (tramp-connection-function  tramp-open-connection-rsh)
250                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
251                (tramp-rcp-program          "scp")                (tramp-copy-program         "scp")
252                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
253                (tramp-rsh-args             ("-1" "-e" "none"))                (tramp-login-args           ("-1" "-e" "none"))
254                (tramp-rcp-args             ("-1"))                (tramp-copy-args            ("-1"))
255                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
256       ("scp2"  (tramp-connection-function  tramp-open-connection-rsh)       ("scp2"  (tramp-connection-function  tramp-open-connection-rsh)
257                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
258                (tramp-rcp-program          "scp")                (tramp-copy-program         "scp")
259                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
260                (tramp-rsh-args             ("-2" "-e" "none"))                (tramp-login-args           ("-2" "-e" "none"))
261                (tramp-rcp-args             ("-2"))                (tramp-copy-args            ("-2"))
262                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
263       ("scp1_old"       ("scp1_old"
264                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
265                (tramp-rsh-program          "ssh1")                (tramp-login-program        "ssh1")
266                (tramp-rcp-program          "scp1")                (tramp-copy-program         "scp1")
267                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
268                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
269                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
270                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
271       ("scp2_old"       ("scp2_old"
272                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
273                (tramp-rsh-program          "ssh2")                (tramp-login-program        "ssh2")
274                (tramp-rcp-program          "scp2")                (tramp-copy-program         "scp2")
275                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
276                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
277                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
278                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
279       ("rsync" (tramp-connection-function  tramp-open-connection-rsh)       ("rsync" (tramp-connection-function  tramp-open-connection-rsh)
280                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
281                (tramp-rcp-program          "rsync")                (tramp-copy-program         "rsync")
282                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
283                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
284                (tramp-rcp-args             ("-e" "ssh"))                (tramp-copy-args            ("-e" "ssh"))
285                (tramp-rcp-keep-date-arg    "-t")                (tramp-copy-keep-date-arg    "-t"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
286       ("remcp" (tramp-connection-function  tramp-open-connection-rsh)       ("remcp" (tramp-connection-function  tramp-open-connection-rsh)
287                (tramp-rsh-program          "remsh")                (tramp-login-program        "remsh")
288                (tramp-rcp-program          "rcp")                (tramp-copy-program         "rcp")
289                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
290                (tramp-rsh-args             nil)                (tramp-login-args           nil)
291                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
292                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
293       ("rsh"   (tramp-connection-function  tramp-open-connection-rsh)       ("rsh"   (tramp-connection-function  tramp-open-connection-rsh)
294                (tramp-rsh-program          "rsh")                (tramp-login-program        "rsh")
295                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
296                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
297                (tramp-rsh-args             nil)                (tramp-login-args           nil)
298                (tramp-rcp-args             nil)                (tramp-copy-args             nil)
299                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
300       ("ssh"   (tramp-connection-function  tramp-open-connection-rsh)       ("ssh"   (tramp-connection-function  tramp-open-connection-rsh)
301                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
302                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
303                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
304                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
305                (tramp-rcp-args             nil)                (tramp-copy-args             nil)
306                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
307       ("ssh1"  (tramp-connection-function  tramp-open-connection-rsh)       ("ssh1"  (tramp-connection-function  tramp-open-connection-rsh)
308                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
309                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
310                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
311                (tramp-rsh-args             ("-1" "-e" "none"))                (tramp-login-args           ("-1" "-e" "none"))
312                (tramp-rcp-args             ("-1"))                (tramp-copy-args            ("-1"))
313                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
314       ("ssh2"  (tramp-connection-function  tramp-open-connection-rsh)       ("ssh2"  (tramp-connection-function  tramp-open-connection-rsh)
315                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
316                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
317                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
318                (tramp-rsh-args             ("-2" "-e" "none"))                (tramp-login-args           ("-2" "-e" "none"))
319                (tramp-rcp-args             ("-2"))                (tramp-copy-args            ("-2"))
320                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
321       ("ssh1_old"       ("ssh1_old"
322                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
323                (tramp-rsh-program          "ssh1")                (tramp-login-program        "ssh1")
324                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
325                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
326                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
327                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
328                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
329       ("ssh2_old"       ("ssh2_old"
330                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
331                (tramp-rsh-program          "ssh2")                (tramp-login-program        "ssh2")
332                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
333                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
334                (tramp-rsh-args             ("-e" "none"))                (tramp-login-args           ("-e" "none"))
335                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
336                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
337       ("remsh" (tramp-connection-function  tramp-open-connection-rsh)       ("remsh" (tramp-connection-function  tramp-open-connection-rsh)
338                (tramp-rsh-program          "remsh")                (tramp-login-program        "remsh")
339                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
340                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
341                (tramp-rsh-args             nil)                (tramp-login-args           nil)
342                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
343                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
344       ("telnet"       ("telnet"
345                (tramp-connection-function  tramp-open-connection-telnet)                (tramp-connection-function  tramp-open-connection-telnet)
346                (tramp-rsh-program          nil)                (tramp-login-program        "telnet")
347                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
348                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
349                (tramp-rsh-args             nil)                (tramp-login-args           nil)
350                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
351                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       "telnet")  
               (tramp-telnet-args          nil))  
352       ("su"    (tramp-connection-function  tramp-open-connection-su)       ("su"    (tramp-connection-function  tramp-open-connection-su)
353                (tramp-rsh-program          nil)                (tramp-login-program        "su")
354                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
355                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
356                (tramp-rsh-args             nil)                (tramp-login-args           ("-" "%u"))
357                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
358                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           "su")  
               (tramp-su-args              ("-" "%u"))  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
359       ("sudo"  (tramp-connection-function  tramp-open-connection-su)       ("sudo"  (tramp-connection-function  tramp-open-connection-su)
360                (tramp-rsh-program          nil)                (tramp-login-program        "sudo")
361                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
362                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
363                (tramp-rsh-args             nil)                (tramp-login-args           ("-u" "%u" "-s"
               (tramp-rcp-args             nil)  
               (tramp-rcp-keep-date-arg    nil)  
               (tramp-su-program           "sudo")  
               (tramp-su-args              ("-u" "%u" "-s"  
364                                             "-p" "Password:"))                                             "-p" "Password:"))
365                (tramp-telnet-program       nil)                (tramp-copy-args            nil)
366                (tramp-telnet-args          nil))                (tramp-copy-keep-date-arg    nil))
367       ("multi" (tramp-connection-function  tramp-open-connection-multi)       ("multi" (tramp-connection-function  tramp-open-connection-multi)
368                (tramp-rsh-program          nil)                (tramp-login-program        nil)
369                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
370                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
371                (tramp-rsh-args             nil)                (tramp-login-args           nil)
372                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
373                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
374       ("scpx"  (tramp-connection-function  tramp-open-connection-rsh)       ("scpx"  (tramp-connection-function  tramp-open-connection-rsh)
375                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
376                (tramp-rcp-program          "scp")                (tramp-copy-program         "scp")
377                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
378                (tramp-rsh-args             ("-e" "none" "-t" "-t" "/bin/sh"))                (tramp-login-args           ("-e" "none" "-t" "-t" "/bin/sh"))
379                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
380                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
381       ("sshx"  (tramp-connection-function  tramp-open-connection-rsh)       ("sshx"  (tramp-connection-function  tramp-open-connection-rsh)
382                (tramp-rsh-program          "ssh")                (tramp-login-program        "ssh")
383                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
384                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
385                (tramp-rsh-args             ("-e" "none" "-t" "-t" "/bin/sh"))                (tramp-login-args           ("-e" "none" "-t" "-t" "/bin/sh"))
386                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
387                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
388       ("krlogin"       ("krlogin"
389                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
390                (tramp-rsh-program          "krlogin")                (tramp-login-program        "krlogin")
391                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
392                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
393                (tramp-rsh-args             ("-x"))                (tramp-login-args           ("-x"))
394                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
395                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
396       ("plink"       ("plink"
397                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
398                (tramp-rsh-program          "plink")                (tramp-login-program        "plink")
399                (tramp-rcp-program          nil)                (tramp-copy-program         nil)
400                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
401                (tramp-rsh-args             ("-ssh")) ;optionally add "-v"                (tramp-login-args           ("-ssh")) ;optionally add "-v"
402                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
403                (tramp-rcp-keep-date-arg    nil)                (tramp-copy-keep-date-arg    nil))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
404       ("pscp"       ("pscp"
405                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
406                (tramp-rsh-program          "plink")                (tramp-login-program        "plink")
407                (tramp-rcp-program          "pscp")                (tramp-copy-program         "pscp")
408                (tramp-remote-sh            "/bin/sh")                (tramp-remote-sh            "/bin/sh")
409                (tramp-rsh-args             ("-ssh"))                (tramp-login-args           ("-ssh"))
410                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
411                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
412       ("fcp"         ("fcp"  
413                (tramp-connection-function  tramp-open-connection-rsh)                (tramp-connection-function  tramp-open-connection-rsh)
414                (tramp-rsh-program          "fsh")                (tramp-login-program        "fsh")
415                (tramp-rcp-program          "fcp")                (tramp-copy-program         "fcp")
416                (tramp-remote-sh            "/bin/sh -i")                (tramp-remote-sh            "/bin/sh -i")
417                (tramp-rsh-args             ("sh" "-i"))                (tramp-login-args           ("sh" "-i"))
418                (tramp-rcp-args             nil)                (tramp-copy-args            nil)
419                (tramp-rcp-keep-date-arg    "-p")                (tramp-copy-keep-date-arg    "-p"))
               (tramp-su-program           nil)  
               (tramp-su-args              nil)  
               (tramp-telnet-program       nil)  
               (tramp-telnet-args          nil))  
420       )       )
421    "*Alist of methods for remote files.    "*Alist of methods for remote files.
422  This is a list of entries of the form (NAME PARAM1 PARAM2 ...).  This is a list of entries of the form (NAME PARAM1 PARAM2 ...).
# Line 532  pair of the form (KEY VALUE).  The follo Line 434  pair of the form (KEY VALUE).  The follo
434      which groks tilde expansion, but it can search for it.  Also note      which groks tilde expansion, but it can search for it.  Also note
435      that \"/bin/sh\" exists on all Unixen, this might not be true for      that \"/bin/sh\" exists on all Unixen, this might not be true for
436      the value that you decide to use.  You Have Been Warned.      the value that you decide to use.  You Have Been Warned.
437    * `tramp-rsh-program'    * `tramp-login-program'
438      This specifies the name of the program to use for rsh; this might be      This specifies the name of the program to use for logging in to the
439      the absolute filename of rsh or the name of a workalike program.      remote host.  Depending on `tramp-connection-function', this may be
440    * `tramp-rsh-args'      the name of rsh or a workalike program (when
441        `tramp-connection-function' is `tramp-open-connection-rsh'), or the
442        name of telnet or a workalike (for `tramp-open-connection-telnet'),
443        or the name of su or a workalike (for `tramp-open-connection-su').
444      * `tramp-login-args'
445      This specifies the list of arguments to pass to the above      This specifies the list of arguments to pass to the above
446      mentioned program.  Please note that this is a list of arguments,      mentioned program.  Please note that this is a list of arguments,
447      that is, normally you don't want to put \"-a -b\" or \"-f foo\"      that is, normally you don't want to put \"-a -b\" or \"-f foo\"
448      here.  Instead, you want two list elements, one for \"-a\" and one      here.  Instead, you want two list elements, one for \"-a\" and one
449      for \"-b\", or one for \"-f\" and one for \"foo\".      for \"-b\", or one for \"-f\" and one for \"foo\".
450    * `tramp-rcp-program'      If `tramp-connection-function' is `tramp-open-connection-su', then
451      This specifies the name of the program to use for rcp; this might be      \"%u\" in this list is replaced by the user name, and \"%%\" can
452      the absolute filename of rcp or the name of a workalike program.      be used to obtain a literal percent character.
453    * `tramp-rcp-args'    * `tramp-copy-program'
454        This specifies the name of the program to use for remotely copying
455        the file; this might be the absolute filename of rcp or the name of
456        a workalike program.
457      * `tramp-copy-args'
458      This specifies the list of parameters to pass to the above mentioned      This specifies the list of parameters to pass to the above mentioned
459      program, the hints for `tramp-rsh-args' also apply here.      program, the hints for `tramp-login-args' also apply here.
460    * `tramp-rcp-keep-date-arg'    * `tramp-copy-keep-date-arg'
461      This specifies the parameter to use for `rcp' when the timestamp      This specifies the parameter to use for the copying program when the
462      of the original file should be kept.  For `rcp', use `-p', for      timestamp of the original file should be kept.  For `rcp', use `-p', for
463      `rsync', use `-t'.      `rsync', use `-t'.
464    * `tramp-su-program'  
465      This specifies the name of the program to use for `su'.  What does all this mean?  Well, you should specify `tramp-login-program'
466    * `tramp-su-args'  for all methods; this program is used to log in to the remote site.  Then,
467      This specifies the list of arguments to pass to `su'.  there are two ways to actually transfer the files between the local and the
468      \"%u\" is replaced by the user name, use \"%%\" for a literal  remote side.  One way is using an additional rcp-like program.  If you want
469      percent character.  to do this, set `tramp-copy-program' in the method.
   * `tramp-telnet-program'  
     Specifies the telnet program to use when using  
     `tramp-open-connection-telnet' to log in.  
   * `tramp-telnet-args'  
     Specifies list of arguments to pass to `telnet'.  The hints for  
     `tramp-rsh-args' also apply here.  
   
 What does all this mean?  Well, you should specify `tramp-rsh-program',  
 `tramp-telnet-program' or `tramp-su-program' for all methods; this program  
 is used to log in to the remote site.  Then, there are two ways to  
 actually transfer the files between the local and the remote side.  
 One way is using an additional rcp-like program.  If you want to do  
 this, set `tramp-rcp-program' in the method.  
470    
471  Another possibility for file transfer is inline transfer, i.e. the  Another possibility for file transfer is inline transfer, i.e. the
472  file is passed through the same buffer used by `tramp-rsh-program'.  In  file is passed through the same buffer used by `tramp-login-program'.  In
473  this case, the file contents need to be protected since the  this case, the file contents need to be protected since the
474  `tramp-rsh-program' might use escape codes or the connection might not  `tramp-login-program' might use escape codes or the connection might not
475  be eight-bit clean.  Therefore, file contents are encoded for transit.  be eight-bit clean.  Therefore, file contents are encoded for transit.
476  See the variable `tramp-coding-commands' for details.  See the variable `tramp-coding-commands' for details.
477    
478  So, to summarize: if the method is an out-of-band method, then you  So, to summarize: if the method is an out-of-band method, then you
479  must specify `tramp-rcp-program' and `tramp-rcp-args'.  If it is an  must specify `tramp-copy-program' and `tramp-copy-args'.  If it is an
480  inline method, then these two parameters should be nil.  Every method,  inline method, then these two parameters should be nil.  Every method,
481  inline or out of band, must specify `tramp-connection-function' plus  inline or out of band, must specify `tramp-connection-function' plus
482  the associated arguments (for example, the telnet program if you chose  the associated arguments (for example, the login program if you chose
483  `tramp-open-connection-telnet').  `tramp-open-connection-telnet').
484    
485  Notes:  Notes:
# Line 596  host other than `localhost' or the name Line 493  host other than `localhost' or the name
493    :type '(repeat    :type '(repeat
494            (cons string            (cons string
495                  (set (list (const tramp-connection-function) function)                  (set (list (const tramp-connection-function) function)
496                       (list (const tramp-rsh-program)                       (list (const tramp-login-program)
497                             (choice (const nil) string))                             (choice (const nil) string))
498                       (list (const tramp-rcp-program)                       (list (const tramp-copy-program)
499                             (choice (const nil) string))                             (choice (const nil) string))
500                       (list (const tramp-remote-sh)                       (list (const tramp-remote-sh)
501                             (choice (const nil) string))                             (choice (const nil) string))
502                       (list (const tramp-rsh-args) (repeat string))                       (list (const tramp-login-args) (repeat string))
503                       (list (const tramp-rcp-args) (repeat string))                       (list (const tramp-copy-args) (repeat string))
504                       (list (const tramp-rcp-keep-date-arg)                       (list (const tramp-copy-keep-date-arg)
                            (choice (const nil) string))  
                      (list (const tramp-su-program)  
505                             (choice (const nil) string))                             (choice (const nil) string))
                      (list (const tramp-su-args) (repeat string))  
506                       (list (const tramp-encoding-command)                       (list (const tramp-encoding-command)
507                             (choice (const nil) string))                             (choice (const nil) string))
508                       (list (const tramp-decoding-command)                       (list (const tramp-decoding-command)
# Line 616  host other than `localhost' or the name Line 510  host other than `localhost' or the name
510                       (list (const tramp-encoding-function)                       (list (const tramp-encoding-function)
511                             (choice (const nil) function))                             (choice (const nil) function))
512                       (list (const tramp-decoding-function)                       (list (const tramp-decoding-function)
513                             (choice (const nil) function))                             (choice (const nil) function))))))
                      (list (const tramp-telnet-program)  
                            (choice (const nil) string))  
                      (list (const tramp-telnet-args) (repeat string))))))  
514    
515  (defcustom tramp-multi-methods '("multi" "multiu")  (defcustom tramp-multi-methods '("multi" "multiu")
516    "*List of multi-hop methods.    "*List of multi-hop methods.
# Line 629  variable `tramp-methods'." Line 520  variable `tramp-methods'."
520    :type '(repeat string))    :type '(repeat string))
521    
522  (defcustom tramp-multi-connection-function-alist  (defcustom tramp-multi-connection-function-alist
523    `(("telnet" tramp-multi-connect-telnet "telnet %h%n")    '(("telnet" tramp-multi-connect-telnet "telnet %h%n")
524      ("rsh"    tramp-multi-connect-rlogin      ("rsh"    tramp-multi-connect-rlogin "rsh %h -l %u%n")
525       ,(concat tramp-real-rsh-program " %h -l %u%n"))      ("remsh"  tramp-multi-connect-rlogin "remsh %h -l %u%n")
526      ("ssh"    tramp-multi-connect-rlogin "ssh %h -l %u%n")      ("ssh"    tramp-multi-connect-rlogin "ssh %h -l %u%n")
527      ("su"     tramp-multi-connect-su     "su - %u%n")      ("su"     tramp-multi-connect-su     "su - %u%n")
528      ("sudo"   tramp-multi-connect-su     "sudo -u %u -s -p Password:%n"))      ("sudo"   tramp-multi-connect-su     "sudo -u %u -s -p Password:%n"))
# Line 1334  method parameter, as specified in `tramp Line 1225  method parameter, as specified in `tramp
1225  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1226  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1227    
1228  (defvar tramp-rsh-program nil  (defvar tramp-login-program nil
1229    "This internal variable holds a parameter for `tramp-methods'.    "This internal variable holds a parameter for `tramp-methods'.
1230  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1231  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1232    
1233  (defvar tramp-rsh-args nil  (defvar tramp-login-args nil
1234    "This internal variable holds a parameter for `tramp-methods'.    "This internal variable holds a parameter for `tramp-methods'.
1235  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1236  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1237    
1238  (defvar tramp-rcp-program nil  (defvar tramp-copy-program nil
1239    "This internal variable holds a parameter for `tramp-methods'.    "This internal variable holds a parameter for `tramp-methods'.
1240  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1241  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1242    
1243  (defvar tramp-rcp-args nil  (defvar tramp-copy-args nil
1244    "This internal variable holds a parameter for `tramp-methods'.    "This internal variable holds a parameter for `tramp-methods'.
1245  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1246  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1247    
1248  (defvar tramp-rcp-keep-date-arg nil  (defvar tramp-copy-keep-date-arg nil
1249    "This internal variable holds a parameter for `tramp-methods'.    "This internal variable holds a parameter for `tramp-methods'.
1250  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1251  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
# Line 1379  method parameter, as specified in `tramp Line 1270  method parameter, as specified in `tramp
1270  In the connection buffer, this variable has the value of the like-named  In the connection buffer, this variable has the value of the like-named
1271  method parameter, as specified in `tramp-methods' (which see).")  method parameter, as specified in `tramp-methods' (which see).")
1272    
 (defvar tramp-telnet-program nil  
   "This internal variable holds a parameter for `tramp-methods'.  
 In the connection buffer, this variable has the value of the like-named  
 method parameter, as specified in `tramp-methods' (which see).")  
   
 (defvar tramp-telnet-args nil  
   "This internal variable holds a parameter for `tramp-methods'.  
 In the connection buffer, this variable has the value of the like-named  
 method parameter, as specified in `tramp-methods' (which see).")  
   
 (defvar tramp-su-program nil  
   "This internal variable holds a parameter for `tramp-methods'.  
 In the connection buffer, this variable has the value of the like-named  
 method parameter, as specified in `tramp-methods' (which see).")  
   
1273  ;; CCC `local in each buffer'?  ;; CCC `local in each buffer'?
1274  (defvar tramp-ls-command nil  (defvar tramp-ls-command nil
1275    "This command is used to get a long listing with numeric user and group ids.    "This command is used to get a long listing with numeric user and group ids.
# Line 2640  and `rename'.  FILENAME and NEWNAME must Line 2516  and `rename'.  FILENAME and NEWNAME must
2516              ;; source and target file.              ;; source and target file.
2517    
2518              ;; CCC: If both source and target are Tramp files,              ;; CCC: If both source and target are Tramp files,
2519              ;; and both are using the same rcp-program, then we              ;; and both are using the same copy-program, then we
2520              ;; can invoke rcp directly.  Note that              ;; can invoke rcp directly.  Note that
2521              ;; default-directory should point to a local              ;; default-directory should point to a local
2522              ;; directory if we want to invoke rcp.              ;; directory if we want to invoke rcp.
# Line 3049  This will break if COMMAND prints a newl Line 2925  This will break if COMMAND prints a newl
2925    (with-parsed-tramp-file-name filename nil    (with-parsed-tramp-file-name filename nil
2926      (let ((output-buf (get-buffer-create "*tramp output*"))      (let ((output-buf (get-buffer-create "*tramp output*"))
2927            (tramp-buf (tramp-get-buffer multi-method method user host))            (tramp-buf (tramp-get-buffer multi-method method user host))
2928            (rcp-program (tramp-get-rcp-program            (copy-program (tramp-get-copy-program
2929                          multi-method                           multi-method
2930                          (tramp-find-method multi-method method user host)                           (tramp-find-method multi-method method user host)
2931                          user host))                           user host))
2932            (rcp-args (tramp-get-rcp-args            (copy-args (tramp-get-copy-args
2933                       multi-method                        multi-method
2934                       (tramp-find-method multi-method method user host)                        (tramp-find-method multi-method method user host)
2935                       user host))                        user host))
2936            ;; We used to bind the following as late as possible.            ;; We used to bind the following as late as possible.
2937            ;; loc-enc and loc-dec were bound directly before the if            ;; loc-enc and loc-dec were bound directly before the if
2938            ;; statement that checks them.  But the functions            ;; statement that checks them.  But the functions
# Line 3072  This will break if COMMAND prints a newl Line 2948  This will break if COMMAND prints a newl
2948          (error "Cannot make local copy of non-existing file `%s'"          (error "Cannot make local copy of non-existing file `%s'"
2949                 filename))                 filename))
2950        (setq tmpfil (tramp-make-temp-file))        (setq tmpfil (tramp-make-temp-file))
2951        (cond (rcp-program        (cond (copy-program
2952               ;; Use rcp-like program for file transfer.               ;; Use rcp-like program for file transfer.
2953               (tramp-message-for-buffer               (tramp-message-for-buffer
2954                multi-method method user host                multi-method method user host
# Line 3081  This will break if COMMAND prints a newl Line 2957  This will break if COMMAND prints a newl
2957               (unless (equal               (unless (equal
2958                        0                        0
2959                        (apply #'call-process                        (apply #'call-process
2960                               rcp-program                               copy-program
2961                               nil output-buf nil                               nil output-buf nil
2962                               (append rcp-args                               (append copy-args
2963                                       (list                                       (list
2964                                        (tramp-make-rcp-program-file-name                                        (tramp-make-copy-program-file-name
2965                                         user host                                         user host
2966                                         (tramp-shell-quote-argument localname))                                         (tramp-shell-quote-argument localname))
2967                                        tmpfil))))                                        tmpfil))))
# Line 3093  This will break if COMMAND prints a newl Line 2969  This will break if COMMAND prints a newl
2969                 (error                 (error
2970                  (concat "tramp-handle-file-local-copy: `%s' didn't work, "                  (concat "tramp-handle-file-local-copy: `%s' didn't work, "
2971                          "see buffer `%s' for details")                          "see buffer `%s' for details")
2972                  rcp-program output-buf))                  copy-program output-buf))
2973               (tramp-message-for-buffer               (tramp-message-for-buffer
2974                multi-method method user host                multi-method method user host
2975                5 "Fetching %s to tmp file %s...done" filename tmpfil))                5 "Fetching %s to tmp file %s...done" filename tmpfil))
# Line 3217  This will break if COMMAND prints a newl Line 3093  This will break if COMMAND prints a newl
3093        (error "File not overwritten")))        (error "File not overwritten")))
3094    (with-parsed-tramp-file-name filename nil    (with-parsed-tramp-file-name filename nil
3095      (let ((curbuf (current-buffer))      (let ((curbuf (current-buffer))
3096            (rcp-program (tramp-get-rcp-program            (copy-program (tramp-get-copy-program
3097                          multi-method (tramp-find-method multi-method method user host)                           multi-method
3098                          user host))                           (tramp-find-method multi-method method user host)
3099            (rcp-args (tramp-get-rcp-args                           user host))
3100              (copy-args (tramp-get-copy-args
3101                       multi-method                       multi-method
3102                       (tramp-find-method multi-method method user host)                       (tramp-find-method multi-method method user host)
3103                       user host))                       user host))
# Line 3258  This will break if COMMAND prints a newl Line 3135  This will break if COMMAND prints a newl
3135        ;; decoding command must be specified.  However, if the method        ;; decoding command must be specified.  However, if the method
3136        ;; _also_ specifies an encoding function, then that is used for        ;; _also_ specifies an encoding function, then that is used for
3137        ;; encoding the contents of the tmp file.        ;; encoding the contents of the tmp file.
3138        (cond (rcp-program        (cond (copy-program
3139               ;; use rcp-like program for file transfer               ;; use rcp-like program for file transfer
3140               (let ((argl (append rcp-args               (let ((argl (append copy-args
3141                                   (list                                   (list
3142                                    tmpfil                                    tmpfil
3143                                    (tramp-make-rcp-program-file-name                                    (tramp-make-copy-program-file-name
3144                                     user host                                     user host
3145                                     (tramp-shell-quote-argument localname))))))                                     (tramp-shell-quote-argument localname))))))
3146                 (tramp-message-for-buffer                 (tramp-message-for-buffer
3147                  multi-method method user host                  multi-method method user host
3148                  6 "Writing tmp file using `%s'..." rcp-program)                  6 "Writing tmp file using `%s'..." copy-program)
3149                 (save-excursion (set-buffer trampbuf) (erase-buffer))                 (save-excursion (set-buffer trampbuf) (erase-buffer))
3150                 (when tramp-debug-buffer                 (when tramp-debug-buffer
3151                   (save-excursion                   (save-excursion
# Line 3276  This will break if COMMAND prints a newl Line 3153  This will break if COMMAND prints a newl
3153                                                         method user host))                                                         method user host))
3154                     (goto-char (point-max))                     (goto-char (point-max))
3155                     (tramp-insert-with-face                     (tramp-insert-with-face
3156                      'bold (format "$ %s %s\n" rcp-program                      'bold (format "$ %s %s\n" copy-program
3157                                    (mapconcat 'identity argl " ")))))                                    (mapconcat 'identity argl " ")))))
3158                 (unless (equal 0                 (unless (equal 0
3159                                (apply #'call-process                                (apply #'call-process
3160                                       rcp-program nil trampbuf nil argl))                                       copy-program nil trampbuf nil argl))
3161                   (pop-to-buffer trampbuf)                   (pop-to-buffer trampbuf)
3162                   (error                   (error
3163                    "Cannot write region to file `%s', command `%s' failed"                    "Cannot write region to file `%s', command `%s' failed"
3164                    filename rcp-program))                    filename copy-program))
3165                 (tramp-message-for-buffer                 (tramp-message-for-buffer
3166                  multi-method method user host                  multi-method method user host
3167                  6 "Transferring file using `%s'...done"                  6 "Transferring file using `%s'...done"
3168                  rcp-program)))                  copy-program)))
3169              ((and rem-enc rem-dec)              ((and rem-enc rem-dec)
3170               ;; Use inline file transfer               ;; Use inline file transfer
3171               (let ((tmpbuf (get-buffer-create " *tramp file transfer*")))               (let ((tmpbuf (get-buffer-create " *tramp file transfer*")))
# Line 4645  Maybe the different regular expressions Line 4522  Maybe the different regular expressions
4522               (p (apply 'start-process               (p (apply 'start-process
4523                         (tramp-buffer-name multi-method method user host)                         (tramp-buffer-name multi-method method user host)
4524                         (tramp-get-buffer multi-method method user host)                         (tramp-get-buffer multi-method method user host)
4525                         (tramp-get-telnet-program                         (tramp-get-login-program
4526                          multi-method                          multi-method
4527                          (tramp-find-method multi-method method user host)                          (tramp-find-method multi-method method user host)
4528                          user host)                          user host)
4529                         host                         host
4530                         (tramp-get-telnet-args                         (tramp-get-login-args
4531                          multi-method                          multi-method
4532                          (tramp-find-method multi-method method user host)                          (tramp-find-method multi-method method user host)
4533                          user host)))                          user host)))
# Line 4702  arguments, and xx will be used as the ho Line 4579  arguments, and xx will be used as the ho
4579      (let ((process-environment (copy-sequence process-environment))      (let ((process-environment (copy-sequence process-environment))
4580            (bufnam (tramp-buffer-name multi-method method user host))            (bufnam (tramp-buffer-name multi-method method user host))
4581            (buf (tramp-get-buffer multi-method method user host))            (buf (tramp-get-buffer multi-method method user host))
4582            (rsh-program (tramp-get-rsh-program            (login-program (tramp-get-login-program
4583                          multi-method                          multi-method
4584                          (tramp-find-method multi-method method user host)                          (tramp-find-method multi-method method user host)
4585                          user host))                          user host))
4586            (rsh-args (tramp-get-rsh-args            (login-args (tramp-get-login-args
4587                       multi-method                       multi-method
4588                       (tramp-find-method multi-method method user host)                       (tramp-find-method multi-method method user host)
4589                       user host)))                       user host)))
4590        ;; The following should be changed.  We need a more general        ;; The following should be changed.  We need a more general
4591        ;; mechanism to parse extra host args.        ;; mechanism to parse extra host args.
4592        (when (string-match "\\([^#]*\\)#\\(.*\\)" host)        (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
4593          (setq rsh-args (cons "-p" (cons (match-string 2 host) rsh-args)))          (setq login-args (cons "-p" (cons (match-string 2 host) rsh-args)))
4594          (setq host (match-string 1 host)))          (setq host (match-string 1 host)))
4595        (setenv "TERM" tramp-terminal-type)        (setenv "TERM" tramp-terminal-type)
4596        (let* ((default-directory (tramp-temporary-file-directory))        (let* ((default-directory (tramp-temporary-file-directory))
# Line 4724  arguments, and xx will be used as the ho Line 4601  arguments, and xx will be used as the ho
4601                                                    (> emacs-major-version 20))                                                    (> emacs-major-version 20))
4602                                         tramp-dos-coding-system))                                         tramp-dos-coding-system))
4603               (p (if (and user (not (string= user "")))               (p (if (and user (not (string= user "")))
4604                      (apply #'start-process bufnam buf rsh-program                        (apply #'start-process bufnam buf login-program  
4605                             host "-l" user rsh-args)                             host "-l" user login-args)
4606                    (apply #'start-process bufnam buf rsh-program                    (apply #'start-process bufnam buf login-program
4607                           host rsh-args)))                           host login-args)))
4608               (found nil))               (found nil))
4609          (process-kill-without-query p)          (process-kill-without-query p)
4610    
# Line 4777  prompt than you do, so it is not at all Line 4654  prompt than you do, so it is not at all
4654               (p (apply 'start-process               (p (apply 'start-process
4655                         (tramp-buffer-name multi-method method user host)                         (tramp-buffer-name multi-method method user host)
4656                         (tramp-get-buffer multi-method method user host)                         (tramp-get-buffer multi-method method user host)
4657                         (tramp-get-su-program                         (tramp-get-login-program
4658                          multi-method                          multi-method
4659                          (tramp-find-method multi-method method user host)                          (tramp-find-method multi-method method user host)
4660                          user host)                          user host)
4661                         (mapcar                         (mapcar
4662                          (lambda (x)                          (lambda (x)
4663                            (format-spec x `((?u . ,(or user "root")))))                            (format-spec x `((?u . ,(or user "root")))))
4664                          (tramp-get-su-args                          (tramp-get-login-args
4665                           multi-method                           multi-method
4666                           (tramp-find-method multi-method method user host)                           (tramp-find-method multi-method method user host)
4667                           user host))))                           user host))))
# Line 5240  locale to C and sets up the remote shell Line 5117  locale to C and sets up the remote shell
5117                   " -e '" tramp-perl-file-attributes "' $1 2>/dev/null\n"                   " -e '" tramp-perl-file-attributes "' $1 2>/dev/null\n"
5118                   "}"))                   "}"))
5119          (tramp-wait-for-output)          (tramp-wait-for-output)
5120          (unless (tramp-get-rcp-program          (unless (tramp-get-copy-program
5121                   multi-method                   multi-method
5122                   (tramp-find-method multi-method method user host)                   (tramp-find-method multi-method method user host)
5123                   user host)                   user host)
# Line 5282  locale to C and sets up the remote shell Line 5159  locale to C and sets up the remote shell
5159        (tramp-set-connection-property "ln" ln multi-method method user host)))        (tramp-set-connection-property "ln" ln multi-method method user host)))
5160    (erase-buffer)    (erase-buffer)
5161    ;; Find the right encoding/decoding commands to use.    ;; Find the right encoding/decoding commands to use.
5162    (unless (tramp-get-rcp-program    (unless (tramp-get-copy-program
5163             multi-method             multi-method
5164             (tramp-find-method multi-method method user host)             (tramp-find-method multi-method method user host)
5165             user host)             user host)
# Line 5975  If both MULTI-METHOD and METHOD are nil, Line 5852  If both MULTI-METHOD and METHOD are nil,
5852          (incf i)))          (incf i)))
5853      (concat prefix hops localname)))      (concat prefix hops localname)))
5854    
5855  (defun tramp-make-rcp-program-file-name (user host localname)  (defun tramp-make-copy-program-file-name (user host localname)
5856    "Create a file name suitable to be passed to `rcp'."    "Create a file name suitable to be passed to `rcp' and workalikes."
5857    (if user    (if user
5858        (format "%s@%s:%s" user host localname)        (format "%s@%s:%s" user host localname)
5859      (format "%s:%s" host localname)))      (format "%s:%s" host localname)))
# Line 5984  If both MULTI-METHOD and METHOD are nil, Line 5861  If both MULTI-METHOD and METHOD are nil,
5861  (defun tramp-method-out-of-band-p (multi-method method user host)  (defun tramp-method-out-of-band-p (multi-method method user host)
5862    "Return t if this is an out-of-band method, nil otherwise.    "Return t if this is an out-of-band method, nil otherwise.
5863  It is important to check for this condition, since it is not possible  It is important to check for this condition, since it is not possible
5864  to enter a password for the `tramp-rcp-program'."  to enter a password for the `tramp-copy-program'."
5865    (tramp-get-rcp-program    (tramp-get-copy-program
5866     multi-method     multi-method
5867     (tramp-find-method multi-method method user host)     (tramp-find-method multi-method method user host)
5868     user host))     user host))
# Line 6083  If the value is not set for the connecti Line 5960  If the value is not set for the connecti
5960                (error "Method `%s' didn't specify a remote shell"                (error "Method `%s' didn't specify a remote shell"
5961                       (or multi-method method)))))                       (or multi-method method)))))
5962    
5963  (defun tramp-get-rsh-program (multi-method method user host)  (defun tramp-get-login-program (multi-method method user host)
5964    (second (or (assoc 'tramp-rsh-program    (second (or (assoc 'tramp-login-program
5965                       (assoc (tramp-find-method multi-method method user host)                       (assoc (tramp-find-method multi-method method user host)
5966                              tramp-methods))                              tramp-methods))
5967                (error "Method `%s' didn't specify an rsh program"                (error "Method `%s' didn't specify a login program"
5968                       (or multi-method method)))))                       (or multi-method method)))))
5969    
5970  (defun tramp-get-rsh-args (multi-method method user host)  (defun tramp-get-login-args (multi-method method user host)
5971    (second (or (assoc 'tramp-rsh-args    (second (or (assoc 'tramp-login-args
5972                       (assoc (tramp-find-method multi-method method user host)                       (assoc (tramp-find-method multi-method method user host)
5973                              tramp-methods))                              tramp-methods))
5974                (error "Method `%s' didn't specify rsh args"                (error "Method `%s' didn't specify login args"
5975                       (or multi-method method)))))                       (or multi-method method)))))
5976    
5977  (defun tramp-get-rcp-program (multi-method method user host)  (defun tramp-get-copy-program (multi-method method user host)
5978    (second (or (assoc 'tramp-rcp-program    (second (or (assoc 'tramp-copy-program
5979                       (assoc (tramp-find-method multi-method method user host)                       (assoc (tramp-find-method multi-method method user host)
5980                              tramp-methods))                              tramp-methods))
5981                (error "Method `%s' didn't specify an rcp program"                (error "Method `%s' didn't specify a copy program"
5982                       (or multi-method method)))))                       (or multi-method method)))))
5983    
5984  (defun tramp-get-rcp-args (multi-method method user host)  (defun tramp-get-copy-args (multi-method method user host)
5985    (second (or (assoc 'tramp-rcp-args    (second (or (assoc 'tramp-copy-args
5986                       (assoc (tramp-find-method multi-method method user host)                       (assoc (tramp-find-method multi-method method user host)
5987                              tramp-methods))                              tramp-methods))
5988                (error "Method `%s' didn't specify rcp args"                (error "Method `%s' didn't specify copy args"
5989                       (or multi-method method)))))                       (or multi-method method)))))
5990    
5991  (defun tramp-get-rcp-keep-date-arg (multi-method method user host)  (defun tramp-get-copy-keep-date-arg (multi-method method user host)
5992    (second (or (assoc 'tramp-rcp-keep-date-arg    (second (or (assoc 'tramp-copy-keep-date-arg
5993                       (assoc (tramp-find-method multi-method method user host)                       (assoc (tramp-find-method multi-method method user host)
5994                              tramp-methods))                              tramp-methods))
5995                (error "Method `%s' didn't specify `keep-date' arg for tramp"                (error "Method `%s' didn't specify `keep-date' arg for tramp"
5996                       (or multi-method method)))))                       (or multi-method method)))))
5997    
 (defun tramp-get-su-program (multi-method method user host)  
   (second (or (assoc 'tramp-su-program  
                      (assoc (tramp-find-method multi-method method user host)  
                             tramp-methods))  
               (error "Method `%s' didn't specify a su program"  
                      (or multi-method method)))))  
   
 (defun tramp-get-su-args (multi-method method user host)  
   (second (or (assoc 'tramp-su-args  
                      (assoc (tramp-find-method multi-method method user host)  
                             tramp-methods))  
               (error "Method `%s' didn't specify su args"  
                      (or multi-method method)))))  
   
 (defun tramp-get-telnet-program (multi-method method user host)  
   (second (or (assoc 'tramp-telnet-program  
                      (assoc (tramp-find-method multi-method method user host)  
                             tramp-methods))  
               (error "Method `%s' didn't specify a telnet program"  
                      (or multi-method method)))))  
   
 (defun tramp-get-telnet-args (multi-method method user host)  
   (second (or (assoc 'tramp-telnet-args  
                      (assoc (tramp-find-method multi-method method user host)  
                             tramp-methods))  
               (error "Method `%s' didn't specify telnet args"  
                      (or multi-method method)))))  
   
   
5998  ;; Auto saving to a special directory.  ;; Auto saving to a special directory.
5999    
6000  (defun tramp-make-auto-save-file-name (fn)  (defun tramp-make-auto-save-file-name (fn)

Legend:
Removed from v.2.300  
changed lines
  Added in v.2.301

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