[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/01/30 20:23:38

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.880
retrieving revision 1.881
diff -u -b -r1.880 -r1.881
--- files.el    27 Jan 2007 19:27:53 -0000      1.880
+++ files.el    30 Jan 2007 20:23:38 -0000      1.881
@@ -4749,10 +4749,11 @@
   "Return the amount of free space on directory DIR's file system.
 The result is a string that gives the number of free 1KB blocks,
 or nil if the system call or the program which retrieve the information
-fail.
+fail.  It returns also nil when DIR is a remote directory.
 
 This function calls `file-system-info' if it is available, or invokes the
 program specified by `directory-free-space-program' if that is non-nil."
+  (when (not (file-remote-p dir))
   ;; Try to find the number of free blocks.  Non-Posix systems don't
   ;; always have df, but might have an equivalent system call.
   (if (fboundp 'file-system-info)
@@ -4778,7 +4779,7 @@
                ;; Copy it into AVAILABLE.
                (let ((end (point)))
                  (forward-word -1)
-                 (buffer-substring (point) end)))))))))
+                   (buffer-substring (point) end))))))))))
 
 ;; The following expression replaces `dired-move-to-filename-regexp'.
 (defvar directory-listing-before-filename-regexp