/[emacs]/emacs/lisp/international/titdic-cnv.el
ViewVC logotype

Diff of /emacs/lisp/international/titdic-cnv.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36.6.2 by handa, Fri Apr 16 12:50:30 2004 UTC revision 1.36.6.3 by miles, Mon Jun 28 07:29:47 2004 UTC
# Line 1112  the generated Quail package is saved." Line 1112  the generated Quail package is saved."
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)

Legend:
Removed from v.1.36.6.2  
changed lines
  Added in v.1.36.6.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26