Re: emacs chooses wrong bold font, again

[Kenichi Handa <handa@m17n.org>]

In article <vj1w2sr2yo.fsf@fencepost.gnu.org>, Glenn Morris <rgm@gnu.org> writes:

> The bold font is correct again now (Emacs from 2 days ago gets it wrong).

Strange.  I didn't change any code related to font-selection
in these two days.

> I noticed that Emacs 22 and current CVS choose slightly different
> fonts for fixed and variable pitch. Fixed looks smaller and a bit
> uglier now. Variable just looks a bit different.

> variable-pitch
> CVS:
> -adobe-helvetica-medium-r-normal--14-101-100-100-p-78-iso8859-1
> 22:
> -Adobe-Helvetica-Medium-R-Normal--14-100-100-100-P-76-ISO8859-1

> fixed-pitch
> CVS:
> -urw-nimbus mono l-regular-r-normal--14-101-100-100-p-80-iso8859-1
> 22:
> -Adobe-Courier-Medium-R-Normal--14-100-100-100-M-90-ISO8859-1

> This is with:
> Emacs.font: -misc-fixed-medium-r-normal-*-14-*-100-100-*-*-iso8859-1

In my environment, with the above default font, CVS emacs
uses exactly the same fonts as Emacs 22.

> Also, I have been specifying an italic font in ~/.emacs using

> (face-spec-set 'italic
>                '((t (:slant italic :underline nil :family "helvetica"))))

> In CVS this now looks poor compared to in 22. Again they choose
> different fonts:

> CVS:
> -urw-nimbus sans l-regular-i-normal--14-101-100-100-p-77-iso8859-1
> 22:
> -Adobe-Helvetica-Medium-O-Normal--14-100-100-100-P-78-ISO8859-1

I tried that too, and get the same result as Emacs 22.
Please tell me your system (sorry if I asked it before).

> font log:
[...]
> sort-by: -misc-fixed-bold-r-normal--14-*-100-100-c-70-iso8859-1
>   x:-misc-fixed-bold-r-normal--14-*-75-75-c-70-iso8859-1
> open: -misc-fixed-bold-r-normal--14-*-75-75-c-70-iso8859-1
>   x:-misc-fixed-bold-r-normal--14-130-75-75-c-70-iso8859-1

Hmmm, the PIXELSIZE field is correct now.

Please try this:

(1) Start Emacs as usual.

(2) Load the attached file "temp.el".

(3) M-x temp RET

And show me the result of *Help* buffer.

---
Kenichi Handa
handa@ni.aist.go.jp

----temp.el------------------------------------------------------------------
(defun temp ()
  (interactive)
  (let ((buf (get-buffer-create "temp")))
    (set-buffer buf)
    (erase-buffer)
    (font-lock-mode -1)
    (insert (propertize "italic" 'face 'italic))
    (insert "\n")
    (insert (propertize "fixed-pitch" 'face 'fixed-pitch))
    (insert "\n")
    (insert (propertize "variable-pitch" 'face 'variable-pitch))
    (insert "\n")
    (switch-to-buffer buf)
    (setq font-log nil)
    (sit-for 0)
    (font-show-log)))