Mercurial > emacs
view lisp/gnus/post.xpm @ 53323:a053c8c470f3
Handle non-readable directories.
(ido-decorations): Add 9th element for non-readable directory.
(ido-directory-nonreadable): New dynamic var.
(ido-set-current-directory): Set it.
(ido-read-buffer, ido-file-internal):
(ido-read-file-name, ido-read-directory-name): Let-bind it.
(ido-file-name-all-completions1): Return empty list for
non-readable directory.
(ido-exhibit): Print [Not readable] if directory is not readable.
(ido-expand-directory): New defun (based on tiny fix from Karl Chen).
(ido-read-file-name, ido-file-internal, ido-read-directory-name):
Use it.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sat, 27 Dec 2003 21:56:51 +0000 |
parents | 354a5b33d058 |
children | 55fd4f77387a |
line wrap: on
line source
/* XPM */ static char *magick[] = { /* columns rows colors chars-per-pixel */ "24 24 23 1", " c Gray0", ". c Gray6", "X c Gray12", "o c #2ff22ff22ff2", "O c #3fff3fff3fff", "+ c Gray28", "@ c #53ee53ee53ee", "# c #5fdf5fdf5fdf", "$ c #67e767e767e7", "% c #6fff6fff6fff", "& c #77f777f777f7", "* c #7bdb7bdb7bdb", "= c Gray50", "- c Gray56", "; c #9bd69bd69bd6", ": c #9fff9fff9fff", "> c #a7c7a7c7a7c7", ", c Gray70", "< c Gray75", "1 c Gray81", "2 c #dfffdfffdfff", "3 c #efffefffefff", "4 c Gray100", /* pixels */ ",><,><,><,><,><,><,><,><", ">-<>-<>-<>-<>-<>-<>-<>-<", "<<<<<<<<<<<<<<<<<<<<<<<<", ",><,><,><,>;*O.,><,><,><", ">-<>-<>-<-o&:4O#-<>-<>-<", "<<<<<<<<@@<31O:o<<<<<<<<", ",><,>;*O1444 X1@><,><,><", ">-<-o&:4444:=<4<#<>-<>-<", "<<<,+<4444414443&;<<<<<<", ",><,#;4444444444:*,><,><", ">-<>-o44444444444O>-<>-<", "<<<<<;%44444444441@<<<<<", ",><,><@24444444444@><,><", ">-<>-<-=4444444444<#<>-<", "<<<<<<,$14444444443&;<<<", ",><,><,#;4444444444:*,><", ">-<>-<>-o4444444444<X>-<", "<<<<<<<<;%4444444%O$-<<<", ",><,><,><@24444<&;,><,><", ">-<>-<>-<-=42==#-<>-<>-<", "<<<<<<<<<,$Oo+-<<<<<<<<<", ",><,><,><,><,><,><,><,><", ">-<>-<>-<>-<>-<>-<>-<>-<", "<<<<<<<<<<<<<<<<<<<<<<<<" };