From 0d1731348726139142efbe0f3da00f100c26a785 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 25 Dec 1993 00:45:07 +0000
Subject: [PATCH] (setting up kp-... keys): Make ascii-character props.
 ascii-character props for backspace, delete, etc. moved here.

---
 lisp/simple.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/simple.el b/lisp/simple.el
index 6f5b0bc4ccf..519447f6387 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2249,10 +2249,12 @@ a completion with the mouse."
 ;;; 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 @@ a completion with the mouse."
    (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
-- 
2.39.5