From 625eb78e37a14a611660add753b2a3b9df1a7697 Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Mon, 25 Oct 1993 06:11:49 +0000 Subject: [PATCH] (ange-ftp-dired-uncache): Fix parens so that `(setq ...' is a result of the if statement, and not a top level expression. --- lisp/ange-ftp.el | 6 +++--- 1 file 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.") -- 2.39.5