diff options
| -rw-r--r-- | lisp/ido.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index 47372afec52..4ac9546de64 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -4193,7 +4193,9 @@ See `read-file-name' for additional parameters." | |||
| 4193 | (eq (get this-command 'ido) 'dir) | 4193 | (eq (get this-command 'ido) 'dir) |
| 4194 | (memq this-command ido-read-file-name-as-directory-commands)) | 4194 | (memq this-command ido-read-file-name-as-directory-commands)) |
| 4195 | (setq filename | 4195 | (setq filename |
| 4196 | (ido-read-directory-name prompt dir default-filename mustmatch initial))) | 4196 | (ido-read-directory-name prompt dir default-filename mustmatch initial)) |
| 4197 | (if (eq ido-exit 'fallback) | ||
| 4198 | (setq filename 'fallback))) | ||
| 4197 | ((and (not (eq (get this-command 'ido) 'ignore)) | 4199 | ((and (not (eq (get this-command 'ido) 'ignore)) |
| 4198 | (not (memq this-command ido-read-file-name-non-ido)) | 4200 | (not (memq this-command ido-read-file-name-non-ido)) |
| 4199 | (or (null predicate) (eq predicate 'file-exists-p))) | 4201 | (or (null predicate) (eq predicate 'file-exists-p))) |