Mercurial > emacs
comparison lisp/dos-w32.el @ 16889:8de32e992e4d
Change uses of win32 to w32.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Mon, 20 Jan 1997 01:07:48 +0000 |
| parents | afb15f49a0c9 |
| children | 6ea4d90cc76b |
comparison
equal
deleted
inserted
replaced
| 16888:380c7e461c14 | 16889:8de32e992e4d |
|---|---|
| 114 | 114 |
| 115 (defun untranslated-canonical-name (filename) | 115 (defun untranslated-canonical-name (filename) |
| 116 "Return FILENAME in a canonicalized form for use with the functions | 116 "Return FILENAME in a canonicalized form for use with the functions |
| 117 dealing with untranslated filesystems." | 117 dealing with untranslated filesystems." |
| 118 (if (memq system-type '(ms-dos windows-nt)) | 118 (if (memq system-type '(ms-dos windows-nt)) |
| 119 ;; The canonical form for DOS/NT/Win95 is with A-Z downcased and all | 119 ;; The canonical form for DOS/W32 is with A-Z downcased and all |
| 120 ;; directory separators changed to directory-sep-char. | 120 ;; directory separators changed to directory-sep-char. |
| 121 (let ((name nil)) | 121 (let ((name nil)) |
| 122 (setq name (mapconcat | 122 (setq name (mapconcat |
| 123 '(lambda (char) | 123 '(lambda (char) |
| 124 (if (and (<= ?A char) (<= char ?Z)) | 124 (if (and (<= ?A char) (<= char ?Z)) |