Mercurial > hg > xemacs-beta

comparison lisp/events.el @ 375:a300bb07d72d r21-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents cc15677e0335
children
comparison
equal deleted inserted replaced
374:4ebeb1a5388b 375:a300bb07d72d
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)