procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
long file names aren't supported, truncate the file names in
quail-misc-package-ext-info to 8+3 before matching them against
FILENAME.
This commit is contained in:
Eli Zaretskii 2001-04-06 19:04:14 +00:00
parent a9d3625204
commit f3d78a1ca2
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/international/titdic-cnv.el
View file

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