Mercurial > emacs
changeset 5342:f38861038093
(setting up kp-... keys): Make ascii-character props.
ascii-character props for backspace, delete, etc. moved here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Dec 1993 00:45:07 +0000 |
| parents | 2f4fab6070b8 |
| children | 395a16e45f17 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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