Re: Remap key to UK pound sign

[Peter Dyballa <Peter_Dyballa@Web.DE>]

Am 22.06.2005 um 22:49 schrieb zaphod:

> Here's the result:
>
>  character: £ (04243, 2211, 0x8a3, U+00A3)
>     charset: latin-iso8859-1 (Right-Hand Part of Latin Alphabet 1 
> (ISO/IEC
> 8859-1): ISO-IR-100.)
>  code point: 35
>      syntax: w 	which means: word
>    category: l:Latin
> buffer code: 0x81 0xA3
>   file code: 0xA3 (encoded by coding system iso-latin-1)
>     display: no font available
>

Here above is the answer: "no font available."

You're lucky that the £ is defined in the MacRoman encoding! So all you 
need are fontsets from fonts of your system. To get a list of all 
available fonts:

1) find a name for the file containing all available fonts
2) write that name down in *scratch* buffer and copy it into a register
3) type M-x set-frame-fonts RET TAB TAB C-g
4) change back into the *Completions* buffer
5) save it to the file name in that register -- if you try to expand a 
file name the *Completions* buffer will contain these expansions!

Now create fontsets à la these templates (with the right fonts and the 
preferred sizes):

	(create-fontset-from-mac-roman-font "-*-bitstream vera sans 
mono-medium-r-*-*-9-*-*-*-*-*-mac-roman" nil "09pt_vera_sans_mono")
	(create-fontset-from-mac-roman-font "-*-letter 
gothic-medium-r-*-*-10-*-*-*-*-*-mac-roman"           nil 
"10pt_letter_gothic")
	(create-fontset-from-mac-roman-font 
"-*-courier-medium-r-*-*-11-*-*-*-*-*-mac-roman"                 nil 
"11pt_bitstream_courier")
	(create-fontset-from-mac-roman-font "-*-courier 
std-medium-r-*-*-12-*-*-*-*-*-mac-roman"             nil 
"12pt_courier_std")
	(create-fontset-from-mac-roman-font 
"-*-monaco-medium-r-*-*-13-*-*-*-*-*-mac-roman"                  nil 
"13pt_monaco")
	(create-fontset-from-mac-roman-font "-*-andale 
mono-medium-r-*-*-14-*-*-*-*-*-mac-roman"             nil 
"14pt_andale_mono")

Use in .emacs something like:

	(setq initial-frame-alist '(
	  (mouse-color	 . "blue")
	  (foreground-color . "midnightblue")
	  (background-color . "antiquewhite1")
	  (font . "fontset-13pt_courier_new")
	  (top . 10) (left . 650) (width . 89) (height . 60)))
	(setq default-frame-alist '(
	  (background-color 	 . "ghost white")
	  (foreground-color 	 . "grey10")
	  (cursor-color     	 . "purple")
	  (cursor-type      	 . box)
	  (vertical-scroll-bars . left)
	  (font . "fontset-12pt_bitstream_courier")
	  (top . 20) (left . 150) (width . 89) (height . 56)))

and

	(set-terminal-coding-system	'mac-roman)
	(set-default-coding-systems	'mac-roman)
	(prefer-coding-system		'mac-roman)

In cases when this setup fails you can add something like this to a 
file's header:

	;;; -*- mode: Text; coding: mac-roman-unix; -*-

Remember that in Carbon Emacs you're restricted to Mac encodings!

--
Greetings

   Pete

 From error to error, one discovers the entire truth.
                                                             -Sigmund 
Freud