annotate lisp/toolbar/gud-until.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 8d984c0d5d8c
children f7114bba1fd4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49148
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
1 /* XPM */
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
2 static char * goto_xpm[] = {
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
3 "24 24 6 1",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
4 " c #c0c0c0",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
5 ". c #ff0000",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
6 "X c #616161",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
7 "o c #2a1f55",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
8 "O c #adadad",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
9 "+ c #cc9999",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
10 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
11 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
12 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
13 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
14 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
15 " . ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
16 " . ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
17 " . Xo oX ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
18 " . XoO OoX ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
19 " . oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
20 " . oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
21 " . .+ oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
22 " . +..+ oX Xo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
23 " ...... oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
24 " +..+ oX Xo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
25 " .+ oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
26 " oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
27 " oo oo ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
28 " XoO OoX ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
29 " Xo oX ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
30 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
31 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
32 " ",
8d984c0d5d8c Renamed gud-goto to gud-until
Nick Roberts <nickrob@snap.net.nz>
parents:
diff changeset
33 " "};