Mercurial > emacs

comparison lisp/net/tramp.el @ 79298:3e6cbd5009b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Michael Albinus <michael.albinus@gmx.de>
date Wed, 31 Oct 2007 20:48:52 +0000
parents ef0a2673bf5e
children 6888fd3398e8
comparison
equal deleted inserted replaced
79297:d03e9eca4102 79298:3e6cbd5009b5
5710 (tramp-pre-connection multi-method method user host tramp-chunksize) 5710 (tramp-pre-connection multi-method method user host tramp-chunksize)
5711 (tramp-message 7 "Opening connection for %s@%s using %s..." 5711 (tramp-message 7 "Opening connection for %s@%s using %s..."
5712 (or user (user-login-name)) host method) 5712 (or user (user-login-name)) host method)
5713 (let ((process-environment (copy-sequence process-environment))) 5713 (let ((process-environment (copy-sequence process-environment)))
5714 (setenv "TERM" tramp-terminal-type) 5714 (setenv "TERM" tramp-terminal-type)
5715 (setenv "LC_ALL" "C")
5715 (setenv "PROMPT_COMMAND") 5716 (setenv "PROMPT_COMMAND")
5716 (setenv "PS1" "$ ") 5717 (setenv "PS1" "$ ")
5717 (let* ((default-directory (tramp-temporary-file-directory)) 5718 (let* ((default-directory (tramp-temporary-file-directory))
5718 ;; If we omit the conditional here, then we would use 5719 ;; If we omit the conditional here, then we would use
5719 ;; `undecided-dos' in some cases. With the conditional, 5720 ;; `undecided-dos' in some cases. With the conditional,
5792 ;; mechanism to parse extra host args. 5793 ;; mechanism to parse extra host args.
5793 (when (string-match "\\([^#]*\\)#\\(.*\\)" host) 5794 (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
5794 (setq login-args (cons "-p" (cons (match-string 2 host) login-args))) 5795 (setq login-args (cons "-p" (cons (match-string 2 host) login-args)))
5795 (setq real-host (match-string 1 host))) 5796 (setq real-host (match-string 1 host)))
5796 (setenv "TERM" tramp-terminal-type) 5797 (setenv "TERM" tramp-terminal-type)
5798 (setenv "LC_ALL" "C")
5797 (setenv "PROMPT_COMMAND") 5799 (setenv "PROMPT_COMMAND")
5798 (setenv "PS1" "$ ") 5800 (setenv "PS1" "$ ")
5799 (let* ((default-directory (tramp-temporary-file-directory)) 5801 (let* ((default-directory (tramp-temporary-file-directory))
5800 ;; If we omit the conditional, we would use 5802 ;; If we omit the conditional, we would use
5801 ;; `undecided-dos' in some cases. With the conditional, 5803 ;; `undecided-dos' in some cases. With the conditional,
5845 (tramp-pre-connection multi-method method user host tramp-chunksize) 5847 (tramp-pre-connection multi-method method user host tramp-chunksize)
5846 (tramp-message 7 "Opening connection for `%s' using `%s'..." 5848 (tramp-message 7 "Opening connection for `%s' using `%s'..."
5847 (or user "<root>") method) 5849 (or user "<root>") method)
5848 (let ((process-environment (copy-sequence process-environment))) 5850 (let ((process-environment (copy-sequence process-environment)))
5849 (setenv "TERM" tramp-terminal-type) 5851 (setenv "TERM" tramp-terminal-type)
5852 (setenv "LC_ALL" "C")
5850 (setenv "PROMPT_COMMAND") 5853 (setenv "PROMPT_COMMAND")
5851 (setenv "PS1" "$ ") 5854 (setenv "PS1" "$ ")
5852 (let* ((default-directory (tramp-temporary-file-directory)) 5855 (let* ((default-directory (tramp-temporary-file-directory))
5853 ;; If we omit the conditional, we use `undecided-dos' in 5856 ;; If we omit the conditional, we use `undecided-dos' in
5854 ;; some cases. With the conditional, we use nil in these 5857 ;; some cases. With the conditional, we use nil in these
5911 (error "Arrays METHOD, USER, HOST must have equal length")) 5914 (error "Arrays METHOD, USER, HOST must have equal length"))
5912 (tramp-pre-connection multi-method method user host tramp-chunksize) 5915 (tramp-pre-connection multi-method method user host tramp-chunksize)
5913 (tramp-message 7 "Opening `%s' connection..." multi-method) 5916 (tramp-message 7 "Opening `%s' connection..." multi-method)
5914 (let ((process-environment (copy-sequence process-environment))) 5917 (let ((process-environment (copy-sequence process-environment)))
5915 (setenv "TERM" tramp-terminal-type) 5918 (setenv "TERM" tramp-terminal-type)
5919 (setenv "LC_ALL" "C")
5916 (setenv "PROMPT_COMMAND") 5920 (setenv "PROMPT_COMMAND")
5917 (setenv "PS1" "$ ") 5921 (setenv "PS1" "$ ")
5918 (let* ((default-directory (tramp-temporary-file-directory)) 5922 (let* ((default-directory (tramp-temporary-file-directory))
5919 ;; If we omit the conditional, we use `undecided-dos' in 5923 ;; If we omit the conditional, we use `undecided-dos' in
5920 ;; some cases. With the conditional, we use nil in these 5924 ;; some cases. With the conditional, we use nil in these