From 57062fcfad3ccb1d096c3a95cbdc2c70f44ea732 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 1 Dec 2015 13:12:18 +0100 Subject: [PATCH] Check `file-remote-p' over absolute files names in files.el * lisp/files.el (directory-files-recursively) (get-free-disk-space): Check `file-remote-p' over absolute files names. --- lisp/files.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 0397f650163..e892ac6b94b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -753,7 +753,7 @@ If INCLUDE-DIRECTORIES, also include directories that have matching names." (files nil) ;; When DIR is "/", remote file names like "/method:" could ;; also be offered. We shall suppress them. - (tramp-mode (and tramp-mode (file-remote-p dir)))) + (tramp-mode (and tramp-mode (file-remote-p (expand-file-name dir))))) (dolist (file (sort (file-name-all-completions "" dir) 'string<)) (unless (member file '("./" "../")) @@ -6247,7 +6247,7 @@ invokes the program specified by `directory-free-space-program' and `directory-free-space-args'. If the system call or program is unsuccessful, or if DIR is a remote directory, this function returns nil." - (unless (file-remote-p dir) + (unless (file-remote-p (expand-file-name 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) -- 2.39.5