Mercurial > emacs
view lisp/toolbar/up_arrow.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 | 54d90c318dfd |
| children | 734ff40978ad |
line wrap: on
line source
/* XPM */ static char * up_arrow_xpm[] = { "24 24 9 1", " c None", ". c #020202", "+ c #121A12", "@ c #78A16E", "# c #86AD7D", "$ c #B2C6AE", "% c #263222", "& c #E7EDE6", "* c #497241", " ", " ", " ", " ", " .. ", " .. ", " .$*. ", " +&*. ", " .&&@*. ", " .&&@*. ", " .&&&@@*. ", " .&&&##*. ", " .&&&&#@@*. ", " .&&&&###*. ", " .&&&&&##@@*. ", " .&&&&&###@@. ", " .$$$$$$@@@@**. ", " ......%....... ", " ", " ", " ", " ", " ", " "};