Re: `set-default-font' does not function anymore

Re: `set-default-font' does not function anymore

[Zhang Wei]

Chong Yidong <cyd@stupidchicken.com> writes:

> I can't reproduce this.  With .emacs containing

Sorry, the test is not thoroughly. no problem with .emacs containning:

--8<---------------cut here---------------start------------->8---
  (create-fontset-from-fontset-spec
   (concat
    "-adobe-courier-medium-r-normal--14-140-75-75-m-90-fontset-courier,"
    "chinese-gb2312:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gb2312*-*,"
    "mule-unicode-0100-24ff:-*-simsun-medium-r-*-*-14-*-*-*-c-*-iso10646*-*,"
    "korean-ksc5601:-*-*-medium-r-*-*-14-*-*-*-*-*-ksc5601*-*,"
    "chinese-cns11643-5:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
    "chinese-cns11643-6:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
    "chinese-cns11643-7:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
    "sjis:-*-medium-r-normal--14-*-jisx0208*-*"))
  (set-default-font "fontset-courier")
--8<---------------cut here---------------end--------------->8---

but, with  Emacs 22:

--8<---------------cut here---------------start------------->8---
$ cat ~/.Xdefaults
Emacs.Fontset-0:-adobe-courier-medium-r-normal--14-140-75-75-m-90-fontset-14,\
 chinese-gb2312:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gb2312*-0
 chinese-big5-1:-*-simsun-medium-r-*-*-14-*-*-*-c-*-big5-0,\
 chinese-big5-2:-*-simsun-medium-r-*-*-14-*-*-*-c-*-big5-0,\
chinese-cns11646-5:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,\
chinese-cns11646-6:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,\
chinese-cns11646-7:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*
Emacs.font: fontset-14

$ xrdb .Xdefaults
--8<---------------cut here---------------end--------------->8---

start emacs and M-x describe-fontset <RET> <RET> gives:

--8<---------------cut here---------------start------------->8---
Fontset: -*-*-*-*-*-*-*-*-*-*-*-*-fontset-default
CHARSET or CHAR RANGE	FONT NAME
---------------------	---------
ascii			-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1
     [-Adobe-Courier-Bold-R-Normal--14-100-100-100-M-90-ISO8859-1]
     [-Adobe-Courier-Medium-R-Normal--14-100-100-100-M-90-ISO8859-1]
latin-iso8859-1		-*-iso8859-1
latin-iso8859-2		-*-iso8859-2
latin-iso8859-3		-*-iso8859-3
...
--8<---------------cut here---------------end--------------->8---

M-x describe-fontset fontset-14 <RET> gives:

--8<---------------cut here---------------start------------->8---
Fontset: -adobe-courier-medium-r-normal--14-140-75-75-m-90-fontset-14
CHARSET or CHAR RANGE	FONT NAME
---------------------	---------
ascii			-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1
latin-iso8859-1		-adobe-courier-*-iso8859-1
...
--8<---------------cut here---------------end--------------->8---

M-: (set-default-font "fontset-14") and M-x describe-fontset <RET> <RET>
still gives fontset-default.