From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 6 Apr 2001 19:04:14 +0000 (+0000)
Subject: (miscdic-convert): For MS-DOS, if
X-Git-Tag: emacs-pretest-21.0.103~279
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3d78a1ca2733a08b31e36bf61c8c6686306ad25;p=emacs.git

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