define-key acting strange..

[D. Goel]

on my QVT/Term (info on the settings available in the parent-mail..)

I do an emacs -q -no-site-file, and eval'ing the following expression
It evals just fine, giving [z] as the result, but now:

Emacs is completely frozen...  viz. it beeps at everything, including
ESC and C-g and C-z... and C-g C-g and all other self-insert chars
etc..  and all i can do is kill the session..


here's that expression:
(progn
  (define-key key-translation-map [a] [A])
  (define-key key-translation-map [b] [B])
  (define-key key-translation-map [c] [C])
  (define-key key-translation-map [d] [D])
  (define-key key-translation-map [e] [E])
  (define-key key-translation-map [f] [F])
  (define-key key-translation-map [g] [G])
  (define-key key-translation-map [h] [H])
  (define-key key-translation-map [i] [I])
  (define-key key-translation-map [j] [J])
  (define-key key-translation-map [k] [K])
  (define-key key-translation-map [l] [L])
  (define-key key-translation-map [m] [M])
  (define-key key-translation-map [n] [N])
  (define-key key-translation-map [o] [O])
  (define-key key-translation-map [p] [P])
  (define-key key-translation-map [q] [Q])
  (define-key key-translation-map [r] [R])
  (define-key key-translation-map [s] [S])
  (define-key key-translation-map [t] [T])
  (define-key key-translation-map [u] [U])
  (define-key key-translation-map [v] [V])
  (define-key key-translation-map [w] [W])
  (define-key key-translation-map [x] [X])
  (define-key key-translation-map [y] [Y])
  (define-key key-translation-map [z] [Z])

  (define-key key-translation-map [A] [a])
  (define-key key-translation-map [B] [b])
  (define-key key-translation-map [C] [c])
  (define-key key-translation-map [D] [d])
  (define-key key-translation-map [E] [e])
  (define-key key-translation-map [F] [f])
  (define-key key-translation-map [G] [g])
  (define-key key-translation-map [H] [h])
  (define-key key-translation-map [I] [i])
  (define-key key-translation-map [J] [j])
  (define-key key-translation-map [K] [k])
  (define-key key-translation-map [L] [l])
  (define-key key-translation-map [M] [m])
  (define-key key-translation-map [N] [n])
  (define-key key-translation-map [O] [o])
  (define-key key-translation-map [P] [p])
  (define-key key-translation-map [Q] [q])
  (define-key key-translation-map [R] [r])
  (define-key key-translation-map [S] [s])
  (define-key key-translation-map [T] [t])
  (define-key key-translation-map [U] [u])
  (define-key key-translation-map [V] [v])
  (define-key key-translation-map [W] [w])
  (define-key key-translation-map [X] [x])
  (define-key key-translation-map [Y] [y])
  (define-key key-translation-map [Z] [z])
  )



Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

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



Recent input:
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n ESC 
w = ESC x r e p o r t - e m a c s - b u g TAB RET

Recent messages:
Ticked 1 articles
Ticked 2 articles
Ticked 3 articles
Ticked 4 articles

Mark set
Saved text from "
on my QVT/Term (info on the settings av"

Loading emacsbug...done





> > > ====================================================
BTW, when i start emacs -q -no-site-file, here are the values of these
various parameters:


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]))