Mercurial > emacs
changeset 4887:78c004148b7c
(ange-ftp-dired-uncache): Fix parens so that `(setq ...' is a result
of the if statement, and not a top level expression.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Mon, 25 Oct 1993 06:11:49 +0000 |
| parents | 20e345c97e28 |
| children | a58a505c42d9 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.")