From 28fd8759b38d18235e268709d27dd0d2c4ae45cc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 3 Jul 2011 03:48:07 +0200 Subject: [PATCH] * files.el (file-expand-wildcards): Ignore non-readable sub-directories while trying to find matches instead of signalling an error (bug#6297). --- lisp/ChangeLog | 4 ++++ lisp/files.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 112d7faacb0..62458723ac9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-07-03 Lars Magne Ingebrigtsen + * files.el (file-expand-wildcards): Ignore non-readable + sub-directories while trying to find matches instead of signalling + an error (bug#6297). + * man.el (Man-reference-regexp): Allow matching possible word-wrapped references (bug#6289). diff --git a/lisp/files.el b/lisp/files.el index c2c2eae9d05..3cc41b04b4e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -5560,7 +5560,8 @@ default directory. However, if FULL is non-nil, they are absolute." contents) (while dirs (when (or (null (car dirs)) ; Possible if DIRPART is not wild. - (file-directory-p (directory-file-name (car dirs)))) + (and (file-directory-p (directory-file-name (car dirs))) + (file-readable-p (car dirs)))) (let ((this-dir-contents ;; Filter out "." and ".." (delq nil -- 2.39.2