1132 |
(mac-add-charset-info "mac-symbol" 33) |
(mac-add-charset-info "mac-symbol" 33) |
1133 |
(mac-add-charset-info "adobe-fontspecific" 33) ; for X-Symbol |
(mac-add-charset-info "adobe-fontspecific" 33) ; for X-Symbol |
1134 |
(mac-add-charset-info "mac-dingbats" 34) |
(mac-add-charset-info "mac-dingbats" 34) |
1135 |
|
(mac-add-charset-info "iso10646-1" 126) ; for ATSUI |
1136 |
|
|
1137 |
|
|
1138 |
;;;; Keyboard layout/language change events |
;;;; Keyboard layout/language change events |
1715 |
|
|
1716 |
;; Setup the default fontset. |
;; Setup the default fontset. |
1717 |
(setup-default-fontset) |
(setup-default-fontset) |
1718 |
;; Add Mac-encoding fonts unless ETL fonts are installed. |
(cond ((x-list-fonts "*-iso10646-1") |
1719 |
(unless (x-list-fonts "*-iso8859-1") |
;; Use ATSUI (if available) for the following charsets. |
1720 |
(fontset-add-mac-fonts "fontset-default")) |
(dolist |
1721 |
|
(charset '(latin-iso8859-1 |
1722 |
|
latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 |
1723 |
|
thai-tis620 greek-iso8859-7 arabic-iso8859-6 |
1724 |
|
hebrew-iso8859-8 cyrillic-iso8859-5 |
1725 |
|
latin-iso8859-9 latin-iso8859-15 latin-iso8859-14 |
1726 |
|
japanese-jisx0212 chinese-sisheng ipa |
1727 |
|
vietnamese-viscii-lower vietnamese-viscii-upper |
1728 |
|
lao ethiopic tibetan)) |
1729 |
|
(set-fontset-font nil charset '(nil . "iso10646-1")))) |
1730 |
|
((null (x-list-fonts "*-iso8859-1")) |
1731 |
|
;; Add Mac-encoding fonts unless ETL fonts are installed. |
1732 |
|
(fontset-add-mac-fonts "fontset-default"))) |
1733 |
|
|
1734 |
;; Create a fontset that uses mac-roman font. With this fontset, |
;; Create a fontset that uses mac-roman font. With this fontset, |
1735 |
;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, |
;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, |