From b8e9a326c1ef46f02383189018718cf4c4562c15 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 29 Aug 1995 15:31:46 +0000 Subject: [PATCH] (function-key-map): Consistently map CLEAR to C-l. --- lisp/term/x-win.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 3bad1362a93..32502e2d979 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -521,15 +521,15 @@ The value may be different for frames on different X displays." (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 [clear] [?\C-l]) +(define-key function-key-map [return] [?\C-m]) (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-clear] [?\M-\C-l]) +(define-key function-key-map [M-return] [?\M-\C-m]) (define-key function-key-map [M-escape] [?\M-\e]) ;; These tell read-char how to convert -- 2.39.2