# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756780307 0
# Node ID f3886103809331817f2076a1415e955288ffe569
# Parent  2f4fab6070b8d78125faa2d79574537c964d0da1
(setting up kp-... keys): Make ascii-character props.
ascii-character props for backspace, delete, etc. moved here.

diff -r 2f4fab6070b8 -r f38861038093 lisp/simple.el
--- a/lisp/simple.el	Sat Dec 25 00:32:37 1993 +0000
+++ b/lisp/simple.el	Sat Dec 25 00:45:07 1993 +0000
@@ -2249,10 +2249,12 @@
 ;;; override these, so this shouldn't interfere with any existing
 ;;; bindings.
 
+;; Also tell read-char how to handle these keys.
 (mapcar
  (lambda (keypad-normal)
    (let ((keypad (nth 0 keypad-normal))
 	 (normal (nth 1 keypad-normal)))
+     (put keypad 'ascii-character normal)
      (define-key function-key-map (vector keypad) (vector normal))))
  '((kp-0 ?0) (kp-1 ?1) (kp-2 ?2) (kp-3 ?3) (kp-4 ?4)
    (kp-5 ?5) (kp-6 ?6) (kp-7 ?7) (kp-8 ?8) (kp-9 ?9)
@@ -2267,4 +2269,14 @@
    (kp-divide ?/)
    (kp-equal ?=)))
 
+;; These tell read-char how to convert
+;; these special chars to ASCII.
+(put 'backspace 'ascii-character 127)
+(put 'delete 'ascii-character 127)
+(put 'tab 'ascii-character ?\t)
+(put 'linefeed 'ascii-character ?\n)
+(put 'clear 'ascii-character 12)
+(put 'return 'ascii-character 13)
+(put 'escape 'ascii-character ?\e)
+
 ;;; simple.el ends here