/[emacs]/emacs/lisp/term/mac-win.el
ViewVC logotype

Diff of /emacs/lisp/term/mac-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22.2.3 by miles, Sun Jul 11 22:07:58 2004 UTC revision 1.22.2.4 by tamm, Wed Aug 4 06:04:04 2004 UTC
# Line 186  Switch to a buffer editing the last file Line 186  Switch to a buffer editing the last file
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)

Legend:
Removed from v.1.22.2.3  
changed lines
  Added in v.1.22.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26