From 6d511e9ff08ce5e2c893eb041fcef38a740a1955 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Sat, 16 Mar 1996 22:45:08 +0000 Subject: [PATCH] Don't define backspace, M-backspace, delete, and M-delete; they are already defined in winnt.el. --- lisp/term/w32-win.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index ade04585ec7..c6d94f09252 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -441,30 +441,33 @@ The value may be different for frames on different X displays." ;; Map certain keypad keys into ASCII characters ;; that people usually expect. -(define-key function-key-map [backspace] [127]) -(define-key function-key-map [delete] [127]) (define-key function-key-map [tab] [?\t]) (define-key function-key-map [linefeed] [?\n]) (define-key function-key-map [clear] [11]) (define-key function-key-map [return] [13]) (define-key function-key-map [escape] [?\e]) -(define-key function-key-map [M-backspace] [?\M-\d]) -(define-key function-key-map [M-delete] [?\M-\d]) (define-key function-key-map [M-tab] [?\M-\t]) (define-key function-key-map [M-linefeed] [?\M-\n]) (define-key function-key-map [M-clear] [?\M-\013]) (define-key function-key-map [M-return] [?\M-\015]) (define-key function-key-map [M-escape] [?\M-\e]) +;; These don't do the right thing (voelker) +;(define-key function-key-map [backspace] [127]) +;(define-key function-key-map [delete] [127]) +;(define-key function-key-map [M-backspace] [?\M-\d]) +;(define-key function-key-map [M-delete] [?\M-\d]) + ;; 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) +;; These don't seem to be necessary (voelker) +;(put 'backspace 'ascii-character 127) +;(put 'delete 'ascii-character 127) ;;;; Selections and cut buffers -- 2.39.2