Mercurial > hg > xemacs-beta

comparison lisp/events.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 19dcec799385
children a300bb07d72d
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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)
123 (put 'tab 'ascii-character ?\t) 125 (put 'tab 'ascii-character ?\t)
124 (put 'linefeed 'ascii-character ?\n) 126 (put 'linefeed 'ascii-character ?\n)
125 (put 'clear 'ascii-character 12) 127 (put 'clear 'ascii-character 12)
126 (put 'return 'ascii-character ?\r) 128 (put 'return 'ascii-character ?\r)
127 (put 'escape 'ascii-character ?\e) 129 (put 'escape 'ascii-character ?\e)