Mercurial > emacs
comparison lisp/language/indian.el @ 88896:dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
and ccl-encode-unicode-font in font-ccl-encoder-alist.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 26 Jul 2002 04:04:09 +0000 |
| parents | fad0f879877f |
| children | 0a7fbcb7bda0 |
comparison
equal
deleted
inserted
replaced
| 88895:ab54ec5d2b3c | 88896:dfa89e1b4c56 |
|---|---|
| 71 (define-ccl-program ccl-encode-indian-glyph-font | 71 (define-ccl-program ccl-encode-indian-glyph-font |
| 72 `(0 | 72 `(0 |
| 73 ;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256)) | 73 ;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256)) |
| 74 (r1 = ((((r1 * 96) + r2) - ,(+ (* 32 96) 32)) % 256)))) | 74 (r1 = ((((r1 * 96) + r2) - ,(+ (* 32 96) 32)) % 256)))) |
| 75 | 75 |
| 76 (setq font-ccl-encoder-alist | 76 ;;(setq font-ccl-encoder-alist |
| 77 (cons (cons "-CDAC" 'ccl-encode-indian-glyph-font) | 77 ;; (cons (cons "-CDAC" 'ccl-encode-indian-glyph-font) |
| 78 font-ccl-encoder-alist)) | 78 ;; font-ccl-encoder-alist)) |
| 79 | 79 |
| 80 (setq font-ccl-encoder-alist | 80 ;;(setq font-ccl-encoder-alist |
| 81 (cons '("ISO10646.*-1" . ccl-encode-unicode-font) | 81 ;; (cons '("ISO10646.*-1" . ccl-encode-unicode-font) |
| 82 font-ccl-encoder-alist)) | 82 ;; font-ccl-encoder-alist)) |
| 83 | 83 |
| 84 (provide 'indian) | 84 (provide 'indian) |
| 85 | 85 |
| 86 ;;; indian.el ends here | 86 ;;; indian.el ends here |