Mercurial > hg > xemacs-beta

comparison lisp/events.el @ 321:19dcec799385 r21-0-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents 41ff10fd062f
children cc15677e0335
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
118 118
119 See `keyboard-translate-table' for more information." 119 See `keyboard-translate-table' for more information."
120 (while pairs 120 (while pairs
121 (puthash (pop pairs) (pop pairs) keyboard-translate-table))) 121 (puthash (pop pairs) (pop pairs) keyboard-translate-table)))
122 122
123 (put 'backspace 'ascii-character ?\b)
124 (put 'delete 'ascii-character ?\177)
125 (put 'tab 'ascii-character ?\t) 123 (put 'tab 'ascii-character ?\t)
126 (put 'linefeed 'ascii-character ?\n) 124 (put 'linefeed 'ascii-character ?\n)
127 (put 'clear 'ascii-character 12) 125 (put 'clear 'ascii-character 12)
128 (put 'return 'ascii-character ?\r) 126 (put 'return 'ascii-character ?\r)
129 (put 'escape 'ascii-character ?\e) 127 (put 'escape 'ascii-character ?\e)