diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6c6fcbc55d3..97e58946bda 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -5354,7 +5354,14 @@ on a DOS/Windows machine, it returns FILENAME in expanded form." (let ((fremote (file-remote-p filename)) (dremote (file-remote-p directory)) (fold-case (or (file-name-case-insensitive-p filename) - read-file-name-completion-ignore-case))) + ;; During bootstrap, it can happen that + ;; `read-file-name-completion-ignore-case' is + ;; not defined yet. + ;; FIXME: `read-file-name-completion-ignore-case' is + ;; a user-config which we shouldn't trust to reflect + ;; the actual file system's semantics. + (and (boundp 'read-file-name-completion-ignore-case) + read-file-name-completion-ignore-case)))) (if ;; Conditions for separate trees (or ;; Test for different filesystems on DOS/Windows |