Commit 38bb639d authored by Michael Albinus's avatar Michael Albinus
Browse files

* files.el (directory-files-recursively): Do not include remote file names.

parent 9a57bda3
2015-01-11 Michael Albinus <michael.albinus@gmx.de>
* files.el (directory-files-recursively): Do not include
superfluous remote file names.
2015-01-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 2015-01-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-urlify): Don't bother the user about * net/shr.el (shr-urlify): Don't bother the user about
......
...@@ -740,7 +740,10 @@ This function works recursively. Files are returned in \"depth first\" ...@@ -740,7 +740,10 @@ This function works recursively. Files are returned in \"depth first\"
and alphabetical order. and alphabetical order.
If INCLUDE-DIRECTORIES, also include directories that have matching names." If INCLUDE-DIRECTORIES, also include directories that have matching names."
(let ((result nil) (let ((result nil)
(files nil)) (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))))
(dolist (file (sort (file-name-all-completions "" dir) (dolist (file (sort (file-name-all-completions "" dir)
'string<)) 'string<))
(unless (member file '("./" "../")) (unless (member file '("./" "../"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment