XEmacs & buffer-local fonts

[Lars Magne Ingebrigtsen <larsi@ifi.uio.no>]

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))

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen