aboutsummaryrefslogtreecommitdiffstats
path: root/src/term.c
diff options
context:
space:
mode:
authorKaroly Lorentey2005-07-12 10:55:24 +0000
committerKaroly Lorentey2005-07-12 10:55:24 +0000
commitac09dc1ec3f67a1a7a26411106480fea4e4d90b2 (patch)
treee7cdbb75b89ab72dd49caeab6f30a7c4d315a8f3 /src/term.c
parenta9d63618b0fea2f1740d50736cbd37cc587aecb1 (diff)
downloademacs-ac09dc1ec3f67a1a7a26411106480fea4e4d90b2.tar.gz
emacs-ac09dc1ec3f67a1a7a26411106480fea4e4d90b2.zip
Rename function-key-map to local-function-key-map, and global-function-key-map to function-key-map. Same for key-translation-map.
* src/keyboard.h (struct kboard): Rename member 'Vfunction_key_map' to 'Vlocal_function_key_map', and 'Vkey_translation_map' to 'Vlocal_key_translation_map'. (Vfunction_key_map, Vkey_translation_map): New declarations. * src/keyboard.c (Vfunction_key_map): New variable. (Vglobal_key_translation_map): Rename to Vglobal_key_translation_map. (read_key_sequence, init_kboard, syms_of_keyboard, mark_kboards): Update. * src/keymap.c (Fdescribe_buffer_bindings): Update. * src/term.c (term_get_fkeys_1): Update. * lisp/double.el (double-setup): Replace global-key-translation-map with key-translation-map. * lisp/international/encoded-kb.el (encoded-kbd-setup-display): Ditto. * lisp/international/iso-transl.el: Ditto. * lisp/obsolete/iso-acc.el (iso-accents-customize): Ditto. * lisp/edmacro.el (edmacro-format-keys): Use terminal-local binding of local-function-key-map instead of function-key-map. * lisp/emulation/cua-base.el (cua--pre-command-handler): Ditto. * lisp/isearch.el (isearch-other-meta-char): Ditto. * lisp/subr.el (read-quoted-char): Ditto. * lisp/term/vt200.el: Ditto. * lisp/term/vt201.el: Ditto. * lisp/term/vt220.el: Ditto. * lisp/term/vt240.el: Ditto. * lisp/term/vt300.el: Ditto. * lisp/term/vt320.el: Ditto. * lisp/term/vt400.el: Ditto. * lisp/term/vt420.el: Ditto. * lisp/simple.el (normal-erase-is-backspace-mode): Add todo note. * lisp/xt-mouse.el: Ditto. * lisp/term/AT386.el: Adapt for renaming of function-key-map to local-function-key-map. * lisp/term/internal.el: Ditto. * lisp/term/iris-ansi.el: Ditto. * lisp/term/lk201.el: Ditto. * lisp/term/mac-win.el: Ditto. * lisp/term/news.el: Ditto. * lisp/term/rxvt.el: Ditto. * lisp/term/sun.el: Ditto. * lisp/term/tvi970.el: Ditto. * lisp/term/wyse50.el: Ditto. * lisp/term/x-win.el (x-setup-function-keys): Ditto. * lisp/term/xterm.el: Ditto. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-386
Diffstat (limited to 'src/term.c')
-rw-r--r--src/term.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/term.c b/src/term.c
index 14396a0c1d2..e340edb6c17 100644
--- a/src/term.c
+++ b/src/term.c
@@ -1350,13 +1350,13 @@ term_get_fkeys_1 ()
1350 1350
1351 /* This can happen if CANNOT_DUMP or with strange options. */ 1351 /* This can happen if CANNOT_DUMP or with strange options. */
1352 if (!initialized) 1352 if (!initialized)
1353 kboard->Vfunction_key_map = Fmake_sparse_keymap (Qnil); 1353 kboard->Vlocal_function_key_map = Fmake_sparse_keymap (Qnil);
1354 1354
1355 for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++) 1355 for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++)
1356 { 1356 {
1357 char *sequence = tgetstr (keys[i].cap, address); 1357 char *sequence = tgetstr (keys[i].cap, address);
1358 if (sequence) 1358 if (sequence)
1359 Fdefine_key (kboard->Vfunction_key_map, build_string (sequence), 1359 Fdefine_key (kboard->Vlocal_function_key_map, build_string (sequence),
1360 Fmake_vector (make_number (1), 1360 Fmake_vector (make_number (1),
1361 intern (keys[i].name))); 1361 intern (keys[i].name)));
1362 } 1362 }
@@ -1376,13 +1376,13 @@ term_get_fkeys_1 ()
1376 if (k0) 1376 if (k0)
1377 /* Define f0 first, so that f10 takes precedence in case the 1377 /* Define f0 first, so that f10 takes precedence in case the
1378 key sequences happens to be the same. */ 1378 key sequences happens to be the same. */
1379 Fdefine_key (kboard->Vfunction_key_map, build_string (k0), 1379 Fdefine_key (kboard->Vlocal_function_key_map, build_string (k0),
1380 Fmake_vector (make_number (1), intern ("f0"))); 1380 Fmake_vector (make_number (1), intern ("f0")));
1381 Fdefine_key (kboard->Vfunction_key_map, build_string (k_semi), 1381 Fdefine_key (kboard->Vlocal_function_key_map, build_string (k_semi),
1382 Fmake_vector (make_number (1), intern ("f10"))); 1382 Fmake_vector (make_number (1), intern ("f10")));
1383 } 1383 }
1384 else if (k0) 1384 else if (k0)
1385 Fdefine_key (kboard->Vfunction_key_map, build_string (k0), 1385 Fdefine_key (kboard->Vlocal_function_key_map, build_string (k0),
1386 Fmake_vector (make_number (1), intern (k0_name))); 1386 Fmake_vector (make_number (1), intern (k0_name)));
1387 } 1387 }
1388 1388
@@ -1405,7 +1405,7 @@ term_get_fkeys_1 ()
1405 if (sequence) 1405 if (sequence)
1406 { 1406 {
1407 sprintf (fkey, "f%d", i); 1407 sprintf (fkey, "f%d", i);
1408 Fdefine_key (kboard->Vfunction_key_map, build_string (sequence), 1408 Fdefine_key (kboard->Vlocal_function_key_map, build_string (sequence),
1409 Fmake_vector (make_number (1), 1409 Fmake_vector (make_number (1),
1410 intern (fkey))); 1410 intern (fkey)));
1411 } 1411 }
@@ -1422,7 +1422,7 @@ term_get_fkeys_1 ()
1422 { \ 1422 { \
1423 char *sequence = tgetstr (cap2, address); \ 1423 char *sequence = tgetstr (cap2, address); \
1424 if (sequence) \ 1424 if (sequence) \
1425 Fdefine_key (kboard->Vfunction_key_map, build_string (sequence), \ 1425 Fdefine_key (kboard->Vlocal_function_key_map, build_string (sequence), \
1426 Fmake_vector (make_number (1), \ 1426 Fmake_vector (make_number (1), \
1427 intern (sym))); \ 1427 intern (sym))); \
1428 } 1428 }