From: William Perry <wmperry@aventail.com>
Cc: ding@ifi.uio.no
Subject: Re: Customize testers wanted
Date: Thu, 21 Nov 1996 10:18:43 -0800 [thread overview]
Message-ID: <199611211818.KAA20512@newman> (raw)
In-Reply-To: <rjviaza1et.fsf@babbage.dina.kvl.dk>
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.
next prev parent reply other threads:[~1996-11-21 18:18 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-11-20 15:04 Per Abrahamsen
1996-11-20 20:03 ` Hrvoje Niksic
1996-11-20 21:22 ` Sudish Joseph
1996-11-20 21:51 ` Hrvoje Niksic
1996-11-20 22:25 ` William Perry
1996-11-21 1:36 ` Per Abrahamsen
1996-11-21 3:33 ` Hrvoje Niksic
1996-11-21 15:20 ` William Perry
1996-11-21 15:55 ` Per Abrahamsen
1996-11-21 18:18 ` William Perry [this message]
1996-11-22 17:29 ` Per Abrahamsen
1996-11-22 19:47 ` Jens Lautenbacher
1996-11-22 20:41 ` William Perry
1996-11-23 16:38 ` Per Abrahamsen
1996-11-23 11:15 ` Hrvoje Niksic
1996-11-21 18:34 ` David Moore
1996-12-10 11:01 ` Ilya Zakharevich
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=199611211818.KAA20512@newman \
--to=wmperry@aventail.com \
--cc=ding@ifi.uio.no \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).