diff options
| author | Brian Fox <bfox@gnu.org> | 1993-10-25 06:11:49 +0000 |
|---|---|---|
| committer | Brian Fox <bfox@gnu.org> | 1993-10-25 06:11:49 +0000 |
| commit | 625eb78e37a14a611660add753b2a3b9df1a7697 (patch) | |
| tree | 5c0abe3a0095d8e3cd4321ef7fd189021e36cc02 /lisp/ange-ftp.el | |
| parent | adca5fa6ccdc30ceea907f1468fccef707988a6d (diff) | |
| download | emacs-625eb78e37a14a611660add753b2a3b9df1a7697.tar.gz | |
(ange-ftp-dired-uncache): Fix parens so that `(setq ...' is a result
of the if statement, and not a top level expression.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index eb6e77cb07c..312f3ee6d35 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.32 $") +(defconst ange-ftp-version "$Revision: 1.33 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3940,8 +3940,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (ange-ftp-real-insert-directory file switches wildcard full)))) (defun ange-ftp-dired-uncache (dir) - (if (ange-ftp-ftp-name (expand-file-name dir))) - (setq ange-ftp-ls-cache-file nil)) + (if (ange-ftp-ftp-name (expand-file-name dir)) + (setq ange-ftp-ls-cache-file nil))) (defvar ange-ftp-sans-version-alist nil "Alist of mapping host type into function to remove file version numbers.") |