(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.

1 files changed, 9 insertions, 1 deletions

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 6894eb6dc41..98e68448646 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -976,7 +976,15 @@ the generated Quail package is saved."
         name title dicfile coding quailfile converter copyright
         dicbuf)
     (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)
               name (car slot)
               title (nth 1 slot)