summaryrefslogtreecommitdiff
path: root/lisp/ange-ftp.el
diff options
context:
space:
mode:
authorBrian Fox <bfox@gnu.org>1993-10-25 06:11:49 +0000
committerBrian Fox <bfox@gnu.org>1993-10-25 06:11:49 +0000
commit625eb78e37a14a611660add753b2a3b9df1a7697 (patch)
tree5c0abe3a0095d8e3cd4321ef7fd189021e36cc02 /lisp/ange-ftp.el
parentadca5fa6ccdc30ceea907f1468fccef707988a6d (diff)
downloademacs-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.el6
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.")