3875 |
(tramp-get-su-program multi-method method) |
(tramp-get-su-program multi-method method) |
3876 |
(mapcar |
(mapcar |
3877 |
'(lambda (x) |
'(lambda (x) |
3878 |
(format-spec x `((?u ,user)))) |
(format-spec x `((?u . ,user)))) |
3879 |
(tramp-get-su-args multi-method method)))) |
(tramp-get-su-args multi-method method)))) |
3880 |
(found nil) |
(found nil) |
3881 |
(pw nil)) |
(pw nil)) |
3990 |
character. |
character. |
3991 |
|
|
3992 |
If USER is nil, uses the return value of (user-login-name) instead." |
If USER is nil, uses the return value of (user-login-name) instead." |
3993 |
(let ((cmd (format-spec command `((?h ,host) (?n ,tramp-rsh-end-of-line)))) |
(let ((cmd (format-spec command |
3994 |
(cmd1 (format-spec command `((?h ,host) (?n "")))) |
`((?h . ,host) (?n . ,tramp-rsh-end-of-line)))) |
3995 |
|
(cmd1 (format-spec command `((?h . ,host) (?n . "")))) |
3996 |
found pw) |
found pw) |
3997 |
(erase-buffer) |
(erase-buffer) |
3998 |
(tramp-message 9 "Sending telnet command `%s'" cmd1) |
(tramp-message 9 "Sending telnet command `%s'" cmd1) |
4041 |
`%%' if you want to use a literal percent character. |
`%%' if you want to use a literal percent character. |
4042 |
|
|
4043 |
If USER is nil, uses the return value of (user-login-name) instead." |
If USER is nil, uses the return value of (user-login-name) instead." |
4044 |
(let ((cmd (format-spec command `((?h ,host) |
(let ((cmd (format-spec command `((?h . ,host) |
4045 |
(?u ,(or user (user-login-name))) |
(?u . ,(or user (user-login-name))) |
4046 |
(?n ,tramp-rsh-end-of-line)))) |
(?n . ,tramp-rsh-end-of-line)))) |
4047 |
(cmd1 (format-spec command `((?h ,host) |
(cmd1 (format-spec command `((?h . ,host) |
4048 |
(?u ,(or user (user-login-name))) |
(?u . ,(or user (user-login-name))) |
4049 |
(?n "")))) |
(?n . "")))) |
4050 |
found) |
found) |
4051 |
(erase-buffer) |
(erase-buffer) |
4052 |
(tramp-message 9 "Sending rlogin command `%s'" cmd1) |
(tramp-message 9 "Sending rlogin command `%s'" cmd1) |
4094 |
user name, and `%n' is replaced with the value of |
user name, and `%n' is replaced with the value of |
4095 |
`tramp-rsh-end-of-line'. Use `%%' if you want a literal percent |
`tramp-rsh-end-of-line'. Use `%%' if you want a literal percent |
4096 |
character." |
character." |
4097 |
(let ((cmd (format-spec command `((?u ,(or user (user-login-name))) |
(let ((cmd (format-spec command `((?u . ,(or user (user-login-name))) |
4098 |
(?n ,tramp-rsh-end-of-line)))) |
(?n . ,tramp-rsh-end-of-line)))) |
4099 |
(cmd1 (format-spec command `((?u ,(or user (user-login-name))) |
(cmd1 (format-spec command `((?u . ,(or user (user-login-name))) |
4100 |
(?n "")))) |
(?n . "")))) |
4101 |
found) |
found) |
4102 |
(erase-buffer) |
(erase-buffer) |
4103 |
(tramp-message 9 "Sending su command `%s'" cmd1) |
(tramp-message 9 "Sending su command `%s'" cmd1) |
4928 |
(tramp-make-tramp-multi-file-name multi-method method user host path) |
(tramp-make-tramp-multi-file-name multi-method method user host path) |
4929 |
(if user |
(if user |
4930 |
(format-spec tramp-make-tramp-file-format |
(format-spec tramp-make-tramp-file-format |
4931 |
`((?m ,method) (?u ,user) (?h ,host) (?p ,path))) |
`((?m . ,method) (?u . ,user) (?h . ,host) (?p . ,path))) |
4932 |
(format-spec tramp-make-tramp-file-user-nil-format |
(format-spec tramp-make-tramp-file-user-nil-format |
4933 |
`((?m ,method) (?h ,host) (?p ,path)))))) |
`((?m . ,method) (?h . ,host) (?p . ,path)))))) |
4934 |
|
|
4935 |
;; CCC: Henrik Holm: Not Changed. Multi Method. What should be done |
;; CCC: Henrik Holm: Not Changed. Multi Method. What should be done |
4936 |
;; with this when USER is nil? |
;; with this when USER is nil? |
4941 |
(let* ((prefix-format (nth 0 tramp-make-multi-tramp-file-format)) |
(let* ((prefix-format (nth 0 tramp-make-multi-tramp-file-format)) |
4942 |
(hop-format (nth 1 tramp-make-multi-tramp-file-format)) |
(hop-format (nth 1 tramp-make-multi-tramp-file-format)) |
4943 |
(path-format (nth 2 tramp-make-multi-tramp-file-format)) |
(path-format (nth 2 tramp-make-multi-tramp-file-format)) |
4944 |
(prefix (format-spec prefix-format `((?m ,multi-method)))) |
(prefix (format-spec prefix-format `((?m . ,multi-method)))) |
4945 |
(hops "") |
(hops "") |
4946 |
(path (format-spec path-format `((?p ,path)))) |
(path (format-spec path-format `((?p . ,path)))) |
4947 |
(i 0) |
(i 0) |
4948 |
(len (length method))) |
(len (length method))) |
4949 |
(while (< i len) |
(while (< i len) |
4950 |
(let ((m (aref method i)) (u (aref user i)) (h (aref host i))) |
(let ((m (aref method i)) (u (aref user i)) (h (aref host i))) |
4951 |
(setq hops (concat hops (format-spec hop-format |
(setq hops (concat hops (format-spec hop-format |
4952 |
`((?m ,m) (?u ,u) (?h ,h))))) |
`((?m . ,m) (?u . ,u) (?h . ,h))))) |
4953 |
(incf i))) |
(incf i))) |
4954 |
(concat prefix hops path))) |
(concat prefix hops path))) |
4955 |
|
|