# HG changeset patch
# User Steven Tamm <steventamm@mac.com>
# Date 1091599444 0
# Node ID e301e3f2bef861f717c98972e210bc496c6739f1
# Parent  0bdb5a16ae51bf84d743bb874c5a52829dffacaa
term/mac-win.el: Use mac-standard-fontset-spec to create
fontset-mac
(mac-standard-fontset-spec): Created

diff -r 0bdb5a16ae51 -r e301e3f2bef8 lisp/ChangeLog.22
--- a/lisp/ChangeLog.22	Tue Aug 03 00:03:00 2004 +0000
+++ b/lisp/ChangeLog.22	Wed Aug 04 06:04:04 2004 +0000
@@ -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>
 
diff -r 0bdb5a16ae51 -r e301e3f2bef8 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Tue Aug 03 00:03:00 2004 +0000
+++ b/lisp/term/mac-win.el	Wed Aug 04 06:04:04 2004 +0000
@@ -186,12 +186,27 @@
 ;; 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)