Changeset 3896

Show
Ignore:
Timestamp:
2005年10月05日 15時54分47秒 (3 years ago)
Author:
shirai
Message:

Add new font encoders.

* international/mw32misc.el (w32-font-encoder-p): New function.
(encode-unicode-font): Regist new font encoder.
(encode-indian-glyph-font): Ditto.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ChangeLog.Meadow

    r3894 r3896  
     12005-10-05  Hideyuki SHIRAI  <shirai@meadowy.org> 
     2 
     3        * international/mw32misc.el (w32-font-encoder-p): New function. 
     4        (encode-unicode-font): Regist new font encoder. 
     5        (encode-indian-glyph-font): Ditto. 
     6 
    172005-10-02  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    28 

  • trunk/lisp/international/mw32misc.el

    r3871 r3896  
    183183         (error "Not yet supported encoder! %S" real-encoder)))) 
    184184 
     185(defun w32-font-encoder-p (name) 
     186  (or (not name) 
     187      (and (memq name '(1-byte-set-msb 2-byte-set-msb unicode shift_jis)) 
     188           t) 
     189      (get name 'ccl-program))) 
     190 
     191(eval-after-load "fontset" 
     192  '(w32-regist-font-encoder 
     193    'encode-unicode-font 'ccl-encode-unicode-font)) 
     194(w32-regist-font-encoder 
     195 'encode-indian-glyph-font 'ccl-encode-indian-glyph-font 1) 
    185196(w32-regist-font-encoder 
    186197 'encode-koi8-font 'ccl-encode-koi8-font 1)