You can subscribe to this list here.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(6) |
Dec
(35) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(31) |
Feb
(4) |
Mar
(10) |
Apr
(7) |
May
(5) |
Jun
(3) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Kai Gro?j. <ka...@us...> - 2002-06-04 16:11:46
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv29251/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-file-truename): Decrease limit on chasing symlinks to provide earlier error message in case of failure. People might think that Emacs is hanging. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.102 retrieving revision 2.103 diff -C2 -d -r2.102 -r2.103 *** ChangeLog 4 Jun 2002 12:52:19 -0000 2.102 --- ChangeLog 4 Jun 2002 16:11:41 -0000 2.103 *************** *** 2,5 **** --- 2,8 ---- * tramp.el (tramp-methods): Allow nil where strings are allowed. + (tramp-handle-file-truename): Decrease limit on chasing symlinks + to provide earlier error message in case of failure. People might + think that Emacs is hanging. 2002-05-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.102 retrieving revision 2.103 diff -C2 -d -r2.102 -r2.103 *** tramp.el 4 Jun 2002 12:52:19 -0000 2.102 --- tramp.el 4 Jun 2002 16:11:41 -0000 2.103 *************** *** 1437,1442 **** (thisstep nil) (numchase 0) ! (numchase-limit 100) ! (result nil) ;result steps in reverse order (curstri "") symlink-target) --- 1437,1446 ---- (thisstep nil) (numchase 0) ! ;; Don't make the following value larger than necessary. ! ;; People expect an error message in a timely fashion when ! ;; something is wrong; otherwise they might think that Emacs ! ;; is hung. Of course, correctness has to come first. ! (numchase-limit 30) ! (result nil) ;result steps in reverse order (curstri "") symlink-target) |
From: Kai Gro?j. <ka...@us...> - 2002-06-04 12:52:22
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv1662/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-methods): Allow nil where strings are allowed. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.101 retrieving revision 2.102 diff -C2 -d -r2.101 -r2.102 *** ChangeLog 22 May 2002 09:23:36 -0000 2.101 --- ChangeLog 4 Jun 2002 12:52:19 -0000 2.102 *************** *** 1,2 **** --- 1,6 ---- + 2002-06-04 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-methods): Allow nil where strings are allowed. + 2002-05-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.101 retrieving revision 2.102 diff -C2 -d -r2.101 -r2.102 *** tramp.el 22 May 2002 09:23:36 -0000 2.101 --- tramp.el 4 Jun 2002 12:52:19 -0000 2.102 *************** *** 705,721 **** (cons string (set (list (const tramp-connection-function) function) ! (list (const tramp-rsh-program) string) ! (list (const tramp-rcp-program) string) ! (list (const tramp-remote-sh) string) (list (const tramp-rsh-args) (repeat string)) (list (const tramp-rcp-args) (repeat string)) ! (list (const tramp-rcp-keep-date-arg) string) ! (list (const tramp-su-program) string) (list (const tramp-su-args) (repeat string)) ! (list (const tramp-encoding-command) string) ! (list (const tramp-decoding-command) string) ! (list (const tramp-encoding-function) function) ! (list (const tramp-decoding-function) function) ! (list (const tramp-telnet-program) string) (list (const tramp-telnet-args) (repeat string)))))) --- 705,731 ---- (cons string (set (list (const tramp-connection-function) function) ! (list (const tramp-rsh-program) ! (choice (const nil) string)) ! (list (const tramp-rcp-program) ! (choice (const nil) string)) ! (list (const tramp-remote-sh) ! (choice (const nil) string)) (list (const tramp-rsh-args) (repeat string)) (list (const tramp-rcp-args) (repeat string)) ! (list (const tramp-rcp-keep-date-arg) ! (choice (const nil) string)) ! (list (const tramp-su-program) ! (choice (const nil) string)) (list (const tramp-su-args) (repeat string)) ! (list (const tramp-encoding-command) ! (choice (const nil) string)) ! (list (const tramp-decoding-command) ! (choice (const nil) string)) ! (list (const tramp-encoding-function) ! (choice (const nil) function)) ! (list (const tramp-decoding-function) ! (choice (const nil) function)) ! (list (const tramp-telnet-program) ! (choice (const nil) string)) (list (const tramp-telnet-args) (repeat string)))))) |
From: Kai Gro?j. <ka...@us...> - 2002-06-04 12:52:14
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv1617/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: (Windows setup hints): Xref Cygwin FAQ. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.17 retrieving revision 2.18 diff -C2 -d -r2.17 -r2.18 *** ChangeLog 28 May 2002 11:01:36 -0000 2.17 --- ChangeLog 4 Jun 2002 12:52:11 -0000 2.18 *************** *** 1,2 **** --- 1,6 ---- + 2002-06-04 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.texi (Windows setup hints): Xref Cygwin FAQ. + 2002-05-28 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.15 retrieving revision 2.16 diff -C2 -d -r2.15 -r2.16 *** tramp.texi 28 May 2002 11:01:36 -0000 2.15 --- tramp.texi 4 Jun 2002 12:52:11 -0000 2.16 *************** *** 1084,1090 **** This section needs a lot of work! Please help. ! If you use the Cygwin installation of ssh (you have to explicitly ! select it in the installer), then it should work out of the box to just ! select @code{smx} as the connection method. --- 1084,1091 ---- This section needs a lot of work! Please help. ! If you use the Cygwin installation of ssh (you have to explicitly select ! it in the installer), then it should work out of the box to just select ! @code{smx} as the connection method. You can find information about ! setting up Cygwin in their FAQ at @uref{http://cygwin.com/faq/}. |
From: Kai Gro?j. <ka...@us...> - 2002-05-28 11:34:00
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv15149/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: (Windows setup hints): New section. Still too short. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.16 retrieving revision 2.17 diff -C2 -d -r2.16 -r2.17 *** ChangeLog 22 Apr 2002 18:54:54 -0000 2.16 --- ChangeLog 28 May 2002 11:01:36 -0000 2.17 *************** *** 1,2 **** --- 1,6 ---- + 2002-05-28 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.texi (Windows setup hints): New section. Still too short. + 2002-04-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.14 retrieving revision 2.15 diff -C2 -d -r2.14 -r2.15 *** tramp.texi 22 Apr 2002 18:54:54 -0000 2.14 --- tramp.texi 28 May 2002 11:01:36 -0000 2.15 *************** *** 13,17 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Monday, 22 April, 2002 --- 13,17 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Tuesday, 28 May, 2002 *************** *** 549,553 **** * Customizing Methods:: Using Non-Standard Methods. * Remote Programs:: How @tramp{} finds and uses programs on the remote machine. ! * Remote shell setup:: @end menu --- 549,554 ---- * Customizing Methods:: Using Non-Standard Methods. * Remote Programs:: How @tramp{} finds and uses programs on the remote machine. ! * Remote shell setup:: Remote shell setup hints. ! * Windows setup hints:: Issues with Cygwin ssh. @end menu *************** *** 1077,1080 **** --- 1078,1090 ---- @end itemize + + @node Windows setup hints + @section Issues with Cygwin ssh + + This section needs a lot of work! Please help. + + If you use the Cygwin installation of ssh (you have to explicitly + select it in the installer), then it should work out of the box to just + select @code{smx} as the connection method. |
From: Kai Gro?j. <ka...@us...> - 2002-05-22 09:23:40
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv19218/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-find-shell, tramp-open-connection-telnet) (tramp-open-connection-rsh, tramp-open-connection-su) (tramp-open-connection-multi, tramp-multi-connect-telnet) (tramp-multi-connect-rlogin) (tramp-open-connection-setup-interactive-shell): Shell prompt must match at end of buffer. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.100 retrieving revision 2.101 diff -C2 -d -r2.100 -r2.101 *** ChangeLog 21 May 2002 10:48:43 -0000 2.100 --- ChangeLog 22 May 2002 09:23:36 -0000 2.101 *************** *** 1,2 **** --- 1,11 ---- + 2002-05-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-find-shell, tramp-open-connection-telnet) + (tramp-open-connection-rsh, tramp-open-connection-su) + (tramp-open-connection-multi, tramp-multi-connect-telnet) + (tramp-multi-connect-rlogin) + (tramp-open-connection-setup-interactive-shell): Shell prompt + must match at end of buffer. + 2002-05-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.100 retrieving revision 2.101 diff -C2 -d -r2.100 -r2.101 *** tramp.el 21 May 2002 10:48:43 -0000 2.100 --- tramp.el 22 May 2002 09:23:36 -0000 2.101 *************** *** 3190,3194 **** (unless (tramp-wait-for-regexp (get-buffer-process (current-buffer)) ! 60 (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't find remote `%s' prompt." shell)) --- 3190,3194 ---- (unless (tramp-wait-for-regexp (get-buffer-process (current-buffer)) ! 60 (format "\\(\\$ *\\|\\(%s\\)\\'\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't find remote `%s' prompt." shell)) *************** *** 3333,3337 **** (unless (setq found (tramp-wait-for-regexp ! p 30 (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern))) --- 3333,3337 ---- (unless (setq found (tramp-wait-for-regexp ! p 30 (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern))) *************** *** 3402,3406 **** p 60 (format ! "\\(%s\\)\\|\\(%s\\)" tramp-password-prompt-regexp shell-prompt-pattern))) --- 3402,3406 ---- p 60 (format ! "\\(%s\\)\\|\\(%s\\)\\'" tramp-password-prompt-regexp shell-prompt-pattern))) *************** *** 3421,3425 **** (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern)))) --- 3421,3425 ---- (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern)))) *************** *** 3487,3491 **** (unless (setq found (tramp-wait-for-regexp p 30 ! (format "\\(%s\\)\\|\\(%s\\)" tramp-password-prompt-regexp shell-prompt-pattern))) --- 3487,3491 ---- (unless (setq found (tramp-wait-for-regexp p 30 ! (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-password-prompt-regexp shell-prompt-pattern))) *************** *** 3501,3505 **** (unless (setq found (tramp-wait-for-regexp ! p 30 (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern))) --- 3501,3505 ---- (unless (setq found (tramp-wait-for-regexp ! p 30 (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern))) *************** *** 3559,3563 **** (process-kill-without-query p) (tramp-message 9 "Waiting 60s for local shell to come up...") ! (unless (tramp-wait-for-regexp p 60 shell-prompt-pattern) (pop-to-buffer (buffer-name)) (kill-process p) --- 3559,3564 ---- (process-kill-without-query p) (tramp-message 9 "Waiting 60s for local shell to come up...") ! (unless (tramp-wait-for-regexp ! p 60 (format "%s\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (kill-process p) *************** *** 3621,3625 **** (tramp-message 9 "Waiting 60s for remote shell to come up...") (unless (setq found (tramp-wait-for-regexp ! p 60 (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern))) --- 3622,3626 ---- (tramp-message 9 "Waiting 60s for remote shell to come up...") (unless (setq found (tramp-wait-for-regexp ! p 60 (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern))) *************** *** 3658,3662 **** (unless (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)" tramp-password-prompt-regexp shell-prompt-pattern))) --- 3659,3663 ---- (unless (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-password-prompt-regexp shell-prompt-pattern))) *************** *** 3670,3674 **** (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern)))) --- 3671,3675 ---- (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern)))) *************** *** 3708,3712 **** (tramp-message 9 "Waiting 60s for shell or passwd prompt for %s" (or user (user-login-name))) (unless (setq found (tramp-wait-for-regexp ! p 60 (format "\\(%s\\)\\|\\(%s\\)" tramp-password-prompt-regexp shell-prompt-pattern))) --- 3709,3713 ---- (tramp-message 9 "Waiting 60s for shell or passwd prompt for %s" (or user (user-login-name))) (unless (setq found (tramp-wait-for-regexp ! p 60 (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-password-prompt-regexp shell-prompt-pattern))) *************** *** 3721,3725 **** (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)" tramp-wrong-passwd-regexp shell-prompt-pattern)))) --- 3722,3726 ---- (tramp-message 9 "Sent password, waiting 60s for remote shell prompt") (setq found (tramp-wait-for-regexp p 60 ! (format "\\(%s\\)\\|\\(%s\\)\\'" tramp-wrong-passwd-regexp shell-prompt-pattern)))) *************** *** 3818,3823 **** (tramp-message 9 "Waiting 30s for remote `%s' to come up..." (tramp-get-remote-sh multi-method method)) ! (unless (tramp-wait-for-regexp p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Remote `%s' didn't come up. See buffer `%s' for details" --- 3819,3824 ---- (tramp-message 9 "Waiting 30s for remote `%s' to come up..." (tramp-get-remote-sh multi-method method)) ! (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Remote `%s' didn't come up. See buffer `%s' for details" *************** *** 3827,3832 **** (process-send-string nil (format "stty -inlcr -echo kill '^U'%s" tramp-rsh-end-of-line)) ! (unless (tramp-wait-for-regexp p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `stty -echo', see buffer `%s'" (buffer-name))) --- 3828,3833 ---- (process-send-string nil (format "stty -inlcr -echo kill '^U'%s" tramp-rsh-end-of-line)) ! (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `stty -echo', see buffer `%s'" (buffer-name))) *************** *** 3834,3839 **** (process-send-string nil (format "TERM=dumb; export TERM%s" tramp-rsh-end-of-line)) ! (unless (tramp-wait-for-regexp p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `TERM=dumb; export TERM', see buffer `%s'" (buffer-name))) --- 3835,3840 ---- (process-send-string nil (format "TERM=dumb; export TERM%s" tramp-rsh-end-of-line)) ! (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `TERM=dumb; export TERM', see buffer `%s'" (buffer-name))) *************** *** 3846,3850 **** tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `echo foo; echo bar' to determine line endings'")) --- 3847,3851 ---- tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `echo foo; echo bar' to determine line endings'")) *************** *** 3874,3879 **** (process-send-string nil (format "stty -onlcr%s" tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `stty -onlcr', see buffer `%s'" (buffer-name)))))) --- 3875,3879 ---- (process-send-string nil (format "stty -onlcr%s" tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `stty -onlcr', see buffer `%s'" (buffer-name)))))) *************** *** 3885,3890 **** tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error (concat "Couldn't `HISTFILE=$HOME/.tramp_history; " --- 3885,3889 ---- tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error (concat "Couldn't `HISTFILE=$HOME/.tramp_history; " *************** *** 3897,3902 **** tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `set +o vi +o emacs', see buffer `%s'" --- 3896,3900 ---- tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `set +o vi +o emacs', see buffer `%s'" *************** *** 3908,3913 **** tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `unset MAIL MAILCHECK MAILPATH', see buffer `%s'" --- 3906,3910 ---- tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `unset MAIL MAILCHECK MAILPATH', see buffer `%s'" *************** *** 3918,3923 **** nil (format "unset CDPATH%s" tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 ! (format "\\(\\$\\|%s\\)" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `unset CDPATH', see buffer `%s'" --- 3915,3919 ---- nil (format "unset CDPATH%s" tramp-rsh-end-of-line)) (unless (tramp-wait-for-regexp ! p 30 (format "\\(\\$ *\\|%s\\)\\'" shell-prompt-pattern)) (pop-to-buffer (buffer-name)) (error "Couldn't `unset CDPATH', see buffer `%s'" |
From: Kai Gro?j. <ka...@us...> - 2002-05-21 10:48:47
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv8284/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-send-linewise): Use sleep-for instead of sit-for to wait 0.1s. sit-for does not wait if the user types ahead. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.99 retrieving revision 2.100 diff -C2 -d -r2.99 -r2.100 *** ChangeLog 20 May 2002 10:16:41 -0000 2.99 --- ChangeLog 21 May 2002 10:48:43 -0000 2.100 *************** *** 1,2 **** --- 1,7 ---- + 2002-05-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-send-linewise): Use sleep-for instead of sit-for + to wait 0.1s. sit-for does not wait if the user types ahead. + 2002-05-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.99 retrieving revision 2.100 diff -C2 -d -r2.99 -r2.100 *** tramp.el 20 May 2002 10:16:42 -0000 2.99 --- tramp.el 21 May 2002 10:48:43 -0000 2.100 *************** *** 4162,4166 **** (setq proc (get-buffer-process (current-buffer))) (mapcar (lambda (x) ! (sit-for 0.1) (process-send-string proc (concat x tramp-rsh-end-of-line))) --- 4162,4166 ---- (setq proc (get-buffer-process (current-buffer))) (mapcar (lambda (x) ! (sleep-for 0.1) (process-send-string proc (concat x tramp-rsh-end-of-line))) |
From: Kai Gro?j. <ka...@us...> - 2002-05-20 10:16:45
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv2718/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.el (tramp-send-linewise): Wait 0.1s instead of 0.001s. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.98 retrieving revision 2.99 diff -C2 -d -r2.98 -r2.99 *** ChangeLog 19 May 2002 21:30:15 -0000 2.98 --- ChangeLog 20 May 2002 10:16:41 -0000 2.99 *************** *** 1,2 **** --- 1,6 ---- + 2002-05-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-send-linewise): Wait 0.1s instead of 0.001s. + 2002-05-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.98 retrieving revision 2.99 diff -C2 -d -r2.98 -r2.99 *** tramp.el 19 May 2002 21:30:15 -0000 2.98 --- tramp.el 20 May 2002 10:16:42 -0000 2.99 *************** *** 4162,4166 **** (setq proc (get-buffer-process (current-buffer))) (mapcar (lambda (x) ! (sit-for 0.001) (process-send-string proc (concat x tramp-rsh-end-of-line))) --- 4162,4166 ---- (setq proc (get-buffer-process (current-buffer))) (mapcar (lambda (x) ! (sit-for 0.1) (process-send-string proc (concat x tramp-rsh-end-of-line))) |
From: Kai Gro?j. <ka...@us...> - 2002-05-19 21:30:19
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv29469/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.el (tramp-send-linewise): New function. (tramp-post-connection): Use it for sending long strings. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.97 retrieving revision 2.98 diff -C2 -d -r2.97 -r2.98 *** ChangeLog 14 Apr 2002 15:52:38 -0000 2.97 --- ChangeLog 19 May 2002 21:30:15 -0000 2.98 *************** *** 1,2 **** --- 1,12 ---- + 2002-05-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-send-linewise): New function. + (tramp-post-connection): Use it for sending long strings. + + 2002-04-16 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-shell-quote-argument): Todo item: don't use + `shell-quote-argument'. + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.97 retrieving revision 2.98 diff -C2 -d -r2.97 -r2.98 *** tramp.el 14 Apr 2002 15:52:38 -0000 2.97 --- tramp.el 19 May 2002 21:30:15 -0000 2.98 *************** *** 4038,4047 **** (when tramp-remote-perl (tramp-message 5 "Sending the Perl `file-attributes' implementation.") ! (tramp-send-command multi-method method user host ! (concat "tramp_file_attributes () {" tramp-rsh-end-of-line tramp-remote-perl ! " -e '" tramp-perl-file-attributes "' $1 2>/dev/null" ! tramp-rsh-end-of-line "}")) (tramp-wait-for-output) --- 4038,4046 ---- (when tramp-remote-perl (tramp-message 5 "Sending the Perl `file-attributes' implementation.") ! (tramp-send-linewise multi-method method user host ! (concat "tramp_file_attributes () {\n" tramp-remote-perl ! " -e '" tramp-perl-file-attributes "' $1 2>/dev/null\n" "}")) (tramp-wait-for-output) *************** *** 4049,4055 **** "tramp_mimencode") (tramp-message 5 "Sending the Perl `mime-encode' implementation.") ! (tramp-send-command multi-method method user host ! (concat "tramp_mimencode () {" tramp-rsh-end-of-line (if (tramp-find-executable multi-method method user host "mimencode" tramp-remote-path t) --- 4048,4054 ---- "tramp_mimencode") (tramp-message 5 "Sending the Perl `mime-encode' implementation.") ! (tramp-send-linewise multi-method method user host ! (concat "tramp_mimencode () {\n" (if (tramp-find-executable multi-method method user host "mimencode" tramp-remote-path t) *************** *** 4057,4069 **** (concat tramp-remote-perl " -e '" tramp-perl-mime-encode "' $1 2>/dev/null")) ! tramp-rsh-end-of-line ! "}")) (tramp-wait-for-output)) (when (string= (tramp-get-decoding-command multi-method method) "tramp_mimedecode") (tramp-message 5 "Sending the Perl `mime-decode' implementation.") ! (tramp-send-command multi-method method user host ! (concat "tramp_mimedecode () {" tramp-rsh-end-of-line (if (tramp-find-executable multi-method method user host "mimencode" tramp-remote-path t) --- 4056,4067 ---- (concat tramp-remote-perl " -e '" tramp-perl-mime-encode "' $1 2>/dev/null")) ! "\n}")) (tramp-wait-for-output)) (when (string= (tramp-get-decoding-command multi-method method) "tramp_mimedecode") (tramp-message 5 "Sending the Perl `mime-decode' implementation.") ! (tramp-send-linewise multi-method method user host ! (concat "tramp_mimedecode () {\n" (if (tramp-find-executable multi-method method user host "mimencode" tramp-remote-path t) *************** *** 4071,4076 **** (concat tramp-remote-perl " -e '" tramp-perl-mime-decode "' $1 2>/dev/null")) ! tramp-rsh-end-of-line ! "}")) (tramp-wait-for-output))))) ;; Find ln(1) --- 4069,4073 ---- (concat tramp-remote-perl " -e '" tramp-perl-mime-decode "' $1 2>/dev/null")) ! "\n}")) (tramp-wait-for-output))))) ;; Find ln(1) *************** *** 4140,4143 **** --- 4137,4170 ---- (concat command tramp-rsh-end-of-line)))) + ;; It seems that Tru64 Unix does not like it if long strings are sent + ;; to it in one go. (This happens when sending the Perl + ;; `file-attributes' implementation, for instance.) Therefore, we + ;; have this function which waits a bit at each line. + (defun tramp-send-linewise + (multi-method method user host string &optional noerase) + "Send the STRING to USER at HOST linewise. + Erases temporary buffer before sending the STRING (unless NOERASE + is true). + + The STRING is expected to use Unix line-endings, but the lines sent to + the remote host use line-endings as defined in the variable + `tramp-rsh-end-of-line'." + (tramp-maybe-open-connection multi-method method user host) + (when tramp-debug-buffer + (save-excursion + (set-buffer (tramp-get-debug-buffer multi-method method user host)) + (goto-char (point-max)) + (tramp-insert-with-face 'bold (format "$ %s\n" string)))) + (let ((proc nil) + (lines (split-string string "\n"))) + (set-buffer (tramp-get-buffer multi-method method user host)) + (unless noerase (erase-buffer)) + (setq proc (get-buffer-process (current-buffer))) + (mapcar (lambda (x) + (sit-for 0.001) + (process-send-string proc + (concat x tramp-rsh-end-of-line))) + lines))) + (defun tramp-wait-for-output (&optional timeout) "Wait for output from remote rsh command." *************** *** 4851,4854 **** --- 4878,4885 ---- ;; Thanks to Mario DeWeerd for the hint that it is sufficient for this ;; function to work with Bourne-like shells. + ;; + ;; CCC: This function should be rewritten so that + ;; `shell-quote-argument' is not used. This way, we are safe from + ;; changes in `shell-quote-argument'. (defun tramp-shell-quote-argument (s) "Similar to `shell-quote-argument', but groks newlines. *************** *** 4992,4995 **** --- 5023,5028 ---- ;;; TODO: + ;; * Rewrite `tramp-shell-quote-argument' to abstain from using + ;; `shell-quote-argument'. ;; * Completion gets confused when you leave out the method name. ;; * Support `dired-compress-file' filename handler. |
From: Kai Gro?j. <ka...@us...> - 2002-04-22 18:55:14
|
Update of /cvsroot/tramp/tramp/contrib In directory usw-pr-cvs1:/tmp/cvs-serv28663/tramp/contrib Added Files: dir_sample Log Message: --- NEW FILE: dir_sample --- This is the sample file ...dir_sample. Use it as a skeleton dir file to make a tramp.info entry. It will be concatenated into the rest of the info heirarchy if your info files are set up correctly. File: dir, Node: Top This is the top of the INFO tree This (the Directory node) gives a menu of major topics. Typing "q" exits, "?" lists all Info commands, "d" returns here, "h" gives a primer for first-timers, "mEmacs<Return>" visits the Emacs manual, etc. In Emacs, you can click mouse button 2 on a menu item or cross reference to select it. * Menu: |
From: Kai Gro?j. <ka...@us...> - 2002-04-22 18:54:57
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv28525/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: 2002-04-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> * tramp.texi (Top, Connection types, Dired, Back-end Versions, Path deconstruction): It's "its", not "it's". Thanks to Ted Stern for catching this. 2002-04-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> From Harry Putnam <re...@ne...>. Awaiting copyright assignment. * tramp.texi (Installation): Give more details on byte-compiling the Lisp files and creating and installing the info file. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.15 retrieving revision 2.16 diff -C2 -d -r2.15 -r2.16 *** ChangeLog 14 Apr 2002 15:52:39 -0000 2.15 --- ChangeLog 22 Apr 2002 18:54:54 -0000 2.16 *************** *** 1,2 **** --- 1,15 ---- + 2002-04-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.texi (Top, Connection types, Dired, Back-end Versions, + Path deconstruction): It's "its", not "it's". Thanks to Ted + Stern for catching this. + + 2002-04-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + From Harry Putnam <re...@ne...>. Awaiting copyright + assignment. + + * tramp.texi (Installation): Give more details on byte-compiling + the Lisp files and creating and installing the info file. + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.13 retrieving revision 2.14 diff -C2 -d -r2.13 -r2.14 *** tramp.texi 14 Apr 2002 15:52:39 -0000 2.13 --- tramp.texi 22 Apr 2002 18:54:54 -0000 2.14 *************** *** 13,17 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Sunday, 14 April, 2002 --- 13,17 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Monday, 22 April, 2002 *************** *** 188,192 **** How file names, directories and paths are mangled and managed. ! * Path deconstruction:: Breaking a path into it's components. @end detailmenu --- 188,192 ---- How file names, directories and paths are mangled and managed. ! * Path deconstruction:: Breaking a path into its components. @end detailmenu *************** *** 440,444 **** Optionally byte-compile all files in the Lisp directory, @file{~/emacs/tramp/lisp/}, by issuing a command like the following from ! that directory: @example make EMACS=emacs all # for Emacs users --- 440,444 ---- Optionally byte-compile all files in the Lisp directory, @file{~/emacs/tramp/lisp/}, by issuing a command like the following from ! the top level directory @file{~/emacs/tramp/}: @example make EMACS=emacs all # for Emacs users *************** *** 447,452 **** @item ! Tell Emacs about the new Lisp directory and the @tramp{} package, with ! the following lines in @file{~/.emacs}: @lisp (add-to-list 'load-path "~/emacs/tramp/lisp/") --- 447,468 ---- @item ! NOTE: ! @example ! If you run into problems running the example @command{make} ! commands, don't dispare. You can still byte compile the ! @file{*.el} files by opening emacs in @command{dired} ! (@command{C-x d}) mode, at @file{~/tramp/lisp}. Mark the lisp ! files with @command{m}, then press @command{B} to byte compile ! your selections. ! ! Something similar can be done to create the info manual. ! Just cd to @file{~/emacs/tramp/texi} and load the @file{tramp.texi} ! file in emacs. Then press @command{M-x makeinfo-buffer <RET>} ! to generate @file{tramp.info}. ! @end example ! ! @item ! Tell Emacs about the new Lisp directory and the @tramp{} package ! with the following lines in @file{~/.emacs}: @lisp (add-to-list 'load-path "~/emacs/tramp/lisp/") *************** *** 457,466 **** To be able to read the Info documentation, create a file @file{~/emacs/tramp/texi/dir} using for example the ! @command{install-info} command, and add the directory to the search path ! for Info. ! CCC Todo: explain how to use the @command{install-info} command. This ! works differently in Debian than on other systems. How does one create ! a @file{dir} file using @command{install-info} on Debian? If the environment variable @env{INFOPATH} is set, add the directory --- 473,506 ---- To be able to read the Info documentation, create a file @file{~/emacs/tramp/texi/dir} using for example the ! @command{install-info} command, and add the directory to the search ! path for Info. ! @item ! NOTE: ! @example ! On systems using `gnu' @command{install-info}, the ! @command{install-info} syntax is very direct and simple. One can ! cd to @file{~/emacs/tramp/texi} and type: ! @command{install-info tramp.info dir} ! and a @file{dir} file will be created with the @tramp{} ! entry. The info reader will know how to interpret it, but must ! be told where to find it (see below). If you want anything fancier ! you'll need to look through @command{man install-info}. ! ! Debian gnu/linux doesn't default to `gnu' @command{install-info} and ! uses its own version. This version does not create a @file{dir} file ! for you from scratch. You must provide a skeleton dir file it ! recognizes. One can be found in a default install at ! @file{/usr/info/dir}. Copy the top of this file down to the first ! occurrence of `* Menu' including that line plus one more blank line, ! to your working directory @file{texi/dir}, or use the sample provided ! in the @file{texi} directroy of this distribution. See ! @file{texi/dir_sample} ! ! Once a @file{dir} file is in place, this command will make the entry. ! install-info --infodir=. tramp.info ! If you want it in a specific category ! (see @command{man install-info} for further details) ! @end example If the environment variable @env{INFOPATH} is set, add the directory *************** *** 484,489 **** @end ifhtml - - @node Configuration, Usage, Installation, Top @chapter Configuring @tramp{} for use --- 524,527 ---- *************** *** 518,522 **** @section Types of connections made to remote machines. ! There are two basic types of transfer methods, each with it's own advantages and limitations. Both types of connection make use of a remote shell access program such as @command{rsh}, @command{ssh} or --- 556,560 ---- @section Types of connections made to remote machines. ! There are two basic types of transfer methods, each with its own advantages and limitations. Both types of connection make use of a remote shell access program such as @command{rsh}, @command{ssh} or *************** *** 1177,1181 **** If you need to browse a directory tree, Dired is a better choice, at ! present, than filename completion. Dired has it's own cache mechanism and will only fetch the directory listing once. --- 1215,1219 ---- If you need to browse a directory tree, Dired is a better choice, at ! present, than filename completion. Dired has its own cache mechanism and will only fetch the directory listing once. *************** *** 1471,1475 **** The default implementation of VC determines this value the first time it is needed and then stores the value globally to avoid the overhead of ! executing a process and parsing it's output each time the information is needed. --- 1509,1513 ---- The default implementation of VC determines this value the first time it is needed and then stores the value globally to avoid the overhead of ! executing a process and parsing its output each time the information is needed. *************** *** 1497,1506 **** @menu ! * Path deconstruction:: Breaking a path into it's components. @end menu @node Path deconstruction, , Files directories and paths, Files directories and paths ! @section Breaking a path into it's components. @tramp{} filenames are somewhat different, obviously, to ordinary path --- 1535,1544 ---- @menu ! * Path deconstruction:: Breaking a path into its components. @end menu @node Path deconstruction, , Files directories and paths, Files directories and paths ! @section Breaking a path into its components. @tramp{} filenames are somewhat different, obviously, to ordinary path |
From: Kai Gro?j. <ka...@us...> - 2002-04-14 15:52:43
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv14991/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: * tramp.texi (External transfer methods): Document the `pscp' method. * tramp.el (tramp-methods): New method "pscp". Suggestion from lawrence mitchell. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.14 retrieving revision 2.15 diff -C2 -d -r2.14 -r2.15 *** ChangeLog 14 Apr 2002 12:30:35 -0000 2.14 --- ChangeLog 14 Apr 2002 15:52:39 -0000 2.15 *************** *** 1,4 **** --- 1,9 ---- 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.texi (External transfer methods): Document the `pscp' + method. + + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.texi (Inline methods): Document the `km', `plinku' and `plinkm' methods. Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.12 retrieving revision 2.13 diff -C2 -d -r2.12 -r2.13 *** tramp.texi 14 Apr 2002 12:30:35 -0000 2.12 --- tramp.texi 14 Apr 2002 15:52:39 -0000 2.13 *************** *** 13,17 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Thursday, 11 April, 2002 --- 13,17 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Sunday, 14 April, 2002 *************** *** 790,793 **** --- 790,802 ---- pseudo tty. When this happens, the login shell is wont to not print any shell prompt, which confuses @tramp{} mightily. + + + @item @option{pscp} --- @command{plink} and @command{pscp} + + This method is similar to @option{scp}, but it uses the + @command{plink} command to connect to the remote host, and it uses + @command{pscp} for transferring the files. These programs are part + of PuTTY, an SSH implementation for Windows. + @end itemize |
From: Kai Gro?j. <ka...@us...> - 2002-04-14 15:52:43
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv14991/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.texi (External transfer methods): Document the `pscp' method. * tramp.el (tramp-methods): New method "pscp". Suggestion from lawrence mitchell. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.96 retrieving revision 2.97 diff -C2 -d -r2.96 -r2.97 *** ChangeLog 14 Apr 2002 12:30:35 -0000 2.96 --- ChangeLog 14 Apr 2002 15:52:38 -0000 2.97 *************** *** 1,4 **** --- 1,9 ---- 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.el (tramp-methods): New method "pscp". Suggestion from + lawrence mitchell. + + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.el (file-expand-wildcards): Advise it even on Emacs 21. (tramp-methods): New methods "plinku" and "plinkm". Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.96 retrieving revision 2.97 diff -C2 -d -r2.96 -r2.97 *** tramp.el 14 Apr 2002 12:30:35 -0000 2.96 --- tramp.el 14 Apr 2002 15:52:38 -0000 2.97 *************** *** 563,566 **** --- 563,582 ---- (tramp-telnet-program nil) (tramp-telnet-args nil)) + ("pscp" + (tramp-connection-function tramp-open-connection-rsh) + (tramp-rsh-program "plink") + (tramp-rcp-program "pscp") + (tramp-remote-sh "/bin/sh") + (tramp-rsh-args ("-ssh")) + (tramp-rcp-args nil) + (tramp-rcp-keep-date-arg "-p") + (tramp-su-program nil) + (tramp-su-args nil) + (tramp-encoding-command nil) + (tramp-decoding-command nil) + (tramp-encoding-function nil) + (tramp-decoding-function nil) + (tramp-telnet-program nil) + (tramp-telnet-args nil)) ) "*Alist of methods for remote files. |
From: Kai Gro?j. <ka...@us...> - 2002-04-14 12:30:42
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv25920/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.texi (Inline methods): Document the `km', `plinku' and `plinkm' methods. * tramp.el (file-expand-wildcards): Advise it even on Emacs 21. (tramp-methods): New methods "plinku" and "plinkm". "plinku" was suggested by Adam Przepiórkowski. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.95 retrieving revision 2.96 diff -C2 -d -r2.95 -r2.96 *** ChangeLog 10 Apr 2002 17:16:25 -0000 2.95 --- ChangeLog 14 Apr 2002 12:30:35 -0000 2.96 *************** *** 1,2 **** --- 1,8 ---- + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (file-expand-wildcards): Advise it even on Emacs 21. + (tramp-methods): New methods "plinku" and "plinkm". + "plinku" was suggested by Adam Przepiórkowski. + 2002-04-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.95 retrieving revision 2.96 diff -C2 -d -r2.95 -r2.96 *** tramp.el 10 Apr 2002 17:16:25 -0000 2.95 --- tramp.el 14 Apr 2002 12:30:35 -0000 2.96 *************** *** 530,533 **** --- 530,566 ---- (tramp-telnet-program nil) (tramp-telnet-args nil)) + ("plinku" + (tramp-connection-function tramp-open-connection-rsh) + (tramp-rsh-program "plink") + (tramp-rcp-program nil) + (tramp-remote-sh "/bin/sh") + (tramp-rsh-args ("-ssh")) ;optionally add "-v" + (tramp-rcp-args nil) + (tramp-rcp-keep-date-arg nil) + (tramp-su-program nil) + (tramp-su-args nil) + (tramp-encoding-command "uuencode xxx") + (tramp-decoding-command + "( uudecode -o - 2>/dev/null || uudecode -p 2>/dev/null )") + (tramp-encoding-function nil) + (tramp-decoding-function uudecode-decode-region) + (tramp-telnet-program nil) + (tramp-telnet-args nil)) + ("plinkm" + (tramp-connection-function tramp-open-connection-rsh) + (tramp-rsh-program "plink") + (tramp-rcp-program nil) + (tramp-remote-sh "/bin/sh") + (tramp-rsh-args ("-ssh")) ;optionally add "-v" + (tramp-rcp-args nil) + (tramp-rcp-keep-date-arg nil) + (tramp-su-program nil) + (tramp-su-args nil) + (tramp-encoding-command "mimencode -b") + (tramp-decoding-command "mimencode -u -b") + (tramp-encoding-function base64-encode-region) + (tramp-decoding-function base64-decode-region) + (tramp-telnet-program nil) + (tramp-telnet-args nil)) ) "*Alist of methods for remote files. *************** *** 1345,1349 **** (host (tramp-file-name-host v)) (path (tramp-file-name-path v))) ! (if (string= path "") ;; For a filename like "/[foo]", we return "/". The `else' ;; case would return "/[foo]" unchanged. But if we do that, --- 1378,1382 ---- (host (tramp-file-name-host v)) (path (tramp-file-name-path v))) ! (if (or (string= path "") (string= path "/")) ;; For a filename like "/[foo]", we return "/". The `else' ;; case would return "/[foo]" unchanged. But if we do that, *************** *** 4850,4868 **** ;; Another problem is that the check is done by Emacs version, which ;; is really not what we want to do. Oh, well. ! (when (and (not (featurep 'xemacs)) ! (= emacs-major-version 20)) ! (defadvice file-expand-wildcards (around tramp-fix activate) ! (let ((name (ad-get-arg 0))) ! (if (tramp-tramp-file-p name) ! ;; If it's a Tramp file, dissect it and look if wildcards ! ;; need to be expanded at all. ! (let ((v (tramp-dissect-file-name name))) ! (if (string-match "[[*?]" (tramp-file-name-path v)) ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name)))) ! (setq ad-return-value (list name)))) ! ;; If it is not a Tramp file, just run the original function. ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name)))))))) ;; Make the `reporter` functionality available for making bug reports about --- 4883,4904 ---- ;; Another problem is that the check is done by Emacs version, which ;; is really not what we want to do. Oh, well. ! ! ;;(when (and (not (featurep 'xemacs)) ! ;; (= emacs-major-version 20)) ! ;; It seems that this advice is needed in Emacs 21, too. ! (defadvice file-expand-wildcards (around tramp-fix activate) ! (let ((name (ad-get-arg 0))) ! (if (tramp-tramp-file-p name) ! ;; If it's a Tramp file, dissect it and look if wildcards ! ;; need to be expanded at all. ! (let ((v (tramp-dissect-file-name name))) ! (if (string-match "[[*?]" (tramp-file-name-path v)) ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name)))) ! (setq ad-return-value (list name)))) ! ;; If it is not a Tramp file, just run the original function. ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name))))))) ! ;; ) ;; Make the `reporter` functionality available for making bug reports about |
From: Kai Gro?j. <ka...@us...> - 2002-04-14 12:30:42
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv25920/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: * tramp.texi (Inline methods): Document the `km', `plinku' and `plinkm' methods. * tramp.el (file-expand-wildcards): Advise it even on Emacs 21. (tramp-methods): New methods "plinku" and "plinkm". "plinku" was suggested by Adam Przepiórkowski. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.13 retrieving revision 2.14 diff -C2 -d -r2.13 -r2.14 *** ChangeLog 21 Jan 2002 10:50:30 -0000 2.13 --- ChangeLog 14 Apr 2002 12:30:35 -0000 2.14 *************** *** 1,2 **** --- 1,7 ---- + 2002-04-14 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.texi (Inline methods): Document the `km', `plinku' and + `plinkm' methods. + 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.11 retrieving revision 2.12 diff -C2 -d -r2.11 -r2.12 *** tramp.texi 20 Jan 2002 16:39:40 -0000 2.11 --- tramp.texi 14 Apr 2002 12:30:35 -0000 2.12 *************** *** 13,17 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Sunday, 20 January, 2002 --- 13,17 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Thursday, 11 April, 2002 *************** *** 689,692 **** --- 689,712 ---- pseudo tty. When this happens, the login shell is wont to not print any shell prompt, which confuses @tramp{} mightily. + + + @item @option{km} --- @command{krlogin} with @command{mimencode} + + This method is also similar to @option{sm}. It only uses the + @command{krlogin -x} command to log in to the remote host. + + + @item @option{plinku} --- @command{plink} with @command{uuencode} + + This method is mostly interesting for Windows users using the PuTTY + implementation of SSH. It uses @command{plink -ssh} to log in to the + remote host. + + CCC: Do we have to connect to the remote host once from the command + line to accept the SSH key? Maybe this can be made automatic? + + @item @option{plinkm} --- @command{plink} with @command{mimencode} + + Like @option{plinku}, but uses base64 encoding instead of uu encoding. @end itemize |
From: Kai Gro?j. <ka...@us...> - 2002-04-10 19:00:23
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv3188/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-shell-quote-argument): When calling shell-quote-argument internally, make sure it uses Unix-like behavior, not Windows-like behavior. (This is done by binding system-type, which is certainly not the right way to do it!) Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.94 retrieving revision 2.95 diff -C2 -d -r2.94 -r2.95 *** ChangeLog 25 Mar 2002 16:32:36 -0000 2.94 --- ChangeLog 10 Apr 2002 17:16:25 -0000 2.95 *************** *** 1,2 **** --- 1,9 ---- + 2002-04-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-shell-quote-argument): When calling + shell-quote-argument internally, make sure it uses Unix-like + behavior, not Windows-like behavior. (This is done by binding + system-type, which is certainly not the right way to do it!) + 2002-03-25 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.94 retrieving revision 2.95 diff -C2 -d -r2.94 -r2.95 *** tramp.el 25 Mar 2002 16:32:25 -0000 2.94 --- tramp.el 10 Apr 2002 17:16:25 -0000 2.95 *************** *** 4795,4798 **** --- 4795,4803 ---- ;; massage the newline part of the result. ;; + ;; This function should produce a string which is grokked by a Unix + ;; shell, even if the Emacs is running on Windows. Since this is the + ;; kludges section, we bind `system-type' in such a way that + ;; `shell-quote-arguments' behaves as if on Unix. + ;; ;; Thanks to Mario DeWeerd for the hint that it is sufficient for this ;; function to work with Bourne-like shells. *************** *** 4800,4813 **** "Similar to `shell-quote-argument', but groks newlines. Only works for Bourne-like shells." ! (save-match-data ! (let ((result (shell-quote-argument s)) ! (nl (regexp-quote (format "\\%s" tramp-rsh-end-of-line)))) ! (when (and (>= (length result) 2) ! (string= (substring result 0 2) "\\~")) ! (setq result (substring result 1))) ! (while (string-match nl result) ! (setq result (replace-match (format "'%s'" tramp-rsh-end-of-line) ! t t result))) ! result))) ;; ;; EFS hooks itself into the file name handling stuff in more places --- 4805,4819 ---- "Similar to `shell-quote-argument', but groks newlines. Only works for Bourne-like shells." ! (let ((system-type 'not-windows)) ! (save-match-data ! (let ((result (shell-quote-argument s)) ! (nl (regexp-quote (format "\\%s" tramp-rsh-end-of-line)))) ! (when (and (>= (length result) 2) ! (string= (substring result 0 2) "\\~")) ! (setq result (substring result 1))) ! (while (string-match nl result) ! (setq result (replace-match (format "'%s'" tramp-rsh-end-of-line) ! t t result))) ! result)))) ;; ;; EFS hooks itself into the file name handling stuff in more places |
From: Kai Gro?j. <ka...@us...> - 2002-03-25 16:32:39
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv9773 Modified Files: ChangeLog Log Message: *** empty log message *** Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.93 retrieving revision 2.94 diff -C2 -d -r2.93 -r2.94 *** ChangeLog 25 Mar 2002 16:30:02 -0000 2.93 --- ChangeLog 25 Mar 2002 16:32:36 -0000 2.94 *************** *** 3,9 **** * tramp.el (tramp-handle-add-name-to-file): Use "ln" connection property instead of literal "ln" in command. ! (tramp-post-connection): Only set "ln" connection property if ! that program could be found. Erase buffer when done. ! (tramp-handle-expand-file-name): Erase buffer after expanding tilde. 2002-03-12 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> --- 3,10 ---- * tramp.el (tramp-handle-add-name-to-file): Use "ln" connection property instead of literal "ln" in command. ! (tramp-post-connection): Only set "ln" connection property if that ! program could be found. Erase buffer when done. ! (tramp-handle-expand-file-name): Erase buffer before and after ! expanding tilde. 2002-03-12 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> |
From: Kai Gro?j. <ka...@us...> - 2002-03-25 16:32:31
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv9680 Modified Files: tramp.el Log Message: Erase buffer before expanding tilde, too. Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.93 retrieving revision 2.94 diff -C2 -d -r2.93 -r2.94 *** tramp.el 25 Mar 2002 16:30:02 -0000 2.93 --- tramp.el 25 Mar 2002 16:32:25 -0000 2.94 *************** *** 2336,2339 **** --- 2336,2341 ---- (fname (match-string 2 path))) ;; CCC fanatic error checking? + (set-buffer (tramp-get-buffer multi-method method user host)) + (erase-buffer) (tramp-send-command multi-method method user host |
From: Kai Gro?j. <ka...@us...> - 2002-03-25 16:30:06
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv8654/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-expand-file-name): Erase buffer after expanding tilde. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.92 retrieving revision 2.93 diff -C2 -d -r2.92 -r2.93 *** ChangeLog 25 Mar 2002 09:29:39 -0000 2.92 --- ChangeLog 25 Mar 2002 16:30:02 -0000 2.93 *************** *** 5,8 **** --- 5,9 ---- (tramp-post-connection): Only set "ln" connection property if that program could be found. Erase buffer when done. + (tramp-handle-expand-file-name): Erase buffer after expanding tilde. 2002-03-12 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.92 retrieving revision 2.93 diff -C2 -d -r2.92 -r2.93 *** tramp.el 25 Mar 2002 09:29:39 -0000 2.92 --- tramp.el 25 Mar 2002 16:30:02 -0000 2.93 *************** *** 2343,2347 **** (goto-char (point-min)) (setq uname (buffer-substring (point) (tramp-line-end-position))) ! (setq path (concat uname fname)))) ;; No tilde characters in file name, do normal ;; expand-file-name (this does "/./" and "/../"). We bind --- 2343,2348 ---- (goto-char (point-min)) (setq uname (buffer-substring (point) (tramp-line-end-position))) ! (setq path (concat uname fname)) ! (erase-buffer))) ;; No tilde characters in file name, do normal ;; expand-file-name (this does "/./" and "/../"). We bind |
From: Kai Gro?j. <ka...@us...> - 2002-03-25 09:29:43
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv26050/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-add-name-to-file): Use "ln" connection property instead of literal "ln" in command. (tramp-post-connection): Only set "ln" connection property if that program could be found. Erase buffer when done. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.91 retrieving revision 2.92 diff -C2 -d -r2.91 -r2.92 *** ChangeLog 12 Mar 2002 10:07:47 -0000 2.91 --- ChangeLog 25 Mar 2002 09:29:39 -0000 2.92 *************** *** 1,2 **** --- 1,9 ---- + 2002-03-25 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-add-name-to-file): Use "ln" connection + property instead of literal "ln" in command. + (tramp-post-connection): Only set "ln" connection property if + that program could be found. Erase buffer when done. + 2002-03-12 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.91 retrieving revision 2.92 diff -C2 -d -r2.91 -r2.92 *** tramp.el 12 Mar 2002 10:07:47 -0000 2.91 --- tramp.el 25 Mar 2002 09:29:39 -0000 2.92 *************** *** 1915,1919 **** (host2 (when v2 (tramp-file-name-host v2))) (path1 (when v1 (tramp-file-name-path v1))) ! (path2 (when v2 (tramp-file-name-path v2)))) (unless (and meth1 meth2 user1 user2 host1 host2 (equal mmeth1 mmeth2) --- 1915,1920 ---- (host2 (when v2 (tramp-file-name-host v2))) (path1 (when v1 (tramp-file-name-path v1))) ! (path2 (when v2 (tramp-file-name-path v2))) ! (ln (when v1 (tramp-get-remote-ln mmeth1 meth1 user1 host1)))) (unless (and meth1 meth2 user1 user2 host1 host2 (equal mmeth1 mmeth2) *************** *** 1933,1937 **** (tramp-barf-unless-okay mmeth1 meth1 user1 host1 ! (format "ln %s %s" (tramp-shell-quote-argument path1) (tramp-shell-quote-argument path2)) nil 'file-error --- 1934,1938 ---- (tramp-barf-unless-okay mmeth1 meth1 user1 host1 ! (format "%s %s %s" ln (tramp-shell-quote-argument path1) (tramp-shell-quote-argument path2)) nil 'file-error *************** *** 4023,4031 **** ;; Find ln(1) (erase-buffer) ! (tramp-set-connection-property ! "ln" ! (tramp-find-executable multi-method method user host ! "ln" tramp-remote-path nil) ! multi-method method user host) ;; If encoding/decoding command are given, test to see if they work. ;; CCC: Maybe it would be useful to run the encoder both locally and --- 4024,4032 ---- ;; Find ln(1) (erase-buffer) ! (let ((ln (tramp-find-executable multi-method method user host ! "ln" tramp-remote-path nil))) ! (when ln ! (tramp-set-connection-property "ln" ln multi-method method user host))) ! (erase-buffer) ;; If encoding/decoding command are given, test to see if they work. ;; CCC: Maybe it would be useful to run the encoder both locally and |
From: Kai Gro?j. <ka...@us...> - 2002-03-12 10:07:51
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv10182/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-post-connection): Make sure to leave an empty connection buffer on exit. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.90 retrieving revision 2.91 diff -C2 -d -r2.90 -r2.91 *** ChangeLog 6 Mar 2002 11:54:26 -0000 2.90 --- ChangeLog 12 Mar 2002 10:07:47 -0000 2.91 *************** *** 1,2 **** --- 1,7 ---- + 2002-03-12 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-post-connection): Make sure to leave an empty + connection buffer on exit. + 2002-03-06 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.90 retrieving revision 2.91 diff -C2 -d -r2.90 -r2.91 *** tramp.el 6 Mar 2002 11:54:26 -0000 2.90 --- tramp.el 12 Mar 2002 10:07:47 -0000 2.91 *************** *** 4051,4054 **** --- 4051,4055 ---- (error "Remote host cannot execute de/encoding commands. See buffer `%s' for details" (buffer-name))) + (erase-buffer) (tramp-message 5 "Checking to see if encoding/decoding commands work on remote host...done")))) |
From: Kai Gro?j. <ka...@us...> - 2002-03-06 11:54:31
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv5779/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-make-symbolic-link) (tramp-handle-directory-files) (tramp-handle-file-name-all-completions) (tramp-handle-dired-call-process, tramp-handle-insert-directory) (tramp-handle-expand-file-name, tramp-handle-shell-command): Make sure to "cd" back to the home dir. Otherwise, previous commands could affect future commands because of the wrong cwd. (tramp-shell-quote-argument): Don't invoke substring on short strings. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.89 retrieving revision 2.90 diff -C2 -d -r2.89 -r2.90 *** ChangeLog 3 Mar 2002 16:47:28 -0000 2.89 --- ChangeLog 6 Mar 2002 11:54:26 -0000 2.90 *************** *** 1,2 **** --- 1,19 ---- + 2002-03-06 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-make-symbolic-link) + (tramp-handle-directory-files) + (tramp-handle-file-name-all-completions) + (tramp-handle-dired-call-process, tramp-handle-insert-directory) + (tramp-handle-expand-file-name, tramp-handle-shell-command): Make + sure to "cd" back to the home dir. Otherwise, previous commands + could affect future commands because of the wrong cwd. + (tramp-shell-quote-argument): Don't invoke substring on short + strings. + + 2002-03-05 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-shell-quote-argument): If the argument starts + with "~", don't quote that. Reported by Martin Guertler. + 2002-03-03 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.89 retrieving revision 2.90 diff -C2 -d -r2.89 -r2.90 *** tramp.el 1 Mar 2002 11:30:54 -0000 2.89 --- tramp.el 6 Mar 2002 11:54:26 -0000 2.90 *************** *** 1300,1304 **** cwd ln (tramp-file-name-path file) ; target ! (tramp-file-name-path link)))))) ; link name --- 1300,1305 ---- cwd ln (tramp-file-name-path file) ; target ! (tramp-file-name-path link)) ; link name ! t)))) *************** *** 1825,1829 **** x) result) ! (push x result))))) result)) --- 1826,1832 ---- x) result) ! (push x result)))) ! (tramp-send-command multi-method method user host "cd") ! (tramp-wait-for-output)) result)) *************** *** 1871,1874 **** --- 1874,1880 ---- (tramp-line-end-position)) result)) + + (tramp-send-command multi-method method user host "cd") + (tramp-wait-for-output) ;; Return the list. *************** *** 2180,2184 **** (insert-buffer (tramp-get-buffer multi-method method user host))) (save-excursion ! (tramp-send-command-and-check multi-method method user host nil)))) ;; Pacify byte-compiler. The function is needed on XEmacs only. I'm --- 2186,2193 ---- (insert-buffer (tramp-get-buffer multi-method method user host))) (save-excursion ! (prog1 ! (tramp-send-command-and-check multi-method method user host nil) ! (tramp-send-command multi-method method user host "cd") ! (tramp-wait-for-output))))) ;; Pacify byte-compiler. The function is needed on XEmacs only. I'm *************** *** 2258,2261 **** --- 2267,2273 ---- (let ((zmacs-region-stays t)) (exchange-point-and-mark)) + (save-excursion + (tramp-send-command multi-method method user host "cd") + (tramp-wait-for-output)) ;; Another XEmacs specialty follows. What's the right way to do ;; it? *************** *** 2325,2329 **** (tramp-send-command multi-method method user host ! (format "cd %s; pwd" uname)) (tramp-wait-for-output) (goto-char (point-min)) --- 2337,2342 ---- (tramp-send-command multi-method method user host ! (format "cd %s; pwd" uname) ! t) (tramp-wait-for-output) (goto-char (point-min)) *************** *** 2380,2383 **** --- 2393,2398 ---- (insert-buffer (tramp-get-buffer multi-method method user host)) (save-excursion + (tramp-send-command multi-method method user host "cd") + (tramp-wait-for-output) (tramp-send-command multi-method method user host *************** *** 4783,4786 **** --- 4798,4804 ---- (let ((result (shell-quote-argument s)) (nl (regexp-quote (format "\\%s" tramp-rsh-end-of-line)))) + (when (and (>= (length result) 2) + (string= (substring result 0 2) "\\~")) + (setq result (substring result 1))) (while (string-match nl result) (setq result (replace-match (format "'%s'" tramp-rsh-end-of-line) |
From: Kai Gro?j. <ka...@us...> - 2002-03-03 16:47:31
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv857/tramp/lisp Modified Files: ChangeLog tramp-util.el Log Message: (top-level): Require cl when compiling. This fixes problems with byte-compiling under Emacs 20. Reported by Yoichi NAKAYAMA <yo...@ek...>. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.88 retrieving revision 2.89 diff -C2 -d -r2.88 -r2.89 *** ChangeLog 1 Mar 2002 11:30:54 -0000 2.88 --- ChangeLog 3 Mar 2002 16:47:28 -0000 2.89 *************** *** 1,2 **** --- 1,8 ---- + 2002-03-03 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp-util.el (top-level): Require cl when compiling. This + fixes problems with byte-compiling under Emacs 20. Reported by + Yoichi NAKAYAMA <yo...@ek...>. + 2002-03-01 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp-util.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp-util.el,v retrieving revision 2.5 retrieving revision 2.6 diff -C2 -d -r2.5 -r2.6 *** tramp-util.el 29 Dec 2001 22:06:29 -0000 2.5 --- tramp-util.el 3 Mar 2002 16:47:28 -0000 2.6 *************** *** 28,31 **** --- 28,32 ---- ;;; Code: + (eval-when-compile (require 'cl)) (require 'compile) (require 'tramp) |
From: Kai Gro?j. <ka...@us...> - 2002-03-03 16:47:31
|
Update of /cvsroot/tramp/tramp In directory usw-pr-cvs1:/tmp/cvs-serv857/tramp Modified Files: CONTRIBUTORS Log Message: (top-level): Require cl when compiling. This fixes problems with byte-compiling under Emacs 20. Reported by Yoichi NAKAYAMA <yo...@ek...>. Index: CONTRIBUTORS =================================================================== RCS file: /cvsroot/tramp/tramp/CONTRIBUTORS,v retrieving revision 2.2 retrieving revision 2.3 diff -C2 -d -r2.2 -r2.3 *** CONTRIBUTORS 3 Mar 2002 16:01:41 -0000 2.2 --- CONTRIBUTORS 3 Mar 2002 16:47:28 -0000 2.3 *************** *** 1,15 **** ! Joe Stoy <joe...@ba...> ! Pete Forman <gs...@kr...> ! Daniel Pittman <da...@ri...> ! Matt Swift <sw...@al...> ! Mario De Weerd ! Francesco Potortì <po...@gn...> ! Dave Love <fx...@gn...> ! ? Matthias Köppe <mk...@cs...> ! Yuji Yamano <yy...@kt...> ! Ed Sabol <sa...@al...> ! Michael Welsh Duggan <md...@cs...> ! Steve Youngs <yo...@xe...> Stephen J. Turnbull <st...@xe...> This file is current as of: tramp.el version 2.89. --- 1,16 ---- ! Joe Stoy <joe...@ba...> (papers needed) ! Pete Forman <gs...@kr...> (papers probably not needed) ! Daniel Pittman <da...@ri...> (papers ok) ! Matt Swift <sw...@al...> (papers not needed) ! Mario De Weerd (papers not needed) ! Francesco Potortì <po...@gn...> (papers ok) ! Dave Love <fx...@gn...> (papers ok) ! Matthias Köppe <mk...@cs...> (papers ok [rcp.el]) ! Yuji Yamano <yy...@kt...> (papers needed) ! Ed Sabol <sa...@al...> (papers ok [rcp.el]) ! Michael Welsh Duggan <md...@cs...> (papers ok) ! Steve Youngs <yo...@xe...> (papers ok) Stephen J. Turnbull <st...@xe...> + Philippe Troin <ph...@fi...> (papers needed) This file is current as of: tramp.el version 2.89. |
From: Kai Gro?j. <ka...@us...> - 2002-03-03 16:01:44
|
Update of /cvsroot/tramp/tramp In directory usw-pr-cvs1:/tmp/cvs-serv19289/tramp Modified Files: CONTRIBUTORS Log Message: Index: CONTRIBUTORS =================================================================== RCS file: /cvsroot/tramp/tramp/CONTRIBUTORS,v retrieving revision 2.1 retrieving revision 2.2 diff -C2 -d -r2.1 -r2.2 *** CONTRIBUTORS 8 Dec 2001 00:55:55 -0000 2.1 --- CONTRIBUTORS 3 Mar 2002 16:01:41 -0000 2.2 *************** *** 11,12 **** --- 11,16 ---- Michael Welsh Duggan <md...@cs...> Steve Youngs <yo...@xe...> + Stephen J. Turnbull <st...@xe...> + + This file is current as of: tramp.el version 2.89. + tramp-vc.el version 2.1. |
From: Kai Gro?j. <ka...@us...> - 2002-03-01 11:30:57
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv10871/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-post-connection): Issue message when checking encoding/decoding commands is finished. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.87 retrieving revision 2.88 diff -C2 -d -r2.87 -r2.88 *** ChangeLog 18 Feb 2002 15:17:19 -0000 2.87 --- ChangeLog 1 Mar 2002 11:30:54 -0000 2.88 *************** *** 1,2 **** --- 1,7 ---- + 2002-03-01 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-post-connection): Issue message when checking + encoding/decoding commands is finished. + 2002-02-18 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.88 retrieving revision 2.89 diff -C2 -d -r2.88 -r2.89 *** tramp.el 18 Feb 2002 15:17:19 -0000 2.88 --- tramp.el 1 Mar 2002 11:30:54 -0000 2.89 *************** *** 4026,4030 **** (tramp-message 5 ! "Checking to see if encoding and decoding commands work on remote host.") (tramp-send-command multi-method method user host --- 4026,4030 ---- (tramp-message 5 ! "Checking to see if encoding/decoding commands work on remote host...") (tramp-send-command multi-method method user host *************** *** 4035,4039 **** (tramp-kill-process multi-method method user host) (error "Remote host cannot execute de/encoding commands. See buffer `%s' for details" ! (buffer-name)))))) --- 4035,4041 ---- (tramp-kill-process multi-method method user host) (error "Remote host cannot execute de/encoding commands. See buffer `%s' for details" ! (buffer-name))) ! (tramp-message ! 5 "Checking to see if encoding/decoding commands work on remote host...done")))) |