Mercurial > emacs
comparison lisp/net/tramp.el @ 79298:3e6cbd5009b5
*** 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 |