diff options
author | Kenichi Handa <[email protected]> | 2004-05-01 04:38:47 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2004-05-01 04:38:47 +0000 |
commit | d1df889e9e0a3f64584cd86ed799392cb640593c (patch) | |
tree | 627e5442026488231619850c238a6cfadf9a4c3c | |
parent | 8aa3c147963335f79b8c9da26f9a0f1c89fa326d (diff) |
(miscdic-convert): Don't generate a
quail file if it is up to date.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/international/titdic-cnv.el | 30 |
2 files changed, 22 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dbbf9c89a4..eecf77f488 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-05-01 Kenichi Handa <[email protected]> + + * international/titdic-cnv.el (miscdic-convert): Don't generate a + quail file if it is up to date. + 2004-04-30 Juri Linkov <[email protected]> * cus-edit.el (custom-mode-map): diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 759df5fd94..b1ce0a0255 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -1113,21 +1113,25 @@ the generated Quail package is saved." name title dicfile coding quailfile converter copyright dicbuf) (while tail - (when (or (string-match (nth 2 (car tail)) filename) - ;; MS-DOS filesystem truncates file names to 8+3 - ;; limits, so "cangjie-table.cns" becomes - ;; "cangjie-.cns", and the above string-match fails. - ;; Give DOS users a chance... - (and (fboundp 'msdos-long-file-names) - (not (msdos-long-file-names)) - (string-match (dos-8+3-filename (nth 2 (car tail))) - filename))) - (setq slot (car tail) - name (car slot) + (setq slot (car tail) + dicfile (nth 2 slot) + quailfile (nth 4 slot)) + (when (and (or (string-match dicfile filename) + ;; MS-DOS filesystem truncates file names to 8+3 + ;; limits, so "cangjie-table.cns" becomes + ;; "cangjie-.cns", and the above string-match + ;; fails. Give DOS users a chance... + (and (fboundp 'msdos-long-file-names) + (not (msdos-long-file-names)) + (string-match (dos-8+3-filename dicfile) filename))) + (if (file-newer-than-file-p + filename (expand-file-name quailfile dirname)) + t + (message "%s is up to date" quailfile) + nil)) + (setq name (car slot) title (nth 1 slot) - dicfile (nth 2 slot) coding (nth 3 slot) - quailfile (nth 4 slot) converter (nth 5 slot) copyright (nth 6 slot)) (message "Converting %s to %s..." dicfile quailfile) |