Greg Stark <[EMAIL PROTECTED]> writes:
> This has been a bug for a long time, but rcp should do a
> (let ((default-directory "/")) (start-process...))
Like this?
--- rcp.el 1999/11/09 15:50:15 1.204
+++ rcp.el 1999/11/13 12:01:47
@@ -2237,11 +2237,15 @@
method))
(rcp-pre-connection method user host)
(rcp-message 7 "Opening connection for %s@%s using %s..." user host method)
- (let ((p (start-process (rcp-buffer-name method user host)
- (rcp-get-buffer method user host)
- (rcp-get-telnet-program method) host))
- (found nil)
- (pw nil))
+ (let* ((default-directory (if (and default-directory
+ (file-exists-p default-directory))
+ default-directory
+ "/"))
+ (p (start-process (rcp-buffer-name method user host)
+ (rcp-get-buffer method user host)
+ (rcp-get-telnet-program method) host))
+ (found nil)
+ (pw nil))
(process-kill-without-query p)
(rcp-message 9 "Waiting for login prompt...")
;; CCC adjust regexp here?
@@ -2285,10 +2289,14 @@
method parameters."
(rcp-pre-connection method user host)
(rcp-message 7 "Opening connection for %s@%s using %s..." user host method)
- (let ((p (start-process (rcp-buffer-name method user host)
- (rcp-get-buffer method user host)
- (rcp-get-rsh-program method) host "-l" user))
- (found nil))
+ (let* ((default-directory (if (and default-directory
+ (file-exists-p default-directory))
+ default-directory
+ "/"))
+ (p (start-process (rcp-buffer-name method user host)
+ (rcp-get-buffer method user host)
+ (rcp-get-rsh-program method) host "-l" user))
+ (found nil))
(process-kill-without-query p)
(setq found
(rcp-wait-for-regexp
kai
--
This gubblick contains many nonsklarkish English flutzpahs,
but the overall pluggandisp can be glorked from context. -- David Moser
