martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(miscdic-convert): Don't generate a

Browse Source 
quail file if it is up to date.
This commit is contained in:
Kenichi Handa
2004-05-01 04:38:47 +00:00
parent 8aa3c14796
commit d1df889e9e
2 changed files with 22 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -1,3 +1,8 @@
2004-05-01 Kenichi Handa <handa@m17n.org>
* international/titdic-cnv.el (miscdic-convert): Don't generate a
quail file if it is up to date.
2004-04-30 Juri Linkov <juri@jurta.org>
* cus-edit.el (custom-mode-map):

30
lisp/international/titdic-cnv.el
View File

@@ -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)