3619 |
(defun ido-read-file-name (prompt &optional dir default-filename mustmatch initial predicate) |
(defun ido-read-file-name (prompt &optional dir default-filename mustmatch initial predicate) |
3620 |
"Read file name, prompting with PROMPT and completing in directory DIR. |
"Read file name, prompting with PROMPT and completing in directory DIR. |
3621 |
See `read-file-name' for additional parameters." |
See `read-file-name' for additional parameters." |
|
(message "%S %S %S %S" this-command ido-read-file-name-non-ido |
|
|
predicate (memq this-command ido-read-file-name-non-ido)) |
|
3622 |
(cond |
(cond |
3623 |
((or (eq predicate 'file-directory-p) |
((or (eq predicate 'file-directory-p) |
3624 |
(memq this-command ido-read-file-name-as-directory-commands)) |
(memq this-command ido-read-file-name-as-directory-commands)) |