Commit f3d78a1c authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(miscdic-convert): For MS-DOS, if

long file names aren't supported, truncate the file names in
quail-misc-package-ext-info to 8+3 before matching them against
FILENAME.
parent a9d36252
...@@ -976,7 +976,15 @@ the generated Quail package is saved." ...@@ -976,7 +976,15 @@ the generated Quail package is saved."
name title dicfile coding quailfile converter copyright name title dicfile coding quailfile converter copyright
dicbuf) dicbuf)
(while tail (while tail
(when (string-match (nth 2 (car tail)) filename) (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-truncate-to-8+3 (nth 2 (car tail)))
filename)))
(setq slot (car tail) (setq slot (car tail)
name (car slot) name (car slot)
title (nth 1 slot) title (nth 1 slot)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment