From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8896
Path: main.gmane.org!not-for-mail
From: David Moore <dmoore@UCSD.EDU>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Customize testers wanted
Date: 21 Nov 1996 10:34:00 -0800
Sender: dmoore@sdnp5.ucsd.edu
Message-ID: <rv917vl2lj.fsf@sdnp5.ucsd.edu>
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>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035149004 15192 80.91.224.250 (20 Oct 2002 21:23:24 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:23:24 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: (qmail 14098 invoked from smtpd); 21 Nov 1996 18:55:07 -0000
Original-Received: from ifi.uio.no (0@129.240.64.2)
  by deanna.miranova.com with SMTP; 21 Nov 1996 18:55:06 -0000
Original-Received: from UCSD.EDU (mailbox1.ucsd.edu [132.239.1.53]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <TAA10630@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 21 Nov 1996 19:35:19 +0100
Original-Received: from sdnp5.ucsd.edu (sdnp5.ucsd.edu [132.239.79.10]) by UCSD.EDU (8.8.3/8.6.9) with SMTP id KAA20019 for <ding@ifi.uio.no>; Thu, 21 Nov 1996 10:35:15 -0800 (PST)
Original-Received: by sdnp5.ucsd.edu (SMI-8.6/SMI-SVR4)
	id KAA06094; Thu, 21 Nov 1996 10:34:00 -0800
Original-To: "(ding) Gnus Mailing List" <ding@ifi.uio.no>
In-Reply-To: Per Abrahamsen's message of 21 Nov 1996 16:55:06 +0100
Original-Lines: 32
X-Mailer: Red Gnus v0.67/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:8896
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8896

Per Abrahamsen <abraham@dina.kvl.dk> 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)))

	Except for the lack of get-face-font, in the version of
"font.el" that is currently in xemacs 19.14.

	I think you might be able to use something like:

(let ((font-spec (face-property face 'font-specification frame)))
  (when font-spec
     (set-font-size font-spec size)
     (set-face-font face font-spec frame)))

This would only let you set the font sizes of fonts created after the
font.el library was loaded, however.  Although I guess if custom.el
loaded it first thing, it'd work for everything custom cares about.


-- 
David Moore <dmoore@ucsd.edu>       | Computer Systems Lab      __o
UCSD Dept. Computer Science - 0114  | Work: (619) 534-8604    _ \<,_
La Jolla, CA 92093-0114             | Fax:  (619) 534-1445   (_)/ (_)
<URL:http://oj.egbt.org/dmoore/>    | Solo Furnace Creek 508 -- 1996!