diff options
| author | Richard M. Stallman | 1998-06-09 01:57:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-09 01:57:51 +0000 |
| commit | f5af0d61543ac24a29c05bf4350fb90f02277edb (patch) | |
| tree | 24368ce1af2a201e4f9710784faa83996ab97d28 | |
| parent | 852bff8fd8a99bb4821ef9610ebbc958c36af306 (diff) | |
| download | emacs-f5af0d61543ac24a29c05bf4350fb90f02277edb.tar.gz emacs-f5af0d61543ac24a29c05bf4350fb90f02277edb.zip | |
(ange-ftp-file-name-completion): Use ange-ftp-this-dir instead of
literal "/" when calling real completion function.
| -rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 1deb9afdcfa..927bb86c3f3 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -3821,7 +3821,8 @@ system TYPE.") | |||
| 3821 | file | 3821 | file |
| 3822 | (nconc (ange-ftp-generate-root-prefixes) | 3822 | (nconc (ange-ftp-generate-root-prefixes) |
| 3823 | (mapcar 'list | 3823 | (mapcar 'list |
| 3824 | (ange-ftp-real-file-name-all-completions file "/")))) | 3824 | (ange-ftp-real-file-name-all-completions |
| 3825 | file ange-ftp-this-dir)))) | ||
| 3825 | (ange-ftp-real-file-name-completion file ange-ftp-this-dir))))) | 3826 | (ange-ftp-real-file-name-completion file ange-ftp-this-dir))))) |
| 3826 | 3827 | ||
| 3827 | 3828 | ||