Mercurial > emacs

comparison lisp/term/x-win.el @ 12970:b5262e218fa8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(function-key-map): Consistently map CLEAR to C-l.
author Richard M. Stallman <rms@gnu.org>
date Tue, 29 Aug 1995 15:31:46 +0000
parents fb1b760f6636
children 56f14b5a7295
comparison
equal deleted inserted replaced
12969:836d868710ec 12970:b5262e218fa8
519 ;; that people usually expect. 519 ;; that people usually expect.
520 (define-key function-key-map [backspace] [127]) 520 (define-key function-key-map [backspace] [127])
521 (define-key function-key-map [delete] [127]) 521 (define-key function-key-map [delete] [127])
522 (define-key function-key-map [tab] [?\t]) 522 (define-key function-key-map [tab] [?\t])
523 (define-key function-key-map [linefeed] [?\n]) 523 (define-key function-key-map [linefeed] [?\n])
524 (define-key function-key-map [clear] [11]) 524 (define-key function-key-map [clear] [?\C-l])
525 (define-key function-key-map [return] [13]) 525 (define-key function-key-map [return] [?\C-m])
526 (define-key function-key-map [escape] [?\e]) 526 (define-key function-key-map [escape] [?\e])
527 (define-key function-key-map [M-backspace] [?\M-\d]) 527 (define-key function-key-map [M-backspace] [?\M-\d])
528 (define-key function-key-map [M-delete] [?\M-\d]) 528 (define-key function-key-map [M-delete] [?\M-\d])
529 (define-key function-key-map [M-tab] [?\M-\t]) 529 (define-key function-key-map [M-tab] [?\M-\t])
530 (define-key function-key-map [M-linefeed] [?\M-\n]) 530 (define-key function-key-map [M-linefeed] [?\M-\n])
531 (define-key function-key-map [M-clear] [?\M-\013]) 531 (define-key function-key-map [M-clear] [?\M-\C-l])
532 (define-key function-key-map [M-return] [?\M-\015]) 532 (define-key function-key-map [M-return] [?\M-\C-m])
533 (define-key function-key-map [M-escape] [?\M-\e]) 533 (define-key function-key-map [M-escape] [?\M-\e])
534 534
535 ;; These tell read-char how to convert 535 ;; These tell read-char how to convert
536 ;; these special chars to ASCII. 536 ;; these special chars to ASCII.
537 (put 'backspace 'ascii-character 127) 537 (put 'backspace 'ascii-character 127)