How to set the font of a region?

How to set the font of a region?

[Pascal Bourguignon]

I tried this (on X, emacs 21.3.1): 

(let* ((default-font "-*-console-medium-r-normal-*-16-*-*-*-*-*-*-*")
       (default-face (gensym "face")))
  (make-face default-face)
  (set-face-font default-face default-font)
  (dolist (font font-list)
    (let ((face (gensym "face")))
      (make-face face)
      (set-face-font face font)
      (let ((start (point)))
        (insert font)
        (insert "\n")
        (facemenu-add-face 'default start (point))
        (facemenu-set-face default-face start (point)))
      (let ((start (point)))
        (insert "The lazy dog jumped over the fast fox! (let [it {be} and] say) no.more;\n")
        (facemenu-add-face 'default start (point))
        (facemenu-set-face face start (point))))))

-->

--international-medium-r-normal--15-150-72-72-m-90-iso8859-1
The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
--iris-medium-r-normal--10-100-72-72-m-60-iso8859-1
The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
--iris-medium-r-normal--12-120-72-72-m-80-iso8859-1
The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
--iris-medium-r-normal--13-130-72-72-m-90-iso8859-1
The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
...


but all the text generated keeps the same default font.  Why my
facemenu-set-face calls are without effect?

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

There is no worse tyranny than to force a man to pay for what he does not
want merely because you think it would be good for him. -- Robert Heinlein

Re: How to set the font of a region?

[Kevin Rodgers]

Pascal Bourguignon wrote:
 > I tried this (on X, emacs 21.3.1):
 >
 > (let* ((default-font "-*-console-medium-r-normal-*-16-*-*-*-*-*-*-*")
 >        (default-face (gensym "face")))
 >   (make-face default-face)
 >   (set-face-font default-face default-font)
 >   (dolist (font font-list)
 >     (let ((face (gensym "face")))
 >       (make-face face)
 >       (set-face-font face font)
 >       (let ((start (point)))
 >         (insert font)
 >         (insert "\n")
 >         (facemenu-add-face 'default start (point))
 >         (facemenu-set-face default-face start (point)))
 >       (let ((start (point)))
 >         (insert "The lazy dog jumped over the fast fox! (let [it {be} and] say) no.more;\n")
 >         (facemenu-add-face 'default start (point))
 >         (facemenu-set-face face start (point))))))
 >
 > -->
 >
 > --international-medium-r-normal--15-150-72-72-m-90-iso8859-1
 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
 > --iris-medium-r-normal--10-100-72-72-m-60-iso8859-1
 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
 > --iris-medium-r-normal--12-120-72-72-m-80-iso8859-1
 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
 > --iris-medium-r-normal--13-130-72-72-m-90-iso8859-1
 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
 > ...
 >
 >
 > but all the text generated keeps the same default font.  Why my
 > facemenu-set-face calls are without effect?

I don't know.  Does it help to use an interned symbol for the face?
i.e. change (gensym "face") to (gentemp "face") after (require 'cl).

-- 
Kevin Rodgers

Re: How to set the font of a region?

[Pascal Bourguignon]

Pascal Bourguignon <spam@thalassa.informatimago.com> writes:

> I tried this (on X, emacs 21.3.1): 
> 
> (let* ((default-font "-*-console-medium-r-normal-*-16-*-*-*-*-*-*-*")
>        (default-face (gensym "face")))
>   (make-face default-face)
>   (set-face-font default-face default-font)
>   (dolist (font font-list)
>     (let ((face (gensym "face")))
>       (make-face face)
>       (set-face-font face font)
>       (let ((start (point)))
>         (insert font)
>         (insert "\n")
>         (facemenu-add-face 'default start (point))
>         (facemenu-set-face default-face start (point)))
>       (let ((start (point)))
>         (insert "The lazy dog jumped over the fast fox! (let [it {be} and] say) no.more;\n")
>         (facemenu-add-face 'default start (point))
>         (facemenu-set-face face start (point))))))
> 
> -->
> 
> --international-medium-r-normal--15-150-72-72-m-90-iso8859-1
> The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
> --iris-medium-r-normal--10-100-72-72-m-60-iso8859-1
> The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
> --iris-medium-r-normal--12-120-72-72-m-80-iso8859-1
> The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
> --iris-medium-r-normal--13-130-72-72-m-90-iso8859-1
> The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more;
> ...
> 
> 
> but all the text generated keeps the same default font.  Why my
> facemenu-set-face calls are without effect?

No, apart being much slower, there's no change in results.

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

There is no worse tyranny than to force a man to pay for what he does not
want merely because you think it would be good for him. -- Robert Heinlein

Re: How to set the font of a region?

[Oliver Scholz]

Pascal Bourguignon <spam@thalassa.informatimago.com> writes:

> I tried this (on X, emacs 21.3.1): 
>
> (let* ((default-font "-*-console-medium-r-normal-*-16-*-*-*-*-*-*-*")
>        (default-face (gensym "face")))
>   (make-face default-face)
>   (set-face-font default-face default-font)
>   (dolist (font font-list)
>     (let ((face (gensym "face")))
>       (make-face face)
>       (set-face-font face font)
>       (let ((start (point)))
>         (insert font)
>         (insert "\n")
>         (facemenu-add-face 'default start (point))
>         (facemenu-set-face default-face start (point)))
>       (let ((start (point)))
>         (insert "The lazy dog jumped over the fast fox! (let [it {be} and] say) no.more;\n")
>         (facemenu-add-face 'default start (point))
>         (facemenu-set-face face start (point))))))
>
[...]
> but all the text generated keeps the same default font.  Why my
> facemenu-set-face calls are without effect?

What major mode had the buffer in which you tried it?  If font-lock
mode is on, it removes all faces from buffer text before it adds its
own. (In CVS Emacs you can use the text property `font-lock-face' to
deal with that.)

Also, I'd use `put-text-property' to add faces programmatically. And
for cases like the above, I'd use an anonymous face---a list of the
form:

(face . PROPERTIES)

(progn
  (switch-to-buffer (generate-new-buffer "*tmp*"))
  (fundamental-mode)
  (let ((start (point)))
    (insert "The quick brown fox jumps over the lazy dog.\n")
;;     (facemenu-add-face 'font-lock-warning-face start (point))
    (put-text-property start (point)
		       'face
		       '(face :family "times new roman" :foreground "blue"))
    ))


    Oliver
-- 
19 Thermidor an 212 de la Révolution
Liberté, Egalité, Fraternité!