define-key #2 ---> ineffective if key is bound...

[D. Goel]

This bug was discovered by Miles Bader...

If i do an emacs -q -no-site-file, and
then do a 

(define-key key-translation-map [O] [o])

this seems to have no effect.. viz. pressing O still self-inserts O.

However, if i now do a (global-unset-key "O"), then the translation
comes into effect.. viz. pressing O self-inserts o.

According to the elisp manual,  key-translation-map should not care
about thew bindings...  some more info about some var's is included at
the end..


In GNU Emacs 21.1.3 (alphaev56-dec-osf4.0f, X toolkit, Xaw3d scroll bars)
 of 2001-10-30 on shorty.csc.umd.edu
configured using `configure  --prefix=/usr/local/gnu 
--infodir=/usr/local/gnu/info/emacs-21.1 --with-kerberos --with-x 
--with-x-toolkit=yes --with-xpm --with-jpeg --with-tiff --with-gif --with-png'
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: nil
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:




Recent input:
ESC O A ESC O A ESC O A ESC O A ESC O A ESC O A ESC 
O A ESC O A ESC O A ESC O A ESC O A ESC O A C-v C-v 
C-v C-v C-v C-v ESC v ESC v ESC v ESC v ESC v ESC v 
ESC v C-c C-c n n n y ESC O A ESC O A = ESC O A ESC 
O A ESC O A ESC O A ESC x r e p o r t - e m a c s - 
b u g RET

Recent messages:
Mark set [6 times]
Loading newcomment...done
Mark set [3 times]
Auto-saving...done
scroll-signal-boundary-error: Beginning of buffer
Loading bbdb-snarf...done
Formatting...done.
Type C-x 4 b RET to restore old contents of the bbdb-list window.
Sending...done



BTW, when i do an emacs -q -no-site-file, the following is the value
of initial value of some relevant variables:



keyboard-translate-table
nil

extra-keyboard-modifiers
0

key-translation-map
(keymap (24 keymap (56 . iso-transl-ctl-x-8-map)))

function-key-map
(keymap (27 keymap (91 keymap (54 keymap (126 . [next])) (53 keymap
(126 . [prior])) (52 keymap (126 . [select])) (51 keymap (52 keymap
(126 . [f20])) (51 keymap (126 . [f19])) (50 keymap (126 . [f18])) (49
keymap (126 . [f17])) (126 . [delete])) (50 keymap (57 keymap (126
. [menu])) (56 keymap (126 . [help])) (54 keymap (126 . [f14])) (53
keymap (126 . [f13])) (52 keymap (126 . [f12])) (51 keymap (126
. [27])) (49 keymap (126 . [f10])) (48 keymap (126 . [f9])) (126
. [insert])) (49 keymap (57 keymap (126 . [f8])) (56 keymap (126
. [f7])) (55 keymap (126 . [f6])) (53 keymap (126 . [f5])) (52 keymap
(126 . [f4])) (51 keymap (126 . [f3])) (50 keymap (126 . [f2])) (49
keymap (126 . [f1])) (126 . [find]))) (79 keymap (121 . [kp-9]) (120
. [kp-8]) (119 . [kp-7]) (118 . [kp-6]) (117 . [kp-5]) (116 . [kp-4])
(115 . [kp-3]) (114 . [kp-2]) (113 . [kp-1]) (112 . [kp-0]) (111
. [kp-divide]) (110 . [kp-decimal]) (109 . [kp-subtract]) (77
. [kp-enter]) (108 . [kp-separator]) (107 . [kp-add]) (106
. [kp-multiply]) (73 . [kp-tab]) (83 . [kp-f4]) (82 . [kp-f3]) (81
. [kp-f2]) (80 . [kp-f1]) (66 . [down]) (67 . [right]) (65 . [up]) (68
. [left]))) (kp-equal . [61]) (kp-divide . [47]) (kp-decimal . [46])
(kp-subtract . [45]) (kp-separator . [44]) (kp-add . [43])
(kp-multiply . [42]) (kp-enter . [13]) (kp-tab . [9]) (kp-space
. [32]) (kp-9 . [57]) (kp-8 . [56]) (kp-7 . [55]) (kp-6 . [54]) (kp-5
. [53]) (kp-4 . [52]) (kp-3 . [51]) (kp-2 . [50]) (kp-1 . [49]) (kp-0
. [48]) (24 keymap (64 keymap (99 . event-apply-control-modifier) (83
. event-apply-shift-modifier) (97 . event-apply-alt-modifier) (109
. event-apply-meta-modifier) (115 . event-apply-super-modifier) (104
. event-apply-hyper-modifier))) (C-S-kp-9 . [C-S-prior]) (C-S-kp-8
. [C-S-up]) (C-S-kp-7 . [C-S-home]) (C-S-kp-6 . [C-S-right]) (C-S-kp-4
. [C-S-left]) (C-S-kp-3 . [C-S-next]) (C-S-kp-2 . [C-S-down])
(C-S-kp-1 . [C-S-end]) (S-kp-9 . [S-prior]) (S-kp-8 . [S-up]) (S-kp-7
. [S-home]) (S-kp-6 . [S-right]) (S-kp-4 . [S-left]) (S-kp-3
. [S-next]) (S-kp-2 . [S-down]) (S-kp-1 . [S-end]) (C-S-kp-prior
. [C-S-prior]) (C-S-kp-up . [C-S-up]) (C-S-kp-home . [C-S-home])
(C-S-kp-right . [C-S-right]) (C-S-kp-left . [C-S-left]) (C-S-kp-next
. [C-S-next]) (C-S-kp-down . [C-S-down]) (C-S-kp-end . [C-S-end])
(S-kp-prior . [S-prior]) (S-kp-up . [S-up]) (S-kp-home . [S-home])
(S-kp-right . [S-right]) (S-kp-left . [S-left]) (S-kp-next . [S-next])
(S-kp-down . [S-down]) (S-kp-end . [S-end]) (kp-delete . [127])
(delete . [127]) (backspace . [127]) (kp-insert . [insert]) (kp-begin
. [begin]) (kp-end . [end]) (M-kp-next . [M-next]) (kp-next . [next])
(kp-prior . [prior]) (kp-down . [down]) (kp-right . [right]) (kp-up
. [up]) (kp-left . [left]) (kp-home . [home]))