diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 9d2bf43c930..8142e812b74 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4484,7 +4484,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;; Follow symlinks. (let (tem) (while (and (not wildcard) - (stringp (setq tem (ange-ftp-get-file-entry + (stringp (setq tem (file-symlink-p (directory-file-name file))))) (setq file (ange-ftp-expand-symlink |