aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKai Großjohann2002-08-04 11:41:38 +0000
committerKai Großjohann2002-08-04 11:41:38 +0000
commit89509ea00af97d7d013cf87b17b86674f969d3b7 (patch)
tree4fe274d60f2ef8aa161b1ea868c89aaf48edc302
parentccf29586ca76570b3b999a6e98b416688a7a4b07 (diff)
downloademacs-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.el22
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.
1246Escape sequence %s is replaced with name of Perl binary. 1246Escape sequence %s is replaced with name of Perl binary.
1247This string is passwd to `format', so percent characters need to be doubled. 1247This string is passed to `format', so percent characters need to be doubled.
1248This implementation requires the MIME::Base64 Perl module to be installed 1248This implementation requires the MIME::Base64 Perl module to be installed
1249on the remote host.") 1249on 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.
1254Escape sequence %s is replaced with name of Perl binary. 1254Escape sequence %s is replaced with name of Perl binary.
1255This string is passwd to `format', so percent characters need to be doubled. 1255This string is passed to `format', so percent characters need to be doubled.
1256This implementation requires the MIME::Base64 Perl module to be installed 1256This implementation requires the MIME::Base64 Perl module to be installed
1257on the remote host.") 1257on 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.
5654If you can give a simple set of instructions to make this bug happen 5658If you can give a simple set of instructions to make this bug happen
5655reliably, please include those. Thank you for helping kill bugs in 5659reliably, please include those. Thank you for helping kill bugs in
5656TRAMP. 5660TRAMP.
5661
5662Another useful thing to do is to put (setq tramp-debug-buffer t) in
5663the ~/.emacs file and to repeat the bug. Then, include the contents
5664of the *tramp/foo* buffer and the *debug tramp/foo* buffer in your bug
5665report.
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)