Mercurial > emacs
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 |
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 " "}; |