From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Subject: Re: fonts in carbon emacs
Date: Wed, 13 Jul 2005 18:22:22 +0900 [thread overview]
Message-ID: <wlackrxdpt.wl%mituharu@math.s.chiba-u.ac.jp> (raw)
In-Reply-To: <wlzmt4m6fl.wl%mituharu@math.s.chiba-u.ac.jp>
>>>>> On Sun, 03 Jul 2005 21:15:42 +0900, YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> said:
> A workaround is to customize "fontset-default" as follows:
> (fontset-add-mac-fonts "fontset-default" "monaco")
> But it has some drawbacks that 1) It does harm to ETL font users,
On second thought, this is not related to users who don't use these
fonts. So we can do like (unless (x-list-fonts "*-iso8859-1")
(fontset-add-mac-fonts ...)).
> and 2) Font family for Central-European/Cyrillic fonts are not
> synchronized with that for the ASCII (or mac-roman) font.
This issue would be eased by making the font family matching slightly
more flexible as follows (the change is for Mac only):
Index: src/xfaces.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfaces.c,v
retrieving revision 1.330
diff -c -r1.330 xfaces.c
*** src/xfaces.c 11 Jul 2005 14:28:21 -0000 1.330
--- src/xfaces.c 13 Jul 2005 08:36:08 -0000
***************
*** 6745,6758 ****
nfonts = try_alternative_families (f, try_family, registry, fonts);
#ifdef MAC_OS
! /* When realizing the default face and a font spec does not matched
! exactly, Emacs looks for ones with the same registry as the
! default font. On the Mac, this is mac-roman, which does not work
! if the family is -etl-fixed, e.g. The following widens the
! choices and fixes that problem. */
! if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry)
! && xstricmp (SDATA (registry), "mac-roman") == 0)
! nfonts = try_alternative_families (f, try_family, Qnil, fonts);
#endif
if (EQ (try_family, family))
--- 6745,6765 ----
nfonts = try_alternative_families (f, try_family, registry, fonts);
#ifdef MAC_OS
! if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry))
! if (xstricmp (SDATA (registry), "mac-roman") == 0)
! /* When realizing the default face and a font spec does not
! matched exactly, Emacs looks for ones with the same registry
! as the default font. On the Mac, this is mac-roman, which
! does not work if the family is -etl-fixed, e.g. The
! following widens the choices and fixes that problem. */
! nfonts = try_alternative_families (f, try_family, Qnil, fonts);
! else if (SBYTES (try_family) > 0
! && SREF (try_family, SBYTES (try_family) - 1) != '*')
! /* Some Central European/Cyrillic font family names have the
! Roman counterpart name as their prefix. */
! nfonts = try_alternative_families (f, concat2 (try_family,
! build_string ("*")),
! registry, fonts);
#endif
if (EQ (try_family, family))
I've made these changes to the CVS, and now change of the height by
customize-face works for the "default" face. They are still
workarounds and do not solve the problem mentioned in (*1), which is
not specific to Mac, but I think the situation has become better than
before.
(*1) http://lists.gnu.org/archive/html/emacs-devel/2005-07/msg00336.html
YAMAMOTO Mitsuharu
mituharu@math.s.chiba-u.ac.jp
next prev parent reply other threads:[~2005-07-13 9:22 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-07-03 8:21 fonts in carbon emacs Peter Novodvorsky
2005-07-03 9:23 ` Peter Novodvorsky
2005-07-03 9:56 ` Takashi Hiromatsu
2005-07-03 10:44 ` Randal L. Schwartz
2005-07-03 11:11 ` Peter Novodvorsky
2005-07-03 12:15 ` YAMAMOTO Mitsuharu
2005-07-03 13:19 ` Peter Novodvorsky
2005-07-03 13:25 ` Peter Novodvorsky
2005-07-03 19:44 ` Takashi Hiromatsu
2005-07-04 3:33 ` YAMAMOTO Mitsuharu
2005-07-03 20:01 ` Takashi Hiromatsu
2005-07-04 3:31 ` YAMAMOTO Mitsuharu
2005-07-04 4:24 ` Takashi Hiromatsu
2005-07-04 4:02 ` Takashi Hiromatsu
2005-07-04 14:31 ` Stefan Monnier
2005-07-13 9:22 ` YAMAMOTO Mitsuharu [this message]
2005-07-03 11:54 ` Peter Novodvorsky
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=wlackrxdpt.wl%mituharu@math.s.chiba-u.ac.jp \
--to=mituharu@math.s.chiba-u.ac.jp \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).