Mercurial > emacs
view lisp/toolbar/mail.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 |
line wrap: on
line source
/* XPM */ static char *magick[] = { /* columns rows colors chars-per-pixel */ "24 24 5 1", " c Gray0", ". c #673e666663d4", "X c #a852a7bea3d2", "o c #eb46ea1de471", "O c None", /* pixels */ "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOO OOOOOO", "OOOOOOOOO .ooX OOOOO", "OOOO .XooooooX OOOOO", "OOO .Xoooooooooo.XX OOOO", "OOO o..ooooooooX.Xo OOOO", "OOO XoX..oooooo.Xoo OOOO", "OOOO oooXX.Xoo...ooX OOO", "OOOO oooooXX..XoX.Xo OOO", "OOOO Xoooo.ooooooo.X OOO", "OOOOO oooXXoooooooo.X OO", "OOOOO ooo.oooooooooX OO", "OOOOO XoXXooooooX OOOO", "OOOOOO o.ooooX OOOOOOO", "OOOOOO .XoX OOOOOOOOOO", "OOOOOO .. OOOOOOOOOOOOO", "OOOOOOO OOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO", "OOOOOOOOOOOOOOOOOOOOOOOO" };