Mercurial > hg > xemacs-beta
comparison lisp/unicode.el @ 3665:5724b7632db3
[xemacs-hg @ 2006-11-07 15:54:42 by stephent]
Try to kill src/xft-fonts.h permanently.
| author | stephent |
|---|---|
| date | Tue, 07 Nov 2006 15:54:47 +0000 |
| parents | 98af8a976fc3 |
| children | 3214dca89755 |
comparison
equal
deleted
inserted
replaced
| 3664:1d313cd71cd7 | 3665:5724b7632db3 |
|---|---|
| 281 The second argument must be 'ucs, the third argument is ignored. " | 281 The second argument must be 'ucs, the third argument is ignored. " |
| 282 (assert (eq quote-ucs 'ucs) t | 282 (assert (eq quote-ucs 'ucs) t |
| 283 "Sorry, encode-char doesn't yet support anything but the UCS. ") | 283 "Sorry, encode-char doesn't yet support anything but the UCS. ") |
| 284 (char-to-unicode char)) | 284 (char-to-unicode char)) |
| 285 | 285 |
| 286 (when (featurep 'mule) | |
| 287 ;; This CCL program is used for displaying the fallback UCS character set, | |
| 288 ;; and can be repurposed to lao and the IPA, all going well. | |
| 289 ;; | |
| 290 ;; define-ccl-program is available after mule-ccl is loaded, much later | |
| 291 ;; than this file in the build process. The below is the result of | |
| 292 ;; | |
| 293 ;; (macroexpand | |
| 294 ;; '(define-ccl-program ccl-encode-to-ucs-2 | |
| 295 ;; `(1 | |
| 296 ;; ((r1 = (r1 << 8)) | |
| 297 ;; (r1 = (r1 | r2)) | |
| 298 ;; (mule-to-unicode r0 r1) | |
| 299 ;; (r1 = (r0 >> 8)) | |
| 300 ;; (r2 = (r0 & 255)))) | |
| 301 ;; "CCL program to transform Mule characters to UCS-2.")) | |
| 302 ;; | |
| 303 ;; and it should occasionally be confirmed that the correspondence still | |
| 304 ;; holds. | |
| 305 | |
| 306 (let ((prog [1 10 131127 8 98872 65823 147513 8 82009 255 22])) | |
| 307 (defconst ccl-encode-to-ucs-2 prog | |
| 308 "CCL program to transform Mule characters to UCS-2.") | |
| 309 (put (quote ccl-encode-to-ucs-2) (quote ccl-program-idx) | |
| 310 (register-ccl-program (quote ccl-encode-to-ucs-2) prog)) nil)) | |
| 311 | |
| 312 ;; Won't do this just yet, though. | |
| 313 ;; (set-charset-registry 'lao "iso10646-1") | |
| 314 ;; (set-charset-ccl-program 'lao 'ccl-encode-to-ucs-2) | |
| 315 ;; (set-charset-registry 'ipa "iso10646-1") | |
| 316 ;; (set-charset-ccl-program 'ipa 'ccl-encode-to-ucs-2) | |
| 317 | |
| 286 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's | 318 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's |
| 287 ;; an implementation in appendix A.1 of the Unicode Standard, Version | 319 ;; an implementation in appendix A.1 of the Unicode Standard, Version |
| 288 ;; 2.0, but I don't know its licensing characteristics. | 320 ;; 2.0, but I don't know its licensing characteristics. |
| 289 | 321 |
| 290 ; (make-coding-system | 322 ; (make-coding-system |