# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 969435734 0
# Node ID 7d6ee5c362b2eb947199dee4b26b0dfa7ba4dc56
# Parent  60d9ac2802eb480cb70a4c51bf21e1daefec98ae
(face-valid-attribute-values): Make sure directories we search for
  stipples both exist and are readable before trying to search them.

diff -r 60d9ac2802eb -r 7d6ee5c362b2 lisp/faces.el
--- a/lisp/faces.el	Wed Sep 20 07:18:35 2000 +0000
+++ b/lisp/faces.el	Wed Sep 20 07:42:14 2000 +0000
@@ -779,8 +779,12 @@
 	    (:stipple
 	     (and (memq window-system '(x w32))
 		  (mapcar #'list
-			  (apply #'nconc (mapcar #'directory-files
-						 x-bitmap-file-path)))))
+			  (apply #'nconc
+				 (mapcar (lambda (dir)
+					   (and (file-readable-p dir)
+						(file-directory-p dir)
+						(directory-files dir)))
+					 x-bitmap-file-path)))))
 	    (:inherit
 	     (cons '("none" . nil)
 		   (mapcar #'(lambda (c) (cons (symbol-name c) c))