# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 986583854 0
# Node ID d74967dafcb7869f0c08ed9aa84cf2bdc37c6a9e
# Parent  6bbf8e77d78717f4e0a6da0a11feb36c1c2d4749
(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.

diff -r 6bbf8e77d787 -r d74967dafcb7 lisp/international/titdic-cnv.el
--- a/lisp/international/titdic-cnv.el	Fri Apr 06 19:03:00 2001 +0000
+++ b/lisp/international/titdic-cnv.el	Fri Apr 06 19:04:14 2001 +0000
@@ -976,7 +976,15 @@
 	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)