# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1251560007 0
# Node ID 2362371c57c206f4e3065b8b52c6306eedfd8dbd
# Parent  016c8ff34021fa598fb9ad9068a55f71d809130e
(get-free-disk-space): Fix paren-typo in last change.

diff -r 016c8ff34021 -r 2362371c57c2 lisp/files.el
--- a/lisp/files.el	Sat Aug 29 14:58:15 2009 +0000
+++ b/lisp/files.el	Sat Aug 29 15:33:27 2009 +0000
@@ -5383,7 +5383,7 @@
 	  (when (and directory-free-space-program
 		     ;; Avoid failure if the default directory does
 		     ;; not exist (Bug#2631, Bug#3911).
-		     (let ((default-directory "/")
+		     (let ((default-directory "/"))
 		       (eq (call-process directory-free-space-program
 					 nil t nil
 					 directory-free-space-args