[Emacs-diffs] emacs/lisp ChangeLog files.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/29 14:58:19

Modified files:
        lisp           : ChangeLog files.el 

Log message:
        (get-free-disk-space): Use / for default-directory.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16048&r2=1.16049
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1073&r2=1.1074

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16048
retrieving revision 1.16049
diff -u -b -r1.16048 -r1.16049
--- ChangeLog   29 Aug 2009 14:48:10 -0000      1.16048
+++ ChangeLog   29 Aug 2009 14:58:15 -0000      1.16049
@@ -1,5 +1,7 @@
 2009-08-29  Stefan Monnier  <address@hidden>
 
+       * files.el (get-free-disk-space): Use / for default-directory.
+
        * textmodes/ispell.el (ispell-accept-output, ispell-command-loop):
        Use with-current-buffer.
 

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1073
retrieving revision 1.1074
diff -u -b -r1.1073 -r1.1074
--- files.el    28 Aug 2009 23:48:46 -0000      1.1073
+++ files.el    29 Aug 2009 14:58:18 -0000      1.1074
@@ -5377,17 +5377,13 @@
        (let ((fsinfo (file-system-info dir)))
          (if fsinfo
              (format "%.0f" (/ (nth 2 fsinfo) 1024))))
+      (setq dir (expand-file-name dir))
       (save-match-data
        (with-temp-buffer
          (when (and directory-free-space-program
                     ;; Avoid failure if the default directory does
                     ;; not exist (Bug#2631, Bug#3911).
-                    (let ((default-directory default-directory))
-                      (setq dir (expand-file-name dir))
-                      (unless (and (not (file-remote-p default-directory))
-                                   (file-directory-p default-directory)
-                                   (file-readable-p default-directory))
-                        (setq default-directory "/"))
+                    (let ((default-directory "/")
                       (eq (call-process directory-free-space-program
                                         nil t nil
                                         directory-free-space-args