Mercurial > emacs
changeset 7923:457dc75d1d60
(ange-ftp-canonize-filename): Fix wrong var name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 16 Jun 1994 14:15:11 +0000 |
| parents | 8fcef41c85b7 |
| children | 63a2327f0783 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Thu Jun 16 08:09:34 1994 +0000 +++ b/lisp/ange-ftp.el Thu Jun 16 14:15:11 1994 +0000 @@ -851,7 +851,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.53 $") +(defconst ange-ftp-version "$Revision: 1.54 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -2784,12 +2784,12 @@ (error "Unable to obtain CWD"))))) ;; If name starts with //, preserve that, for apollo system. - (if (not (string-match "^//" path)) + (if (not (string-match "^//" name)) (progn - (setq path (ange-ftp-real-expand-file-name path)) - - (if (string-match "^//" path) - (setq path (substring path 1))))) + (setq name (ange-ftp-real-expand-file-name name)) + + (if (string-match "^//" name) + (setq name (substring name 1))))) ;; Now substitute the expanded name back into the overall filename. (ange-ftp-replace-name-component n name))