(face-valid-attribute-values): Make sure directories we search for

  stipples both exist and are readable before trying to search them.

lisp/ChangeLog

 2000-09-20  Miles Bader  <miles@lsi.nec.co.jp>
 
+	* faces.el (face-valid-attribute-values): Make sure directories we
+	search for stipples both exist and are readable before trying to
+	search them.
+
 	* diff-mode.el (diff-apply-hunk): Jump to the correct line offset
 	in the dry-run case.
 

lisp/faces.el

@@ -779,8 +779,12 @@ an integer value."
 	    (: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))