From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8894
Path: main.gmane.org!not-for-mail
From: William Perry <wmperry@aventail.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Customize testers wanted
Date: Thu, 21 Nov 1996 10:18:43 -0800
Message-ID: <199611211818.KAA20512@newman>
References: <rjralodczf.fsf@babbage.dina.kvl.dk>
	<kigk9rgh6up.fsf@jagor.srce.hr>
	<kigzq0cfna3.fsf@jagor.srce.hr>
	<199611202225.OAA17998@newman>
	<rjsp64b552.fsf@babbage.dina.kvl.dk>
	<kigzq0ci0kq.fsf@jagor.srce.hr>
	<199611211520.HAA19717@newman>
	<rjviaza1et.fsf@babbage.dina.kvl.dk>
Reply-To: wmperry@aventail.com
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035149002 15157 80.91.224.250 (20 Oct 2002 21:23:22 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:23:22 +0000 (UTC)
Cc: ding@ifi.uio.no
Return-Path: <ding-request@ifi.uio.no>
Original-Received: (qmail 13867 invoked from smtpd); 21 Nov 1996 18:39:26 -0000
Original-Received: from ifi.uio.no (0@129.240.64.2)
  by deanna.miranova.com with SMTP; 21 Nov 1996 18:39:25 -0000
Original-Received: from newman (root@newman.aventail.com [38.225.141.10]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <TAA09137@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 21 Nov 1996 19:14:37 +0100
Original-Received: from kramer.in.aventail.com.aventail.com (root@newman [192.168.1.1]) by newman (8.6.12/8.6.9) with SMTP id KAA20512; Thu, 21 Nov 1996 10:18:43 -0800
Original-To: Per Abrahamsen <abraham@dina.kvl.dk>
In-Reply-To: <rjviaza1et.fsf@babbage.dina.kvl.dk>
Errors-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
Xref: main.gmane.org gmane.emacs.gnus.general:8894
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8894

Per Abrahamsen writes:
>
>Would it be this simple?
>
>(load-library "font")
>
>(defun set-face-font-size (face size &optional frame)
>  "Set the font of FACE to SIZE in optional FRAME."
>  (let ((font (get-face-font face frame)))
>    (set-font-size font size)
>    (set-face-font face  font frame)))

  Uhmmm...

(require 'font)
(if (not (fboundp 'face-font-name))
    (defun face-font-name (face &rest args)
      (apply 'face-font face args)))

(defun set-face-font-size (face size &rest args)
  "Set the font of FACE to SIZE"
  (let* ((font (apply 'face-font-name face args))
	 (fontobj (font-create-object font)))
    (set-font-size fontobj size)
    (apply 'set-face-font face fontobj args)))

-Bill P.