# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 751529509 0
# Node ID 78c004148b7c62123655f88e6ddaf451740588cc
# Parent  20e345c97e281f3842dcdb5ba498b5e81a49d5a3
(ange-ftp-dired-uncache): Fix parens so that `(setq ...' is a result
of the if statement, and not a top level expression.

diff -r 20e345c97e28 -r 78c004148b7c lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Mon Oct 25 06:07:23 1993 +0000
+++ b/lisp/ange-ftp.el	Mon Oct 25 06:11:49 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; 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 @@
       (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.")