mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-12 09:51:05 -07:00
Code Issues Projects Releases Wiki Activity

term/mac-win.el: Use mac-standard-fontset-spec to create

Browse source 
fontset-mac
(mac-standard-fontset-spec): Created
This commit is contained in:
Steven Tamm 2004-08-04 06:04:04 +00:00
parent ac887bc284
commit 66cecdb8bb
2 changed files with 27 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog.22
View file

@ -1,3 +1,9 @@
2004-08-03 Steven Tamm <steventamm@mac.com>
* term/mac-win.el: Use mac-standard-fontset-spec to create
fontset-mac
(mac-standard-fontset-spec): Created
2004-04-27 Kenichi Handa <handa@m17n.org>
* international/mule-diag.el (unicode-data): Call
@ -484,7 +490,7 @@
(utf-16-be-with-signature): Comment-out :endian.
* mule-diag.el (describe-character-set): Fix
printing dimensions. Use `$B!_(B', not `x'.
printing dimensions. Use `,AW(B', not `x'.
2003-04-12 Kenichi Handa <handa@m17n.org>
@ -954,7 +960,7 @@
2002-09-05 Dave Love <fx@gnu.org>
* international/characters.el: Make $(D*s(B and $(D+s(B a case pair.
* international/characters.el: Make ,_/(B and ,A(B a case pair.
2002-09-03 Kenichi Handa <handa@etl.go.jp>

23
lisp/term/mac-win.el
View file

@ -186,12 +186,27 @@ Switch to a buffer editing the last file dropped."
;; Create a fontset that uses mac-roman font. With this fontset,
;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1,
;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font.
;; Unnecessary in emacs22
;; Carbon uses different fonts than commonly found on X, so
;; we define our own standard fontset here.
(defvar mac-standard-fontset-spec
"-apple-Monaco-normal-r-*-*-12-*-*-*-*-*-fontset-mac"
"String of fontset spec of the standard fontset.
This defines a fontset consisting of the Monaco variations for
European languages which are distributed with Mac OS X.
See the documentation of `create-fontset-from-fontset-spec for the format.")
(if (fboundp 'new-fontset)
(create-fontset-from-fontset-spec
"-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac,
ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman
mac-roman:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman"))
(progn
(require 'fontset)
;; Setup the default fontset.
(setup-default-fontset)
;; Create the standard fontset.
(create-fontset-from-fontset-spec mac-standard-fontset-spec t)
))
(if (eq system-type 'darwin)