1112 |
name title dicfile coding quailfile converter copyright |
name title dicfile coding quailfile converter copyright |
1113 |
dicbuf) |
dicbuf) |
1114 |
(while tail |
(while tail |
1115 |
(when (or (string-match (nth 2 (car tail)) filename) |
(setq slot (car tail) |
1116 |
;; MS-DOS filesystem truncates file names to 8+3 |
dicfile (nth 2 slot) |
1117 |
;; limits, so "cangjie-table.cns" becomes |
quailfile (nth 4 slot)) |
1118 |
;; "cangjie-.cns", and the above string-match fails. |
(when (and (or (string-match dicfile filename) |
1119 |
;; Give DOS users a chance... |
;; MS-DOS filesystem truncates file names to 8+3 |
1120 |
(and (fboundp 'msdos-long-file-names) |
;; limits, so "cangjie-table.cns" becomes |
1121 |
(not (msdos-long-file-names)) |
;; "cangjie-.cns", and the above string-match |
1122 |
(string-match (dos-8+3-filename (nth 2 (car tail))) |
;; fails. Give DOS users a chance... |
1123 |
filename))) |
(and (fboundp 'msdos-long-file-names) |
1124 |
(setq slot (car tail) |
(not (msdos-long-file-names)) |
1125 |
name (car slot) |
(string-match (dos-8+3-filename dicfile) filename))) |
1126 |
|
(if (file-newer-than-file-p |
1127 |
|
filename (expand-file-name quailfile dirname)) |
1128 |
|
t |
1129 |
|
(message "%s is up to date" quailfile) |
1130 |
|
nil)) |
1131 |
|
(setq name (car slot) |
1132 |
title (nth 1 slot) |
title (nth 1 slot) |
|
dicfile (nth 2 slot) |
|
1133 |
coding (nth 3 slot) |
coding (nth 3 slot) |
|
quailfile (nth 4 slot) |
|
1134 |
converter (nth 5 slot) |
converter (nth 5 slot) |
1135 |
copyright (nth 6 slot)) |
copyright (nth 6 slot)) |
1136 |
(message "Converting %s to %s..." dicfile quailfile) |
(message "Converting %s to %s..." dicfile quailfile) |