Mercurial > hg > xemacs-beta

comparison lisp/prim/events.el @ 52:461c7ba8286a r19-16-pre1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre1
author cvs
date Mon, 13 Aug 2007 08:57:19 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
51:69ce12f60f55 52:461c7ba8286a
118 (put 'return 'ascii-character ?\r) 118 (put 'return 'ascii-character ?\r)
119 (put 'escape 'ascii-character ?\e) 119 (put 'escape 'ascii-character ?\e)
120 (put 'space 'ascii-character ? ) 120 (put 'space 'ascii-character ? )
121 121
122 ;; Do the same voodoo for the keypad keys. I used to bind these to keyboard 122 ;; Do the same voodoo for the keypad keys. I used to bind these to keyboard
123 ;; macros (for instance, kp_0 was bound to "0") so that they would track the 123 ;; macros (for instance, kp-0 was bound to "0") so that they would track the
124 ;; bindings of the corresponding keys by default, but that made the display 124 ;; bindings of the corresponding keys by default, but that made the display
125 ;; of M-x describe-bindings much harder to read, so now we'll just bind them 125 ;; of M-x describe-bindings much harder to read, so now we'll just bind them
126 ;; to self-insert by default. Not a big difference... 126 ;; to self-insert by default. Not a big difference...
127 127
128 (put 'kp_0 'ascii-character ?0) 128 (put 'kp-0 'ascii-character ?0)
129 (put 'kp_1 'ascii-character ?1) 129 (put 'kp-1 'ascii-character ?1)
130 (put 'kp_2 'ascii-character ?2) 130 (put 'kp-2 'ascii-character ?2)
131 (put 'kp_3 'ascii-character ?3) 131 (put 'kp-3 'ascii-character ?3)
132 (put 'kp_4 'ascii-character ?4) 132 (put 'kp-4 'ascii-character ?4)
133 (put 'kp_5 'ascii-character ?5) 133 (put 'kp-5 'ascii-character ?5)
134 (put 'kp_6 'ascii-character ?6) 134 (put 'kp-6 'ascii-character ?6)
135 (put 'kp_7 'ascii-character ?7) 135 (put 'kp-7 'ascii-character ?7)
136 (put 'kp_8 'ascii-character ?8) 136 (put 'kp-8 'ascii-character ?8)
137 (put 'kp_9 'ascii-character ?9) 137 (put 'kp-9 'ascii-character ?9)
138 138
139 (put 'kp_space 'ascii-character ? ) 139 (put 'kp-space 'ascii-character ? )
140 (put 'kp_tab 'ascii-character ?\t) 140 (put 'kp-tab 'ascii-character ?\t)
141 (put 'kp_enter 'ascii-character ?\r) 141 (put 'kp-enter 'ascii-character ?\r)
142 (put 'kp_equal 'ascii-character ?=) 142 (put 'kp-equal 'ascii-character ?=)
143 (put 'kp_multiply 'ascii-character ?*) 143 (put 'kp-multiply 'ascii-character ?*)
144 (put 'kp_add 'ascii-character ?+) 144 (put 'kp-add 'ascii-character ?+)
145 (put 'kp_separator 'ascii-character ?,) 145 (put 'kp-separator 'ascii-character ?,)
146 (put 'kp_subtract 'ascii-character ?-) 146 (put 'kp-subtract 'ascii-character ?-)
147 (put 'kp_decimal 'ascii-character ?.) 147 (put 'kp-decimal 'ascii-character ?.)
148 (put 'kp_divide 'ascii-character ?/) 148 (put 'kp-divide 'ascii-character ?/)