Re: Remap key to UK pound sign

[Peter Dyballa]

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