Mercurial > emacs
comparison lisp/international/titdic-cnv.el @ 37262:3e478bb3f389
(dos-8+3-filename): Rename from dos-truncate-to-8+3.
All callers changed.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 07 Apr 2001 07:53:23 +0000 |
| parents | 4ffaf150ddfc |
| children | 91cf555a6d8d |
comparison
equal
deleted
inserted
replaced
| 37261:4ffaf150ddfc | 37262:3e478bb3f389 |
|---|---|
| 981 ;; limits, so "cangjie-table.cns" becomes | 981 ;; limits, so "cangjie-table.cns" becomes |
| 982 ;; "cangjie-.cns", and the above string-match fails. | 982 ;; "cangjie-.cns", and the above string-match fails. |
| 983 ;; Give DOS users a chance... | 983 ;; Give DOS users a chance... |
| 984 (and (fboundp 'msdos-long-file-names) | 984 (and (fboundp 'msdos-long-file-names) |
| 985 (not (msdos-long-file-names)) | 985 (not (msdos-long-file-names)) |
| 986 (string-match (dos-truncate-to-8+3 (nth 2 (car tail))) | 986 (string-match (dos-8+3-filename (nth 2 (car tail))) |
| 987 filename))) | 987 filename))) |
| 988 (setq slot (car tail) | 988 (setq slot (car tail) |
| 989 name (car slot) | 989 name (car slot) |
| 990 title (nth 1 slot) | 990 title (nth 1 slot) |
| 991 dicfile (nth 2 slot) | 991 dicfile (nth 2 slot) |