Euro sign bound, Pound sign not bound. (Bug?)

[David Reitter]

The following strikes me as strange:

(key-binding "€") ;; (Euro character) returns 'self-insert-command, but
(key-binding "£") ;; (Pound character) returns nil

Is this a bug?

Similarly, in `isearch', when `overriding-terminal-local-map' is  
defined,

(lookup-key overriding-terminal-local-map "£") ;; returns nil
(lookup-key overriding-terminal-local-map "€")  ;; returns `isearch- 
printing-char' (as expected)

Normal `isearch' works, though.


I am trying to find out what command is bound to a key such as "£" or  
"€" - usually that will be `self-insert-command', but I also need to  
cover cases like in isearch. This is what I'm doing:

(defun emmkm-key-binding (key)
  (or
   (if overriding-terminal-local-map
       (lookup-key overriding-terminal-local-map key)
     (key-binding key))
   ;; not all keys are bound to self-insert-command -- e.g. the  
pound sign.
   'self-insert-command))

... and it can't find the key binding during isearch.

Thanks for your help.


In GNU Emacs 22.0.99.1 (powerpc-apple-darwin7.9.0, Carbon Version 1.6.0)
 of 2007-04-30 on rodrigues.inf.ed.ac.uk - Aquamacs Distribution 1.0rc4
Windowing system distributor `Apple Inc.', version 10.4.9
configured using `configure  '--without-x' '--prefix=/usr/local''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: iso-8859-1
  default-enable-multibyte-characters: t

Major mode: Text

Minor modes in effect:
  TeX-PDF-mode: t
  shell-dirtrack-mode: t
  smart-frame-positioning-mode: t
  aquamacs-styles-mode: t
  recentf-mode: t
  emulate-mac-us-keyboard-mode: t
  encoded-kbd-mode: t
  osx-key-mode: t
  longlines-mode: t
  show-paren-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  cua-mode: t
  tooltip-mode: t
  mac-input-method-mode: t
  tool-bar-mode: 0
  mouse-wheel-mode: t
  use-hard-newlines: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<triple-wheel-down> <wheel-down> <double-wheel-down>
<triple-wheel-down> <wheel-down> <wheel-down> <wheel-down>
<wheel-down> <double-wheel-down> <down-mouse-1> <mouse-1>
<double-down-mouse-1> <double-mouse-1> " M-@ " <right>
C-x C-e <up> C-x C-e <down> SPC ; ; SPC s e l f - i
n s e r t - c o m m a n d <up> SPC ; ; SPC n i l <down>
<down> <return> <return> <up> <up> <return> ; ; SPC
A-s C-g <help-echo> <down-mouse-1> <mouse-movement>
<mouse-movement> <drag-mouse-1> A-x <down-mouse-1>
<mouse-movement> <mouse-movement> <drag-mouse-1> SPC
A-s <switch-frame> <down-mouse-1> <mouse-movement>
<mouse-1> A-v <down-mouse-1> <mouse-1> <menu-bar> <options>
<option-key-menu> <option-to-system> <down-mouse-1>
<mouse-1> A-f <down-mouse-1> <mouse-1> A-f <down-mouse-1>
<mouse-1> <switch-frame> <down-mouse-1> <mouse-movement>
<mouse-1> A-w A-f <down-mouse-1> <mouse-1> A-s <down-mouse-1>
<mouse-1> <down-mouse-1> <mouse-1> SPC A-s C-x v v
A-w C-x v = <help-echo> <down-mouse-1> <mouse-movement>
<mouse-1> <wheel-down> <double-wheel-down> <triple-wheel-down>
<triple-wheel-up> <triple-wheel-up> <triple-wheel-up>
<down-mouse-1> <mouse-movement> <mouse-1> A-w <A-backspace>
A-s C-x v v A-w C-x v = <help-echo> <wheel-down> <double-wheel-down>
<triple-wheel-down> <triple-wheel-down> <triple-wheel-up>
<triple-wheel-up> <help-echo> <down-mouse-1> <mouse-1>
<down-mouse-1> <mouse-1> <return> A-s <help-echo> <down-mouse-1>
<mouse-1> A-w C-x v = <down-mouse-1> <mouse-1> A-w
<down-mouse-1> <mouse-1> <switch-frame> <down-mouse-1>
<mouse-movement> <mouse-1> <switch-frame> <down-mouse-1>
<mouse-1> <double-down-mouse-1> <mouse-movement> <double-mouse-1>
A-c <switch-frame> A-v <return> <return> <down-mouse-1>
<mouse-1> <double-down-mouse-1> <mouse-movement> <double-mouse-1>
<S-down-mouse-1> <S-mouse-1> A-c <down-mouse-1> <mouse-1>
<double-down-mouse-1> <double-mouse-1> A-v <down-mouse-1>
<mouse-movement> <mouse-movement> <drag-mouse-1> A-c
<down-mouse-1> <mouse-1> A-v <down-mouse-1> <mouse-1>
<double-down-mouse-1> <double-mouse-1> <triple-down-mouse-1>
<triple-mouse-1> <triple-down-mouse-1> <mouse-movement>
<mouse-movement> <triple-drag-mouse-1> A-c <down-mouse-1>
<mouse-1> <double-down-mouse-1> <double-mouse-1> <delete>
<backspace> <delete> A-v <down-mouse-1> <mouse-1> C-x
C-e <down-mouse-1> <mouse-1> A-w C-x C-w C-g C-x C-e
<help-echo> <down-mouse-1> <mouse-1> A-w <down-mouse-1>
<mouse-movement> <mouse-movement> <mouse-movement>
<mouse-movement> <mouse-movement> <drag-mouse-1> A-c
<down-mouse-1> <mouse-1> A-f <escape> : A-v <return>
<help-echo> <down-mouse-1> <mouse-1> A-w C-h v i s
e a r <tab> - <tab> m a <tab> <backspace> <backspace>
k <tab> <backspace> <wheel-down> <double-wheel-down>
<triple-wheel-down> <triple-wheel-down> <wheel-down>
<double-wheel-down> <wheel-down> <double-wheel-down>
<triple-wheel-down> <down-mouse-1> <mouse-1> A-w <down-mouse-1>
<mouse-1> <down-mouse-1> <mouse-movement> <mouse-movement>
<drag-mouse-1> A-c <down-mouse-1> <mouse-1> <menu-bar>
<help-menu> <report-emacs-bug>

Recent messages:
Press C-c C-c when you are done editing.
Enter a change comment.  Type C-c C-c when done
Wrote /Users/dr/src/macosx/emulate-mac-keyboard-mode.el
Mark set [4 times]
Entering debugger...
Quit
Entering debugger... [2 times]
Making completion list...
Quit
Loading emacsbug...done