Mercurial > emacs
view lisp/toolbar/open.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 | 8f4a34146a9d |
children | 734ff40978ad |
line wrap: on
line source
/* XPM */ static char *magick[] = { /* columns rows colors chars-per-pixel */ "24 24 4 1", " c Gray0", ". c #999990907b7b", "X c #fffffefef7f7", "o c None", /* pixels */ "oooooooooooooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooo oooooooo", "ooooooooooo .. ooooooo", "oooo oo ....XXo ooo", "ooo .. ....XXXX .. ooo", "ooo .....XXXXX .... ooo", "oooo ..XXXXX ...... ooo", "oooo ..XXX ........ ooo", "ooooo .XX .......... ooo", "ooooo ..X .......... ooo", "oooooo .X .......... ooo", "oooooo .. ........ oooo", "ooooooo . ...... oooooo", "ooooooo . ..... oooooooo", "oooooooo ... ooooooooo", "oooooooo . ooooooooooo", "ooooooooo ooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooooooooooooo", "oooooooooooooooooooooooo" };