Mercurial > emacs
comparison lisp/international/titdic-cnv.el @ 37258:d74967dafcb7
(miscdic-convert): For MS-DOS, if
long file names aren't supported, truncate the file names in
quail-misc-package-ext-info to 8+3 before matching them against
FILENAME.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 06 Apr 2001 19:04:14 +0000 |
| parents | f7906041b879 |
| children | 4ffaf150ddfc |
comparison
equal
deleted
inserted
replaced
| 37257:6bbf8e77d787 | 37258:d74967dafcb7 |
|---|---|
| 974 (default-buffer-file-coding-system 'iso-2022-7bit) | 974 (default-buffer-file-coding-system 'iso-2022-7bit) |
| 975 slot | 975 slot |
| 976 name title dicfile coding quailfile converter copyright | 976 name title dicfile coding quailfile converter copyright |
| 977 dicbuf) | 977 dicbuf) |
| 978 (while tail | 978 (while tail |
| 979 (when (string-match (nth 2 (car tail)) filename) | 979 (when (or (string-match (nth 2 (car tail)) filename) |
| 980 ;; MS-DOS filesystem truncates file names to 8+3 | |
| 981 ;; limits, so "cangjie-table.cns" becomes | |
| 982 ;; "cangjie-.cns", and the above string-match fails. | |
| 983 ;; Give DOS users a chance... | |
| 984 (and (fboundp 'msdos-long-file-names) | |
| 985 (not (msdos-long-file-names)) | |
| 986 (string-match (dos-truncate-to-8+3 (nth 2 (car tail))) | |
| 987 filename))) | |
| 980 (setq slot (car tail) | 988 (setq slot (car tail) |
| 981 name (car slot) | 989 name (car slot) |
| 982 title (nth 1 slot) | 990 title (nth 1 slot) |
| 983 dicfile (nth 2 slot) | 991 dicfile (nth 2 slot) |
| 984 coding (nth 3 slot) | 992 coding (nth 3 slot) |