Mercurial > hg > xemacs-beta

comparison lisp/prim/events.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 461c7ba8286a
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Synched up with: Not in FSF. 25 ;;; Synched up with: Not in FSF.
26 26
27 ;;; Code: 27 ;;; Code:
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 ?/)