197 |
(defun untranslated-canonical-name (filename) |
(defun untranslated-canonical-name (filename) |
198 |
"Return FILENAME in a canonicalized form for use with the functions |
"Return FILENAME in a canonicalized form for use with the functions |
199 |
dealing with untranslated filesystems." |
dealing with untranslated filesystems." |
200 |
(if (memq system-type '(ms-dos windows-nt)) |
(if (memq system-type '(ms-dos windows-nt cygwin)) |
201 |
;; The canonical form for DOS/W32 is with A-Z downcased and all |
;; The canonical form for DOS/W32 is with A-Z downcased and all |
202 |
;; directory separators changed to directory-sep-char. |
;; directory separators changed to directory-sep-char. |
203 |
(let ((name nil)) |
(let ((name nil)) |