diff options
| author | Kai Großjohann | 2002-08-04 11:41:38 +0000 |
|---|---|---|
| committer | Kai Großjohann | 2002-08-04 11:41:38 +0000 |
| commit | 89509ea00af97d7d013cf87b17b86674f969d3b7 (patch) | |
| tree | 4fe274d60f2ef8aa161b1ea868c89aaf48edc302 | |
| parent | ccf29586ca76570b3b999a6e98b416688a7a4b07 (diff) | |
| download | emacs-89509ea00af97d7d013cf87b17b86674f969d3b7.tar.gz emacs-89509ea00af97d7d013cf87b17b86674f969d3b7.zip | |
Version 2.0.9 released.
(tramp-bug): Add wording about additional info to include in bug
report.
(tramp-find-shell): Set $PS1 for invocation of second shell (for
tilde expansion).
(tramp-find-shell): Shell prompt must match at end of buffer. Do
this also for fallback shell prompt.
(tramp-find-shell): More debugging output.
(tramp-find-inline-encoding): When checking the decoding command,
some commands fail when reading from /dev/null. So we pass a
known string through the encoding command and pass that through
the decoding command. So we know whether the decoding command can
deal with some real input.
| -rw-r--r-- | lisp/net/tramp.el | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index b1da1789dda..e3a4ebae9c1 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -72,7 +72,7 @@ | |||
| 72 | ;; In the Tramp CVS repository, the version numer is auto-frobbed from | 72 | ;; In the Tramp CVS repository, the version numer is auto-frobbed from |
| 73 | ;; the Makefile, so you should edit the top-level Makefile to change | 73 | ;; the Makefile, so you should edit the top-level Makefile to change |
| 74 | ;; the version number. | 74 | ;; the version number. |
| 75 | (defconst tramp-version "2.0.8" | 75 | (defconst tramp-version "2.0.9" |
| 76 | "This version of tramp.") | 76 | "This version of tramp.") |
| 77 | 77 | ||
| 78 | (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" | 78 | (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" |
| @@ -1244,7 +1244,7 @@ on the remote file system.") | |||
| 1244 | "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'" | 1244 | "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'" |
| 1245 | "Perl program to use for encoding a file. | 1245 | "Perl program to use for encoding a file. |
| 1246 | Escape sequence %s is replaced with name of Perl binary. | 1246 | Escape sequence %s is replaced with name of Perl binary. |
| 1247 | This string is passwd to `format', so percent characters need to be doubled. | 1247 | This string is passed to `format', so percent characters need to be doubled. |
| 1248 | This implementation requires the MIME::Base64 Perl module to be installed | 1248 | This implementation requires the MIME::Base64 Perl module to be installed |
| 1249 | on the remote host.") | 1249 | on the remote host.") |
| 1250 | 1250 | ||
| @@ -1252,7 +1252,7 @@ on the remote host.") | |||
| 1252 | "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'" | 1252 | "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'" |
| 1253 | "Perl program to use for decoding a file. | 1253 | "Perl program to use for decoding a file. |
| 1254 | Escape sequence %s is replaced with name of Perl binary. | 1254 | Escape sequence %s is replaced with name of Perl binary. |
| 1255 | This string is passwd to `format', so percent characters need to be doubled. | 1255 | This string is passed to `format', so percent characters need to be doubled. |
| 1256 | This implementation requires the MIME::Base64 Perl module to be installed | 1256 | This implementation requires the MIME::Base64 Perl module to be installed |
| 1257 | on the remote host.") | 1257 | on the remote host.") |
| 1258 | 1258 | ||
| @@ -3501,18 +3501,22 @@ file exists and nonzero exit status otherwise." | |||
| 3501 | 5 "Starting remote shell `%s' for tilde expansion..." shell) | 3501 | 5 "Starting remote shell `%s' for tilde expansion..." shell) |
| 3502 | (tramp-send-command | 3502 | (tramp-send-command |
| 3503 | multi-method method user host | 3503 | multi-method method user host |
| 3504 | (concat "PS1='$ ' ; exec " shell)) ; | 3504 | (concat "PS1='$ ' exec " shell)) ; |
| 3505 | (unless (tramp-wait-for-regexp | 3505 | (unless (tramp-wait-for-regexp |
| 3506 | (get-buffer-process (current-buffer)) | 3506 | (get-buffer-process (current-buffer)) |
| 3507 | 60 (format "\\(\\$ *\\|\\(%s\\)\\'\\)" shell-prompt-pattern)) | 3507 | 60 (format "\\(\\$ *\\|\\(%s\\)\\)\\'" shell-prompt-pattern)) |
| 3508 | (pop-to-buffer (buffer-name)) | 3508 | (pop-to-buffer (buffer-name)) |
| 3509 | (error "Couldn't find remote `%s' prompt." shell)) | 3509 | (error "Couldn't find remote `%s' prompt." shell)) |
| 3510 | (tramp-message | ||
| 3511 | 10 "Setting remote shell prompt...") | ||
| 3510 | (process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s" | 3512 | (process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s" |
| 3511 | tramp-rsh-end-of-line | 3513 | tramp-rsh-end-of-line |
| 3512 | tramp-end-of-output | 3514 | tramp-end-of-output |
| 3513 | tramp-rsh-end-of-line | 3515 | tramp-rsh-end-of-line |
| 3514 | tramp-rsh-end-of-line)) | 3516 | tramp-rsh-end-of-line)) |
| 3515 | (tramp-wait-for-output) | 3517 | (tramp-wait-for-output) |
| 3518 | (tramp-message | ||
| 3519 | 10 "Setting remote shell prompt...done") | ||
| 3516 | (tramp-send-command multi-method method user host "echo hello") | 3520 | (tramp-send-command multi-method method user host "echo hello") |
| 3517 | (tramp-message 5 "Waiting for remote `%s' to start up..." shell) | 3521 | (tramp-message 5 "Waiting for remote `%s' to start up..." shell) |
| 3518 | (unless (tramp-wait-for-output 5) | 3522 | (unless (tramp-wait-for-output 5) |
| @@ -4645,7 +4649,7 @@ Goes through the list `tramp-coding-commands'." | |||
| 4645 | "Checking remote decoding command `%s' for sanity" dc) | 4649 | "Checking remote decoding command `%s' for sanity" dc) |
| 4646 | (unless (zerop (tramp-send-command-and-check | 4650 | (unless (zerop (tramp-send-command-and-check |
| 4647 | multi-method method user host | 4651 | multi-method method user host |
| 4648 | (format "%s </dev/null >/dev/null" dc) t)) | 4652 | (format "echo xyzzy | %s | %s >/dev/null" ec dc) t)) |
| 4649 | (throw 'wont-work nil)) | 4653 | (throw 'wont-work nil)) |
| 4650 | ;; If no encoding/decoding function is given, the | 4654 | ;; If no encoding/decoding function is given, the |
| 4651 | ;; corresponding encoding/decoding command also has to work | 4655 | ;; corresponding encoding/decoding command also has to work |
| @@ -5654,6 +5658,12 @@ local and remote machines are. | |||
| 5654 | If you can give a simple set of instructions to make this bug happen | 5658 | If you can give a simple set of instructions to make this bug happen |
| 5655 | reliably, please include those. Thank you for helping kill bugs in | 5659 | reliably, please include those. Thank you for helping kill bugs in |
| 5656 | TRAMP. | 5660 | TRAMP. |
| 5661 | |||
| 5662 | Another useful thing to do is to put (setq tramp-debug-buffer t) in | ||
| 5663 | the ~/.emacs file and to repeat the bug. Then, include the contents | ||
| 5664 | of the *tramp/foo* buffer and the *debug tramp/foo* buffer in your bug | ||
| 5665 | report. | ||
| 5666 | |||
| 5657 | --bug report follows this line--"))) | 5667 | --bug report follows this line--"))) |
| 5658 | 5668 | ||
| 5659 | (defalias 'tramp-submit-bug 'tramp-bug) | 5669 | (defalias 'tramp-submit-bug 'tramp-bug) |