Mercurial > emacs
view lisp/toolbar/gud-down.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 | 9c5f4d80a59c |
| children | f7114bba1fd4 |
line wrap: on
line source
/* XPM */ static char * down_xpm[] = { "24 24 14 1", " c #C0C0C0C0C0C0", ". c #000000000000", "X c #7F7F7F7F7F7F", "o c #2D2D2D2D2D2D", "O c #616161616161", "+ c #FFFFCCCC6666", "@ c #929255550000", "# c #696969696969", "$ c #6D6DAAAAFFFF", "% c #49495555AAAA", "& c #333333339999", "* c #434343434343", "= c #6666FFFF6666", "- c #4949AAAA5555", " ", " ", " ", " ", " . ", " . ", " . ", " . . . ", " X...X ", " ... ", " oooooooooooX.X ", " O+++++++++O . ", " .@@@@@@@@@. ", " ............... ", " #$%$$$$$$$$$%$# ", " o%&%%%%%%%%%&%o ", " ............... ", " *===========* ", " o-----------. ", " o............ ", " ", " ", " ", " "};