186 |
;; Create a fontset that uses mac-roman font. With this fontset, |
;; Create a fontset that uses mac-roman font. With this fontset, |
187 |
;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, |
;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, |
188 |
;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font. |
;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font. |
189 |
|
;; Unnecessary in emacs22 |
190 |
|
|
191 |
|
;; Carbon uses different fonts than commonly found on X, so |
192 |
|
;; we define our own standard fontset here. |
193 |
|
(defvar mac-standard-fontset-spec |
194 |
|
"-apple-Monaco-normal-r-*-*-12-*-*-*-*-*-fontset-mac" |
195 |
|
"String of fontset spec of the standard fontset. |
196 |
|
This defines a fontset consisting of the Monaco variations for |
197 |
|
European languages which are distributed with Mac OS X. |
198 |
|
|
199 |
|
See the documentation of `create-fontset-from-fontset-spec for the format.") |
200 |
|
|
201 |
|
|
202 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
203 |
(create-fontset-from-fontset-spec |
(progn |
204 |
"-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac, |
(require 'fontset) |
205 |
ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman |
;; Setup the default fontset. |
206 |
mac-roman:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")) |
(setup-default-fontset) |
207 |
|
;; Create the standard fontset. |
208 |
|
(create-fontset-from-fontset-spec mac-standard-fontset-spec t) |
209 |
|
)) |
210 |
|
|
211 |
|
|
212 |
(if (eq system-type 'darwin) |
(if (eq system-type 'darwin) |