Re: Multiple Size faces in one document

[Thomas S. Atkins]

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