/[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.138 by kai, Sun Jul 21 08:44:54 2002 UTC revision 2.139 by kai, Tue Jul 23 09:38:24 2002 UTC
# Line 3875  at all unlikely that this variable is se Line 3875  at all unlikely that this variable is se
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))
# Line 3990  set in `tramp-rsh-end-of-line'.  Use `%% Line 3990  set in `tramp-rsh-end-of-line'.  Use `%%
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)
# Line 4040  will be replaced with the value of `tram Line 4041  will be replaced with the value of `tram
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)
# Line 4093  You can use percent escapes in the COMMA Line 4094  You can use percent escapes in the COMMA
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)
# Line 4927  remote path name." Line 4928  remote path name."
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?
# Line 4940  remote path name." Line 4941  remote path name."
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    

Legend:
Removed from v.2.138  
changed lines
  Added in v.2.139

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