Re: :family and :height in set-face-attribute

[Eli Zaretskii <eliz@gnu.org>]

> Date: Mon, 24 Jun 2024 14:57:09 +0000
> From: Heime <heimeborgia@protonmail.com>
> Cc: help-gnu-emacs@gnu.org
> 
> On Monday, June 24th, 2024 at 12:54 PM, Eli Zaretskii <eliz@gnu.org> wrote:
> 
> > > Date: Mon, 24 Jun 2024 10:32:25 +0000
> > > From: Heime heimeborgia@protonmail.com
> > > 
> > > I have the following command working
> > > 
> > > (buffer-face-mode-invoke
> > > `(:family ,face-family :height ,(string-to-number face-height)) t)
> > > 
> > > But this one does not
> > > 
> > > (set-face-attribute 'default nil
> > > :family face-family :height (string-to-number face-height))
> > 
> > 
> > Works for me. But since you haven't shown the values of face-family
> > and face-height, it's hard to tell whether I reproduced what you do.
> 
> This is it
> 
> (defvar monatt nil
>   "A boolean variable that is true by default.")
> 
> (defun monfont (face-family face-height)
> 
>   (interactive
> 
>     (list
> 
>       (let ( (cseq '("Wargames" "URW Chancery L" "Century Schoolbook L" "Bold Oblique")) )
> 
>         (completing-read " Family Name: " cseq nil t "Bold Oblique"))
> 
> 
>       (let ( (hseq '("340" "300" "260" "220" "180")) )
> 
>         (completing-read " Face Height: " hseq nil t "180")) ))
> 
>   (if monatt
> 
>       (buffer-face-mode-invoke
> 
>         `(:family ,face-family :height ,(string-to-number face-height)) t)
> 
>     (set-face-attribute 'default nil
> 
>       :family face-family :height (string-to-number face-height)) ))

Come on, can't you just show the values you use in the
set-face-attribute call?

Also, is the value of face-family with which you call
set-face-attribute one of the families returned by font-family-list?