From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9606
Path: main.gmane.org!not-for-mail
From: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Newsgroups: gmane.emacs.gnus.general
Subject: XEmacs & buffer-local fonts
Date: 24 Jan 1997 15:07:09 +0100
Sender: larsi@proletcult.slip.ifi.uio.no
Message-ID: <m2680nw4j6.fsf@proletcult.slip.ifi.uio.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035149605 19426 80.91.224.250 (20 Oct 2002 21:33:25 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:33:25 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id GAA17608
	for <steve@miranova.com>; Fri, 24 Jan 1997 06:35:12 -0800
Original-Received: from proletcult.slip.ifi.uio.no (larsi@xyplex29.uio.no [129.240.154.49]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <PAA22455@ifi.uio.no> for <ding@ifi.uio.no> ; Fri, 24 Jan 1997 15:07:21 +0100
Original-Received: (from larsi@localhost) by proletcult.slip.ifi.uio.no (8.8.2/8.8.2) id PAA07005; Fri, 24 Jan 1997 15:07:13 +0100
Original-To: ding@ifi.uio.no
Original-Lines: 27
X-Mailer: Red Gnus v0.84/XEmacs 19.14
X-Face: &w!^oO<W.WBH]FsTP:P0f9X6M-ygaADlA_)eF$<UwQzj7:C=Gi<a?/_4$LX^@$Qq7-O&XHp
 lDARi8e8iT<(A$LWAZD*xjk^')/wI5nG;1cNB>~dS|}-P0~ge{$c!h\<y
Xref: main.gmane.org gmane.emacs.gnus.general:9606
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9606

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