Mercurial > emacs

comparison lisp/term/news.el @ 494:393e90d2071b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 15 Jan 1992 19:43:09 +0000
parents 4ddaee1a9029
children b43b95612c90
comparison
equal deleted inserted replaced
493:8b101799ff37 494:393e90d2071b
20 20
21 ;; This file places entries in function-key-map for the raw escape 21 ;; This file places entries in function-key-map for the raw escape
22 ;; sequences of various keypad and function keys, binding them to 22 ;; sequences of various keypad and function keys, binding them to
23 ;; their symbolic forms. 23 ;; their symbolic forms.
24 24
25 (define-prefix-command 'news-fkey-prefix 'news-fkey-map) 25 (define-prefix-command 'news-fkey-prefix)
26 (define-key function-key-map "\eO" 'news-fkey-prefix) 26 (define-key function-key-map "\eO" 'news-fkey-prefix)
27 27
28 (define-key news-fkey-map "P" [f1]) 28 (define-key news-fkey-prefix "P" [f1])
29 (define-key news-fkey-map "Q" [f2]) 29 (define-key news-fkey-prefix "Q" [f2])
30 (define-key news-fkey-map "R" [f3]) 30 (define-key news-fkey-prefix "R" [f3])
31 (define-key news-fkey-map "S" [f4]) 31 (define-key news-fkey-prefix "S" [f4])
32 (define-key news-fkey-map "T" [f5]) 32 (define-key news-fkey-prefix "T" [f5])
33 (define-key news-fkey-map "U" [f6]) 33 (define-key news-fkey-prefix "U" [f6])
34 (define-key news-fkey-map "V" [f7]) 34 (define-key news-fkey-prefix "V" [f7])
35 (define-key news-fkey-map "W" [f8]) 35 (define-key news-fkey-prefix "W" [f8])
36 (define-key news-fkey-map "X" [f9]) 36 (define-key news-fkey-prefix "X" [f9])
37 (define-key news-fkey-map "Y" [f10]) 37 (define-key news-fkey-prefix "Y" [f10])
38 (define-key news-fkey-map "m" [kp-subtract]) 38 (define-key news-fkey-prefix "m" [kp-subtract])
39 (define-key news-fkey-map "k" [kp-add]) 39 (define-key news-fkey-prefix "k" [kp-add])
40 (define-key news-fkey-map "l" [kp-separator]) 40 (define-key news-fkey-prefix "l" [kp-separator])
41 (define-key news-fkey-map "n" [kp-period]) 41 (define-key news-fkey-prefix "n" [kp-period])
42 (define-key news-fkey-map "M" [kp-enter]) 42 (define-key news-fkey-prefix "M" [kp-enter])
43 (define-key news-fkey-map "p" [kp-0]) 43 (define-key news-fkey-prefix "p" [kp-0])
44 (define-key news-fkey-map "q" [kp-1]) 44 (define-key news-fkey-prefix "q" [kp-1])
45 (define-key news-fkey-map "r" [kp-2]) 45 (define-key news-fkey-prefix "r" [kp-2])
46 (define-key news-fkey-map "s" [kp-3]) 46 (define-key news-fkey-prefix "s" [kp-3])
47 (define-key news-fkey-map "t" [kp-4]) 47 (define-key news-fkey-prefix "t" [kp-4])
48 (define-key news-fkey-map "u" [kp-5]) 48 (define-key news-fkey-prefix "u" [kp-5])
49 (define-key news-fkey-map "v" [kp-6]) 49 (define-key news-fkey-prefix "v" [kp-6])
50 (define-key news-fkey-map "w" [kp-7]) 50 (define-key news-fkey-prefix "w" [kp-7])
51 (define-key news-fkey-map "x" [kp-8]) 51 (define-key news-fkey-prefix "x" [kp-8])
52 (define-key news-fkey-map "y" [kp-9]) 52 (define-key news-fkey-prefix "y" [kp-9])
53 (define-key news-fkey-map "a" [execute]) 53 (define-key news-fkey-prefix "a" [execute])
54 (define-key news-fkey-map "b" [select]) 54 (define-key news-fkey-prefix "b" [select])
55 (define-key news-fkey-map "c" [cancel]) 55 (define-key news-fkey-prefix "c" [cancel])