mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(fontset-default): Modified for mule-unicode-2500-33ff and

Browse Source 
mule-unicode-e000-ffff.
(x-font-name-charset-alist): Likewise.
(ccl-encode-unicode-font): New CCL program.  Record it in
font-ccl-encoder-alist to be used for fonts "ISO10646-1".
This commit is contained in:
Kenichi Handa 2000-10-30 01:36:20 +00:00
parent a89f541b4a
commit adbff2a719
1 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/international/fontset.el
View File

@ -81,6 +81,8 @@
(latin-iso8859-14 . (nil . "ISO8859-14")) (latin-iso8859-14 . (nil . "ISO8859-14"))
(latin-iso8859-15 . (nil . "ISO8859-15")) (latin-iso8859-15 . (nil . "ISO8859-15"))
(mule-unicode-0100-24ff . (nil . "ISO10646-1")) (mule-unicode-0100-24ff . (nil . "ISO10646-1"))
(mule-unicode-2500-33ff . (nil . "ISO10646-1"))
(mule-unicode-e000-ffff . (nil . "ISO10646-1"))
(japanese-jisx0213-1 . ("*" . "JISX0213")) (japanese-jisx0213-1 . ("*" . "JISX0213"))
(japanese-jisx0213-2 . ("*" . "JISX0213")) (japanese-jisx0213-2 . ("*" . "JISX0213"))
)) ))
@ -109,19 +111,35 @@
(set-font-encoding "ISO8859-1" 'ascii 0) (set-font-encoding "ISO8859-1" 'ascii 0)
(set-font-encoding "JISX0201" 'latin-jisx0201 0) (set-font-encoding "JISX0201" 'latin-jisx0201 0)
(define-ccl-program ccl-encode-mule-unicode-0100-24ff (define-ccl-program ccl-encode-unicode-font
`(0 `(0
(if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) (if (r0 == ,(charset-id 'ascii))
((r1 *= 96) ((r2 = r1)
(r1 += r2) (r1 = 0))
(r1 += ,(- ?\x100 (* 32 96) 32)) (if (r0 == ,(charset-id 'latin-iso8859-1))
(r1 >8= 0) ((r2 = (r1 + 128))
(r2 = r7)) (r1 = 0))
((r2 = r1) (if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
(r1 = 0))))) ((r1 *= 96)
(r1 += r2)
(r1 += ,(- #x100 (* 32 96) 32))
(r1 >8= 0)
(r2 = r7))
(if (r0 == ,(charset-id 'mule-unicode-2500-33ff))
((r1 *= 96)
(r1 += r2)
(r1 += ,(- #x2500 (* 32 96) 32))
(r1 >8= 0)
(r2 = r7))
(if (r0 == ,(charset-id 'mule-unicode-e000-ffff))
((r1 *= 96)
(r1 += r2)
(r1 += ,(- #xe000 (* 32 96) 32))
(r1 >8= 0)
(r2 = r7)))))))))
(setq font-ccl-encoder-alist (setq font-ccl-encoder-alist
(cons '("ISO10646-1" . ccl-encode-mule-unicode-0100-24ff) (cons '("ISO10646-1" . ccl-encode-unicode-font)
font-ccl-encoder-alist)) font-ccl-encoder-alist))
;; Setting for suppressing XLoadQueryFont on big fonts. ;; Setting for suppressing XLoadQueryFont on big fonts.
@ -148,7 +166,8 @@
("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower)
("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower)
("mulelao-1" ascii lao) ("mulelao-1" ascii lao)
("iso10646-1" ascii mule-unicode-0100-24ff)) ("iso10646-1" ascii latin-iso8859-1 mule-unicode-0100-24ff
mule-unicode-2500-33ff mule-unicode-e000-ffff))
"Alist of font names vs list of charsets the font can display. "Alist of font names vs list of charsets the font can display.
When a font name which matches some element of this alist is given as When a font name which matches some element of this alist is given as