4193 |
(eq (get this-command 'ido) 'dir) |
(eq (get this-command 'ido) 'dir) |
4194 |
(memq this-command ido-read-file-name-as-directory-commands)) |
(memq this-command ido-read-file-name-as-directory-commands)) |
4195 |
(setq filename |
(setq filename |
4196 |
(ido-read-directory-name prompt dir default-filename mustmatch initial))) |
(ido-read-directory-name prompt dir default-filename mustmatch initial)) |
4197 |
|
(if (eq ido-exit 'fallback) |
4198 |
|
(setq filename 'fallback))) |
4199 |
((and (not (eq (get this-command 'ido) 'ignore)) |
((and (not (eq (get this-command 'ido) 'ignore)) |
4200 |
(not (memq this-command ido-read-file-name-non-ido)) |
(not (memq this-command ido-read-file-name-non-ido)) |
4201 |
(or (null predicate) (eq predicate 'file-exists-p))) |
(or (null predicate) (eq predicate 'file-exists-p))) |