Commit 37a99821 authored by Miles Bader's avatar Miles Bader

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

  stipples both exist and are readable before trying to search them.
parent ddba99ad
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.
......
......@@ -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))
......
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