/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by rms, Sat Dec 29 02:50:34 2001 UTC revision 1.21 by pj, Thu Jan 3 08:38:45 2002 UTC
# Line 4423  NEWNAME should be the name to give the n Line 4423  NEWNAME should be the name to give the n
4423          (ange-ftp-real-shell-command command output-buffer error-buffer)          (ange-ftp-real-shell-command command output-buffer error-buffer)
4424        (if (> (length name) 0)           ; else it's $HOME        (if (> (length name) 0)           ; else it's $HOME
4425            (setq command (concat "cd " name "; " command)))            (setq command (concat "cd " name "; " command)))
4426          ;; Remove port from the hostname
4427          (string-match "\\(.*\\)#\\(.*\\)" host)
4428          (setq host (match-string 1 host))
4429        (setq command        (setq command
4430              (format  "%s %s \"%s\""     ; remsh -l USER does not work well              (format  "%s %s \"%s\""     ; remsh -l USER does not work well
4431                                          ; on a hp-ux machine I tried                                          ; on a hp-ux machine I tried

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26