bug#2994: Recent change to font.c:font_load_for_lface affects variable-pitch face in the modeline

[Juanma Barranquero]

On Thu, Apr 16, 2009 at 14:14, Kenichi Handa <handa@m17n.org> wrote:

> % emacs -Q
> ESC : (set-face-attribute 'variable-pitch nil :family "DejaVu Serif") RET
> ESC : (setq font-log nil) RET
> ESC : (insert (propertize " " 'face 'variable-pitch)) RET
> M-x font-show-log RET

If I do exactly that, i.e., in the *scratch* buffer, the space is in
Courier New (the default font), and the font log says:

list: -outline-Courier New-normal-*-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  ...
sort-by: -*-normal-italic-normal-*-13-*
uniscribe-match: -outline-Courier
New-normal-italic-normal-mono-13-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
match: -outline-Courier New-normal-italic-normal-mono-13-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
open: -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-13-*-c-*-iso10646-1


If I do the same steps, but I switch to a new buffer "test" (in
fundamental mode) just before setting font-log, the space is in
FreeIdgSerif and the font log says:

uniscribe-list: -outline-DejaVu Serif-*-iso8859-1
  -outline-DejaVu Serif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
w32font-list: -outline-DejaVu Serif-*-iso8859-1
  -outline-DejaVu Serif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
list: -outline-DejaVu Serif-normal-normal-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
sort-by: -*-normal-normal-normal-*-13-*
uniscribe-list: -outline-DejaVu Serif-*-ascii-0
w32font-list: -outline-DejaVu Serif-*-ascii-0
list: -outline-DejaVu Serif-normal-normal-*-ascii-0
uniscribe-list: -*-DejaVu Serif-*-iso8859-1
  -outline-DejaVu Serif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
w32font-list: -*-DejaVu Serif-*-iso8859-1
  -outline-DejaVu Serif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
list: -*-DejaVu Serif-normal-normal-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-DejaVu Serif-normal-normal-normal-serif-*-p-*-iso8859-1
sort-by: -*-normal-normal-normal-*-13-*
uniscribe-list: -*-DejaVu Serif-*-ascii-0
w32font-list: -*-DejaVu Serif-*-ascii-0
list: -*-DejaVu Serif-normal-normal-*-ascii-0
uniscribe-list: -outline-*-iso8859-1
  -outline-FreeIdgSerif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Arial-normal-italic-normal-sans-*-p-*-iso8859-1
  -outline-Arial-bold-italic-normal-sans-*-p-*-iso8859-1
  -outline-Arial-bold-normal-normal-sans-*-p-*-iso8859-1
  -outline-Arial-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-bold-italic-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-bold-normal-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Console-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Sans Unicode-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Times New Roman-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Verdana-bold-italic-normal-sans-*-p-*-iso8859-1
  ...
w32font-list: -outline-*-iso8859-1
  -raster-System-bold-normal-normal-sans-16-*-p-*-iso8859-1
  -raster-Fixedsys-normal-normal-normal-mono-15-*-c-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-11-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-10-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-8-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-6-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-5-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-3-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-35-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-27-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-21-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-19-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-16-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-13-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-11-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-10-*-p-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-20-*-c-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-16-*-c-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-13-*-c-*-iso8859-1
  ...
list: -outline-*-normal-normal-*-iso8859-1
  -outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Arial-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Console-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Sans Unicode-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Times New Roman-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Verdana-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Comic Sans MS-normal-normal-normal-script-*-p-*-iso8859-1
  -outline-Impact-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Georgia-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Franklin Gothic Medium-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Palatino Linotype-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Tahoma-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Tahoma-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Trebuchet MS-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Sylfaen-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Microsoft Sans Serif-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Arial Narrow-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Rockwell-normal-normal-normal-serif-*-p-*-iso8859-1
  ...
sort-by: -*-normal-normal-normal-*-13-*
uniscribe-list: -outline-*-ascii-0
w32font-list: -outline-*-ascii-0
list: -outline-*-normal-normal-*-ascii-0
uniscribe-list: -*-iso8859-1
  -outline-FreeIdgSerif-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Arial-normal-italic-normal-sans-*-p-*-iso8859-1
  -outline-Arial-bold-italic-normal-sans-*-p-*-iso8859-1
  -outline-Arial-bold-normal-normal-sans-*-p-*-iso8859-1
  -outline-Arial-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-bold-italic-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-bold-normal-normal-mono-*-c-*-iso8859-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Console-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Sans Unicode-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Times New Roman-normal-italic-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-bold-italic-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-bold-normal-normal-serif-*-p-*-iso8859-1
  -outline-Times New Roman-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Verdana-bold-italic-normal-sans-*-p-*-iso8859-1
  ...
w32font-list: -*-iso8859-1
  -raster-System-bold-normal-normal-sans-16-*-p-*-iso8859-1
  -raster-Fixedsys-normal-normal-normal-mono-15-*-c-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-11-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-10-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-8-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-6-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-5-*-p-*-iso8859-1
  -raster-Small Fonts-normal-normal-normal-sans-3-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-35-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-27-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-21-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-19-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-16-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-13-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-11-*-p-*-iso8859-1
  -raster-MS Serif-normal-normal-normal-serif-10-*-p-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-20-*-c-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-16-*-c-*-iso8859-1
  -raster-Courier-normal-normal-normal-mono-13-*-c-*-iso8859-1
  ...
list: -*-normal-normal-*-iso8859-1
  -outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Arial-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Console-normal-normal-normal-mono-*-c-*-iso8859-1
  -outline-Lucida Sans Unicode-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Times New Roman-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Verdana-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Comic Sans MS-normal-normal-normal-script-*-p-*-iso8859-1
  -outline-Impact-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Georgia-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Franklin Gothic Medium-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Palatino Linotype-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Tahoma-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Tahoma-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Trebuchet MS-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Sylfaen-normal-normal-normal-serif-*-p-*-iso8859-1
  -outline-Microsoft Sans Serif-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Arial Narrow-normal-normal-normal-sans-*-p-*-iso8859-1
  -outline-Rockwell-normal-normal-normal-serif-*-p-*-iso8859-1
  ...
sort-by: -*-normal-normal-normal-*-13-*
uniscribe-list: -*-ascii-0
w32font-list: -*-ascii-0
list: -*-normal-normal-*-ascii-0
uniscribe-match: -*-normal-normal-normal-*
  uniscribe:-outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso10646-1
match: -*-normal-normal-normal-*
  uniscribe:-outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso10646-1
open: -outline-FreeIdgSerif-normal-normal-normal-serif-*-p-*-iso10646-1
  uniscribe:-outline-FreeIdgSerif-normal-normal-normal-serif-13-*-p-*-iso10646-1
list: -outline-Courier New-normal-*-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-normal-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  ...
sort-by: -*-normal-italic-normal-*-13-*
uniscribe-match: -outline-Courier
New-normal-italic-normal-mono-13-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
match: -outline-Courier New-normal-italic-normal-mono-13-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
open: -outline-Courier New-normal-italic-normal-mono-*-c-*-iso10646-1
  uniscribe:-outline-Courier New-normal-italic-normal-mono-13-*-c-*-iso10646-1


Hope this helps,

    Juanma