From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Thomas S. Atkins" <tatkins@aug.com>
Newsgroups: gmane.emacs.help
Subject: Re: Multiple Size faces in one document
Date: Tue, 04 Feb 2003 12:08:54 -0500
Organization: Posted via Supernews, http://www.supernews.com
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <pan.2003.02.04.17.08.51.845576@aug.com>
References: <pan.2003.02.03.21.17.35.236455@aug.com>
	<wzid6m8p2pk.fsf@melbourne.laas.fr>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1044378807 13908 80.91.224.249 (4 Feb 2003 17:13:27 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 4 Feb 2003 17:13:27 +0000 (UTC)
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18g6cs-0003Xz-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Tue, 04 Feb 2003 18:12:50 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18g6ad-0002mL-02
	for gnu-help-gnu-emacs@m.gmane.org; Tue, 04 Feb 2003 12:10:31 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!cyclone.bc.net!sjc70.webusenet.com!news.webusenet.com!sn-xit-02!sn-xit-06!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
User-Agent: Pan/0.13.2 (I wwwondeling why alla boppah ferra pushing in?)
Original-X-Complaints-To: abuse@supernews.com
Original-Lines: 38
Original-Xref: shelby.stanford.edu gnu.emacs.help:109786
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:6295
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:6295

On Tue, 04 Feb 2003 14:58:31 +0100, Eric Marsden wrote:


> 
> Try loading the following code and using enriched-mode. This adds
> basic support for the <bigger> and <smaller> tags in the text/enriched
> format (RFC1896). To make text in the region larger, use "M-g +"; to
> make it smaller, use "M-g -".
> 
> This code doesn't handle nested sizing tags correctly; stuff like
> 
>    <bigger><bigger>foo</bigger></bigger>
> 
> is handled like <bigger>foo</bigger>.
> 
> 
>   
> (require 'enriched)
> 
> (let ((display-translations (assq 'display enriched-translations)))
>   (setcdr display-translations
>           '(((height (+ 2)) "bigger")
>             ((height (- 2)) "smaller")
>             (nil enriched-handle-display-prop))))
> 
> (put 'display 'format-list-valued nil)
> 
> (defun facemenu-set-bigger (start end)
>   (interactive "r")
>   (add-text-properties start end '(display (height (+ 2)))))
> 
> (defun facemenu-set-smaller (start end)
>   (interactive "r")
>   (add-text-properties start end '(display (height (- 2)))))
> 
> (define-key facemenu-keymap [?+] 'facemenu-set-bigger)
> (define-key facemenu-keymap [?-] 'facemenu-set-smaller)
Thanks I will give this a try