![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to keypad.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to keypad.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 root 1: ;; Terminal-independent keypad and function key bindings.
2: ;; Copyright (C) 1986 Free Software Foundation, Inc.
3:
4: ;; This file is part of GNU Emacs.
5:
6: ;; GNU Emacs is distributed in the hope that it will be useful,
7: ;; but WITHOUT ANY WARRANTY. No author or distributor
8: ;; accepts responsibility to anyone for the consequences of using it
9: ;; or for whether it serves any particular purpose or works at all,
10: ;; unless he says so in writing. Refer to the GNU Emacs General Public
11: ;; License for full details.
12:
13: ;; Everyone is granted permission to copy, modify and redistribute
14: ;; GNU Emacs, but only under the conditions described in the
15: ;; GNU Emacs General Public License. A copy of this license is
16: ;; supposed to have been given to you along with GNU Emacs so you
17: ;; can know your rights and responsibilities. It should be in a
18: ;; file named COPYING. Among other things, the copyright notice
19: ;; and this notice must be preserved on all copies.
20:
21:
22: ;; These keys are handled by a two-level process.
23: ;; The first level, terminal-dependent, maps input sequences
24: ;; into the function keys that they represent.
25: ;; The second level, terminal-independent but customized by users,
26: ;; map function keys into meanings.
27:
28: ;; This file takes care of the second level of mapping.
29: ;; The first, terminal-dependent, level is handled by the
30: ;; terminal-specific files term/*.el.
31:
32: ;; The second-level mapping is done by a keymap, function-keymap.
33: ;; Here we document the meanings of the "characters" defined by
34: ;; function-keymap.
35:
36: ;; What do these letters mean?
37: ;; When we say that ``a stands for the clear-all-tabs key'',
38: ;; we mean that you should attach to the letter `a' in function-keymap
39: ;; whatever command you want to be executed when you type the
40: ;; clear-all-tabs key on any terminal. The terminal-dependent
41: ;; files will attempt to make this work. If a terminal has no
42: ;; clear-all-tabs key that can be recognized, it makes no difference
43: ;; what binding you give to `a' in function-keymap.
44:
45: ;; a -- clear all tabs key
46: ;; c -- erase key
47: ;; d -- down-arrow
48: ;; e -- enter key
49: ;; f -- find key or search key
50: ;; h -- home-position key
51: ;; k -- delete key or remove key.
52: ;; l -- left-arrow
53: ;; p -- portrait mode
54: ;; q -- landscape mode
55: ;; r -- right-arrow
56: ;; s -- select key
57: ;; t -- clear tab this column key
58: ;; u -- up-arrow
59: ;; x -- do key
60: ;; ? -- help
61:
62: ;; - -- keypad key labelled `-'.
63: ;; . -- keypad key labelled `.'.
64: ;; , -- keypad key labelled `,'.
65: ;; 0 ... 9 -- keypad key labelled with that digit,
66: ;; but only if that key is not also an arrow key.
67:
68: ;; C-@, C-a, ... C-x -- numbered function keys 0 through 24.
69: ;; These are used for function keys with no labels but numbers,
70: ;; and may also be used for function keys with labels
71: ;; that we have not defined letters for.
72:
73: ;; A -- insert line key
74: ;; C -- clear screen key
75: ;; D -- delete character key.
76: ;; E -- clear to end of line key
77: ;; F -- scroll forward key
78: ;; H -- home-down
79: ;; I -- insert character key
80: ;; If there is just an "insert" key, it should be this.
81: ;; L -- delete line key
82: ;; M -- exit insert mode key
83: ;; N -- next page key
84: ;; P -- previous page key
85: ;; R -- scroll reverse key
86: ;; S -- clear to end of screen key
87: ;; T -- set tab this column key
88:
89: (defun keypad-default (char definition)
90: (or (lookup-key function-keymap char)
91: (define-key function-keymap char definition)))
92:
93: ;; Here are the standard command meanings we give to the various
94: ;; function key names. Because this file is loaded after the user's
95: ;; init file, we are careful to avoid overriding any definitions
96: ;; already stored in function-keymap by the init file or (less often)
97: ;; by the terminal-specific term/*.el file.
98:
99: (keypad-default "l" 'backward-char)
100: (keypad-default "r" 'forward-char)
101: (keypad-default "D" 'delete-char)
102: (keypad-default "u" 'previous-line)
103: (keypad-default "d" 'next-line)
104: (keypad-default "N" 'scroll-up)
105: (keypad-default "P" 'scroll-down)
106: (keypad-default "C" 'recenter)
107: (keypad-default "?" 'help-for-help)
108: (keypad-default "s" 'set-mark-command)
109: (keypad-default "k" 'kill-region)
110: (keypad-default "f" 're-search-forward)
111:
112: (keypad-default "\C-a" 'beginning-of-line)
113: (keypad-default "\C-b" 'end-of-line)
114: (keypad-default "\C-c" 'isearch-forward)
115: (keypad-default "\C-d" 'kill-line)
116:
117: (keypad-default "." 'delete-char)
118: (keypad-default "0" 'yank)
119: (keypad-default "e" 'open-line)
120: (keypad-default "1" 'backward-word)
121: (keypad-default "3" 'forward-word)
122: (keypad-default "7" 'backward-paragraph)
123: (keypad-default "9" 'forward-paragraph)
124: (keypad-default "h" 'move-to-window-line)
125:
126: (defun setup-terminal-keymap (map translations)
127: "Set up keymap MAP to forward to function-keymap according to TRANSLATIONS.
128: TRANSLATIONS is an alist; each element of it looks like (FROMSTRING . TOCHAR).
129: For each such pair, we define the key sequence FROMSTRING in MAP
130: to forward to the definition of character TOCHAR in function-keymap.
131: \"Forwarding\" means that subsequent redefinition of TOCHAR in
132: function-keymap will be seen automatically in MAP as well.
133:
134: This function is used by files term/*.el to set up the mapping from the
135: escape sequences sent by function keys on particular terminals (FROMSTRINGs)
136: into Emacs standard function key slots (TOCHARs).
137: An actual definition (such as a symbol) may be given in place of TOCHAR.
138: Generally, MAP is a prefix keymap which will be attached to a key
139: that is the common prefix sent by all function keys (often ESC O or ESC [)."
140: (while translations
141: (define-key map (car (car translations))
142: (if (numberp (cdr (car translations)))
143: (cons function-keymap (cdr (car translations)))
144: (cdr (car translations))))
145: (setq translations (cdr translations))))
146:
147: (defun function-key-sequence (char)
148: "Return key sequence for function key that on this terminal
149: translates into slot CHAR in function-keymap.
150: Or return nil if there is none."
151: (car (where-is-internal (cons function-keymap char) (current-local-map))))
152:
153: (provide 'keypad)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.