Re: XEmacs & buffer-local fonts

["William M. Perry" <wmperry@aventail.com>]

Lars Magne Ingebrigtsen writes:

>I just decided that I wanted the article buffer to use a proportional
>font.  I thought that would be a breeze, but after reading the XEmacs
>manual some, it doesn't seem like a simple thing to do.  I must be
>overlooking something.
>
>So I did this, and it works, but it's slow.  So...  What's the *real*
>way of doing something like this?
>
>(defun lars-xmas-set-faces-font ()
>  "Set the font of all faces in the buffer to one font."
>  (let ((faces (face-list))
>	(font "-adobe-new century schoolbook-medium-r-normal--14-140-75-75-p-82-iso8859-1")
>	face props)
>    (while (setq face (pop faces))
>      (setq props (font-properties (face-font face)))
>      (set-face-font face font (current-buffer))
>      (when (equal (downcase (or (cdr (assq 'WEIGHT_NAME props)) "")) "bold")
>	(make-face-bold face (current-buffer)))
>      (when (equal (downcase (or (cdr (assq 'SLANT props)) "")) "i")
>	(make-face-italic face (current-buffer))))))
>
>(when (string-match "XEmacs" emacs-version)
>  (add-hook 'gnus-article-mode-hook 'lars-xmas-set-faces-font))

  This is why we need the 'font.el' package I wrote converted into C.  For
this, you'd just have:

(set-font-property (face-font 'default) 'family "serif" (current-buffer))

  Ok, anybody want to volunteer? :)

-Bill P.