Changeset 3585

Timestamp:

2005年01月15日 16時23分28秒 (4 years ago)

Author:

miyoshi

Message:

* international/mw32misc.el (ccl-encode-cp1252-font): Define a new
font encoder and register it.
(w32-charset-encoding-alist): Set `ccl-encode-cp1252-font' as a
font encoder.
* international/mw32misc.el (w32-mouse-operation-init):
Modify the condition for number of buttons on mouse.

Files:

• branches/2.1/lisp/ChangeLog.Meadow (modified) (1 diff)
• branches/2.1/lisp/international/mw32misc.el (modified) (3 diffs)

branches/2.1/lisp/ChangeLog.Meadow

@@ +1 @@
+2005-01-15  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+        * international/mw32misc.el (ccl-encode-cp1252-font): Define a new
+        font encoder and register it.
+        (w32-charset-encoding-alist): Set `ccl-encode-cp1252-font' as a
+        font encoder.
+
+2005-01-15  Masayuki FUJII  <boochang@m4.kcn.ne.jp>
+
+        * international/mw32misc.el (w32-mouse-operation-init): 
+        Modify the condition for number of buttons on mouse.
+
-2004-11-28  Shuichi KITAGUCHI  <kit@meadowy.org>
-

branches/2.1/lisp/international/mw32misc.el

@@ -85 +85 @@
-(defun w32-mouse-operation-init ()
-  (setq w32-num-mouse-buttons (w32-get-system-metrics 43))
-
+>
-      (progn
-        (setq w32-lbutton-to-emacs-button 0)
@@ -278 +278 @@
-  '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)
-
-;;;
@@ -298 +314 @@
-    (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