Re: Special Characters on Mac Emacs

[YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>]

>>>>> On Thu, 10 Mar 2005 10:18:02 -0600, Ulrich Hobelmann <u.hobelmann@web.de> said:

> To make Emacs display the stuff the following works:

> (create-fontset-from-fontset-spec
> "-apple-monaco-medium-r-normal--12-*-*-*-*-*-fontset-monaco,
> ascii:-apple-monaco-medium-r-normal--12-120-75-75-m-120-mac-roman,
(snip)
> latin-iso8859-15:-apple-monaco-medium-r-normal--12-120-75-75-m-120-mac-roman,
> latin-iso8859-1:-apple-monaco-medium-r-normal--12-120-75-75-m-120-mac-roman"
> )

> (set-face-font 'default
> "-apple-monaco-medium-r-normal--12-*-*-*-*-*-fontset-monaco")

I'd rather not recommend directly specifying mac-roman fonts for
latin-iso8859-1 or latin-iso8859-15 character set.  Because mac-roman
does not have all the characters for them, some characters are
displayed with wrong glyph.  If it had all,
`face-font-registry-alternatives' would be set accordingly.

 (If you do not care about wrong glyph, the easiest way is to add

  (custom-set-variables
    '(face-font-registry-alternatives
      '(("iso8859-1" "mac-roman") ("iso8859-15" "mac-roman"))))

 to ~/.emacs.  Then mac-roman fonts can be used in place of
 iso8859-1(15) fonts in many cases.)

Maybe `create-fontset-from-mac-roman-font' or `fontset-add-mac-fonts'
mentioned in 

  http://lists.gnu.org/archive/html/emacs-devel/2004-12/msg00004.html

would be of help.  Also, the following patch makes "fontset-mac" a
fallback fontset, and if one specifies a mac-roman font via the -fn
option or preferences like

  % defaults write org.gnu.Emacs Emacs.font '-apple-lucida sans typewriter-medium-r-normal--14-*-75-75-m-*-mac-roman'

then `create-fontset-from-mac-roman-font' is automatically used to
augment the specified font with many accented characters.

				     YAMAMOTO Mitsuharu
				mituharu@math.s.chiba-u.ac.jp

Index: lisp/term/mac-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v
retrieving revision 1.35
diff -c -r1.35 mac-win.el
*** lisp/term/mac-win.el	16 Mar 2005 03:23:34 -0000	1.35
--- lisp/term/mac-win.el	23 Mar 2005 10:43:45 -0000
***************
*** 1577,1583 ****
  	  (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
  	;; Create a fontset from FONT.  The fontset name is
  	;; generated from FONT.
! 	(create-fontset-from-ascii-font font resolved-name "startup"))))
  
  ;; Apply a geometry resource to the initial frame.  Put it at the end
  ;; of the alist, so that anything specified on the command line takes
--- 1577,1586 ----
  	  (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
  	;; Create a fontset from FONT.  The fontset name is
  	;; generated from FONT.
! 	(if (and (string= "mac" (aref xlfd-fields xlfd-regexp-registry-subnum))
! 		 (string= "roman" (aref xlfd-fields xlfd-regexp-encoding-subnum)))
! 	    (create-fontset-from-mac-roman-font font resolved-name "startup")
! 	  (create-fontset-from-ascii-font font resolved-name "startup")))))
  
  ;; Apply a geometry resource to the initial frame.  Put it at the end
  ;; of the alist, so that anything specified on the command line takes
Index: src/macfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/macfns.c,v
retrieving revision 1.54
diff -c -r1.54 macfns.c
*** src/macfns.c	16 Mar 2005 08:06:33 -0000	1.54
--- src/macfns.c	23 Mar 2005 10:43:45 -0000
***************
*** 2632,2637 ****
--- 2632,2639 ----
        font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
      /* If those didn't work, look for something which will at least work.  */
      if (! STRINGP (font))
+       font = x_new_fontset (f, "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac");
+     if (! STRINGP (font))
        font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
      if (! STRINGP (font))
        font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
***************
*** 3732,3737 ****
--- 3734,3741 ----
        font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
      /* If those didn't work, look for something which will at least work.  */
      if (! STRINGP (font))
+       font = x_new_fontset (f, "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac");
+     if (! STRINGP (font))
        font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
      if (! STRINGP (font))
        font = x_new_font (f, "-*-courier-*-10-*-mac-roman");