[2.20] font-encoder

[ari@xxxxxxxxxxxxx (ARISAWA Akihiro)]

Meadow 2.20 で font-encoder が正常に動作していないように思われます。

meadow -q で起動し、view-hello-file をした時に Czech の
latin-iso8859-2 や Greek の greek-iso8859-7 などが豆腐で表示されます。
French の latin-iso8859-1 などは正常に表示されます。

Meadow 2.10 では上記の charset も正常に表示されます。

環境は以下の通りです。
・Meadow 2.20 (r3583)
・Windows 2000 SP4
・cygwin 1.5.11


おまけで、latin-iso8859-15 用の font-encoder です。
これも現在の Meadow 2.20 では正常に動作しません;-(

2005-01-12  ARISAWA Akihiro  <ari@xxxxxxxxxxxxxxxx>

	* international/mw32misc.el (ccl-encode-cp1252-font): New font encoder.
	(encode-cp1252-font): Register it.
	(w32-charset-encoding-alist): Set it as font encoder for 
	latin-iso8859-15.

Index: lisp/international/mw32misc.el
===================================================================
--- lisp/international/mw32misc.el	(revision 3583)
+++ lisp/international/mw32misc.el	(working copy)
@@ -277,7 +277,23 @@
 (w32-regist-font-encoder
   'encode-cp1257-font 'ccl-encode-cp1257-font 1)
 
+(define-ccl-program
+  ccl-encode-cp1252-font
+  '(0
+    ((r1 = r1
+  [   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
+      0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
+    160 161 162 163 128 165 138 167 154 169 170 171 172 173 174 175
+    176 177 178 179 142 181 182 183 158 185 186 187 140 156 159 191
+    192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207
+    208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
+    224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
+    240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255
+  ]))))
 
+(w32-regist-font-encoder
+ 'encode-cp1252-font 'ccl-encode-cp1252-font 1)
+
 ;;;
 ;;; Windows logfont information.
 ;;;
@@ -297,6 +313,7 @@
     (greek-iso8859-7 161 encode-cp1253-font)      ; GREEK_CHARSET(1253)
     (hebrew-iso8859-8 177 1-byte-set-msb)         ; HEBREW_CHARSET
     (latin-iso8859-9 162 1-byte-set-msb)          ; TURKISH_CHARSET
+    (latin-iso8859-15 0 encode-cp1252-font)       ; ANSI_CHARSET(1252)
     (latin-jisx0201 128 nil)                      ; SHIFTJIS_CHARSET
     (katakana-jisx0201 128 shift_jis)             ; SHIFTJIS_CHARSET
     (japanese-jisx0208 128 shift_jis)             ; SHIFTJIS_CHARSET

-- 
有沢 明宏