annotate lisp/term/scoansi.el @ 4981:4aebb0131297

Cleanups/renaming of EXTERNAL_TO_C_STRING and friends -------------------- ChangeLog entries follow: -------------------- modules/ChangeLog addition: 2010-02-05 Ben Wing <ben@xemacs.org> * postgresql/postgresql.c: * postgresql/postgresql.c (CHECK_LIVE_CONNECTION): * postgresql/postgresql.c (Fpq_connectdb): * postgresql/postgresql.c (Fpq_connect_start): * postgresql/postgresql.c (Fpq_lo_import): * postgresql/postgresql.c (Fpq_lo_export): * ldap/eldap.c (Fldap_open): * ldap/eldap.c (Fldap_search_basic): * ldap/eldap.c (Fldap_add): * ldap/eldap.c (Fldap_modify): * ldap/eldap.c (Fldap_delete): * canna/canna_api.c (Fcanna_initialize): * canna/canna_api.c (Fcanna_store_yomi): * canna/canna_api.c (Fcanna_parse): * canna/canna_api.c (Fcanna_henkan_begin): EXTERNAL_TO_C_STRING returns its argument instead of storing it in a parameter, and is renamed to EXTERNAL_TO_ITEXT. Similar things happen to related macros. See entry in src/ChangeLog. More Mule-izing of postgresql.c. Extract out common code between `pq-connectdb' and `pq-connect-start'. Fix places that signal an error string using a formatted string to instead follow the standard and have a fixed reason followed by the particular error message stored as one of the frobs. src/ChangeLog addition: 2010-02-05 Ben Wing <ben@xemacs.org> * console-msw.c (write_string_to_mswindows_debugging_output): * console-msw.c (Fmswindows_message_box): * console-x.c (x_perhaps_init_unseen_key_defaults): * console.c: * database.c (dbm_get): * database.c (dbm_put): * database.c (dbm_remove): * database.c (berkdb_get): * database.c (berkdb_put): * database.c (berkdb_remove): * database.c (Fopen_database): * device-gtk.c (gtk_init_device): * device-msw.c (msprinter_init_device_internal): * device-msw.c (msprinter_default_printer): * device-msw.c (msprinter_init_device): * device-msw.c (sync_printer_with_devmode): * device-msw.c (Fmsprinter_select_settings): * device-x.c (sanity_check_geometry_resource): * device-x.c (Dynarr_add_validified_lisp_string): * device-x.c (x_init_device): * device-x.c (Fx_put_resource): * device-x.c (Fx_valid_keysym_name_p): * device-x.c (Fx_set_font_path): * dialog-msw.c (push_lisp_string_as_unicode): * dialog-msw.c (handle_directory_dialog_box): * dialog-msw.c (handle_file_dialog_box): * dialog-x.c (dbox_descriptor_to_widget_value): * editfns.c (Fformat_time_string): * editfns.c (Fencode_time): * editfns.c (Fset_time_zone_rule): * emacs.c (make_argc_argv): * emacs.c (Fdump_emacs): * emodules.c (emodules_load): * eval.c: * eval.c (maybe_signal_error_1): * event-msw.c (Fdde_alloc_advise_item): * event-msw.c (mswindows_dde_callback): * event-msw.c (mswindows_wnd_proc): * fileio.c (report_error_with_errno): * fileio.c (Fsysnetunam): * fileio.c (Fdo_auto_save): * font-mgr.c (extract_fcapi_string): * font-mgr.c (Ffc_config_app_font_add_file): * font-mgr.c (Ffc_config_app_font_add_dir): * font-mgr.c (Ffc_config_filename): * frame-gtk.c (gtk_set_frame_text_value): * frame-gtk.c (gtk_create_widgets): * frame-msw.c (mswindows_init_frame_1): * frame-msw.c (mswindows_set_title_from_ibyte): * frame-msw.c (msprinter_init_frame_3): * frame-x.c (x_set_frame_text_value): * frame-x.c (x_set_frame_properties): * frame-x.c (start_drag_internal_1): * frame-x.c (x_cde_transfer_callback): * frame-x.c (x_create_widgets): * glyphs-eimage.c (my_jpeg_output_message): * glyphs-eimage.c (jpeg_instantiate): * glyphs-eimage.c (gif_instantiate): * glyphs-eimage.c (png_instantiate): * glyphs-eimage.c (tiff_instantiate): * glyphs-gtk.c (xbm_instantiate_1): * glyphs-gtk.c (gtk_xbm_instantiate): * glyphs-gtk.c (gtk_xpm_instantiate): * glyphs-gtk.c (gtk_xface_instantiate): * glyphs-gtk.c (cursor_font_instantiate): * glyphs-gtk.c (gtk_redisplay_widget): * glyphs-gtk.c (gtk_widget_instantiate_1): * glyphs-gtk.c (gtk_add_tab_item): * glyphs-msw.c (mswindows_xpm_instantiate): * glyphs-msw.c (bmp_instantiate): * glyphs-msw.c (mswindows_resource_instantiate): * glyphs-msw.c (xbm_instantiate_1): * glyphs-msw.c (mswindows_xbm_instantiate): * glyphs-msw.c (mswindows_xface_instantiate): * glyphs-msw.c (mswindows_redisplay_widget): * glyphs-msw.c (mswindows_widget_instantiate): * glyphs-msw.c (add_tree_item): * glyphs-msw.c (add_tab_item): * glyphs-msw.c (mswindows_combo_box_instantiate): * glyphs-msw.c (mswindows_widget_query_string_geometry): * glyphs-x.c (x_locate_pixmap_file): * glyphs-x.c (xbm_instantiate_1): * glyphs-x.c (x_xbm_instantiate): * glyphs-x.c (extract_xpm_color_names): * glyphs-x.c (x_xpm_instantiate): * glyphs-x.c (x_xface_instantiate): * glyphs-x.c (autodetect_instantiate): * glyphs-x.c (safe_XLoadFont): * glyphs-x.c (cursor_font_instantiate): * glyphs-x.c (x_redisplay_widget): * glyphs-x.c (Fchange_subwindow_property): * glyphs-x.c (x_widget_instantiate): * glyphs-x.c (x_tab_control_redisplay): * glyphs.c (pixmap_to_lisp_data): * gui-x.c (menu_separator_style_and_to_external): * gui-x.c (add_accel_and_to_external): * gui-x.c (button_item_to_widget_value): * hpplay.c (player_error_internal): * hpplay.c (play_sound_file): * hpplay.c (play_sound_data): * intl.c (Fset_current_locale): * lisp.h: * menubar-gtk.c (gtk_xemacs_set_accel_keys): * menubar-msw.c (populate_menu_add_item): * menubar-msw.c (populate_or_checksum_helper): * menubar-x.c (menu_item_descriptor_to_widget_value_1): * nt.c (init_user_info): * nt.c (get_long_basename): * nt.c (nt_get_resource): * nt.c (init_mswindows_environment): * nt.c (get_cached_volume_information): * nt.c (mswindows_readdir): * nt.c (read_unc_volume): * nt.c (mswindows_stat): * nt.c (mswindows_getdcwd): * nt.c (mswindows_executable_type): * nt.c (Fmswindows_short_file_name): * ntplay.c (nt_play_sound_file): * objects-gtk.c: * objects-gtk.c (gtk_valid_color_name_p): * objects-gtk.c (gtk_initialize_font_instance): * objects-gtk.c (gtk_font_list): * objects-msw.c (font_enum_callback_2): * objects-msw.c (parse_font_spec): * objects-x.c (x_parse_nearest_color): * objects-x.c (x_valid_color_name_p): * objects-x.c (x_initialize_font_instance): * objects-x.c (x_font_instance_truename): * objects-x.c (x_font_list): * objects-xlike-inc.c (XFUN): * objects-xlike-inc.c (xft_find_charset_font): * process-nt.c (mswindows_report_winsock_error): * process-nt.c (nt_create_process): * process-nt.c (get_internet_address): * process-nt.c (nt_open_network_stream): * process-unix.c: * process-unix.c (allocate_pty): * process-unix.c (get_internet_address): * process-unix.c (unix_canonicalize_host_name): * process-unix.c (unix_open_network_stream): * realpath.c: * select-common.h (lisp_data_to_selection_data): * select-gtk.c (symbol_to_gtk_atom): * select-gtk.c (atom_to_symbol): * select-msw.c (symbol_to_ms_cf): * select-msw.c (mswindows_register_selection_data_type): * select-x.c (symbol_to_x_atom): * select-x.c (x_atom_to_symbol): * select-x.c (hack_motif_clipboard_selection): * select-x.c (Fx_store_cutbuffer_internal): * sound.c (Fplay_sound_file): * sound.c (Fplay_sound): * sound.h (sound_perror): * sysdep.c: * sysdep.c (qxe_allocating_getcwd): * sysdep.c (qxe_execve): * sysdep.c (copy_in_passwd): * sysdep.c (qxe_getpwnam): * sysdep.c (qxe_ctime): * sysdll.c (dll_open): * sysdll.c (dll_function): * sysdll.c (dll_variable): * sysdll.c (search_linked_libs): * sysdll.c (dll_error): * sysfile.h: * sysfile.h (PATHNAME_CONVERT_OUT_TSTR): * sysfile.h (PATHNAME_CONVERT_OUT_UTF_8): * sysfile.h (PATHNAME_CONVERT_OUT): * sysfile.h (LISP_PATHNAME_CONVERT_OUT): * syswindows.h (ITEXT_TO_TSTR): * syswindows.h (LOCAL_FILE_FORMAT_TO_TSTR): * syswindows.h (TSTR_TO_LOCAL_FILE_FORMAT): * syswindows.h (LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN): * syswindows.h (LISP_LOCAL_FILE_FORMAT_MAYBE_URL_TO_TSTR): * text.h: * text.h (eicpy_ext_len): * text.h (enum new_dfc_src_type): * text.h (EXTERNAL_TO_ITEXT): * text.h (GET_STRERROR): * tooltalk.c (check_status): * tooltalk.c (Fadd_tooltalk_message_arg): * tooltalk.c (Fadd_tooltalk_pattern_attribute): * tooltalk.c (Fadd_tooltalk_pattern_arg): * win32.c (tstr_to_local_file_format): * win32.c (mswindows_lisp_error_1): * win32.c (mswindows_report_process_error): * win32.c (Fmswindows_shell_execute): * win32.c (mswindows_read_link_1): Changes involving external/internal format conversion, mostly code cleanup and renaming. 1. Eliminate the previous macros like LISP_STRING_TO_EXTERNAL that stored its result in a parameter. The new version of LISP_STRING_TO_EXTERNAL returns its result through the return value, same as the previous NEW_LISP_STRING_TO_EXTERNAL. Use the new-style macros throughout the code. 2. Rename C_STRING_TO_EXTERNAL and friends to ITEXT_TO_EXTERNAL, in keeping with overall naming rationalization involving Itext and related types. Macros involved in previous two: EXTERNAL_TO_C_STRING -> EXTERNAL_TO_ITEXT EXTERNAL_TO_C_STRING_MALLOC -> EXTERNAL_TO_ITEXT_MALLOC SIZED_EXTERNAL_TO_C_STRING -> SIZED_EXTERNAL_TO_ITEXT SIZED_EXTERNAL_TO_C_STRING_MALLOC -> SIZED_EXTERNAL_TO_ITEXT_MALLOC C_STRING_TO_EXTERNAL -> ITEXT_TO_EXTERNAL C_STRING_TO_EXTERNAL_MALLOC -> ITEXT_TO_EXTERNAL_MALLOC LISP_STRING_TO_EXTERNAL LISP_STRING_TO_EXTERNAL_MALLOC LISP_STRING_TO_TSTR C_STRING_TO_TSTR -> ITEXT_TO_TSTR TSTR_TO_C_STRING -> TSTR_TO_ITEXT The following four still return their values through parameters, since they have more than one value to return: C_STRING_TO_SIZED_EXTERNAL -> ITEXT_TO_SIZED_EXTERNAL LISP_STRING_TO_SIZED_EXTERNAL C_STRING_TO_SIZED_EXTERNAL_MALLOC -> ITEXT_TO_SIZED_EXTERNAL_MALLOC LISP_STRING_TO_SIZED_EXTERNAL_MALLOC Sometimes additional casts had to be inserted, since the old macros played strange games and completely defeated the type system of the store params. 3. Rewrite many places where direct calls to TO_EXTERNAL_FORMAT occurred with calls to one of the convenience macros listed above, or to make_extstring(). 4. Eliminate SIZED_C_STRING macros (they were hardly used, anyway) and use a direct call to TO_EXTERNAL_FORMAT or TO_INTERNAL_FORMAT. 4. Use LISP_PATHNAME_CONVERT_OUT in many places instead of something like LISP_STRING_TO_EXTERNAL(..., Qfile_name). 5. Eliminate some temporary variables that are no longer necessary now that we return a value rather than storing it into a variable. 6. Some Mule-izing in database.c. 7. Error functions: -- A bit of code cleanup in maybe_signal_error_1. -- Eliminate report_file_type_error; it's just an alias for signal_error_2 with params in a different order. -- Fix some places in the hostname-handling code that directly inserted externally-retrieved error strings into the supposed ASCII "reason" param instead of doing the right thing and sticking text descriptive of what was going on in "reason" and putting the external message in a frob. 8. Use Ascbyte instead of CIbyte in process-unix.c and maybe one or two other places. 9. Some code cleanup in copy_in_passwd() in sysdep.c. 10. Fix a real bug due to accidental variable shadowing in tstr_to_local_file_format() in win32.c.
author Ben Wing <ben@xemacs.org>
date Fri, 05 Feb 2010 11:02:24 -0600
parents 74fd4e045ea6
children 697ef44129c6 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;; scoansi.el --- set up key names for SCO ansi console
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;; Author: Kean Johnston <jkj@paradigm.co.za>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 ;; This file is part of GNU Emacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ;; it under the terms of the GNU General Public License as published by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 ;; the Free Software Foundation; either version 2, or (at your option)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ;; any later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ;; GNU Emacs is distributed in the hope that it will be useful,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 ;; GNU General Public License for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 ;; You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 ;; along with GNU Emacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 ;; HISTORY
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 ;; jkj - Jan 18, 1993: Created.
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
25 ;; jkj - Nov 18, 1993: Modified to work with Emacs 19.21
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 ;; First of all, the normal cursor movement keys. Some of these, if not
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 ;; all, should be set up my termcap/terminfo. We reset them anyway for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ;; the sake of completeness.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 (define-key function-key-map "\e[A" [up])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 (define-key function-key-map "\e[B" [down])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 (define-key function-key-map "\e[C" [right])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 (define-key function-key-map "\e[D" [left])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 (define-key function-key-map "\e[E" [center])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 (define-key function-key-map "\e[F" [end])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 (define-key function-key-map "\e[G" [next])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 (define-key function-key-map "\e[H" [home])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 (define-key function-key-map "\e[I" [prior])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 (define-key function-key-map "\e[L" [insert])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 (define-key function-key-map "\e[-" [kp-subtract])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 (define-key function-key-map "\e[+" [kp-add])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 ;; And now all the function keys
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 ;; Normal, unshifted keys
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 (define-key function-key-map "\e[M" [f1])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 (define-key function-key-map "\e[N" [f2])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 (define-key function-key-map "\e[O" [f3])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 (define-key function-key-map "\e[P" [f4])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 (define-key function-key-map "\e[Q" [f5])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 (define-key function-key-map "\e[R" [f6])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 (define-key function-key-map "\e[S" [f7])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 (define-key function-key-map "\e[T" [f8])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 (define-key function-key-map "\e[U" [f9])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 (define-key function-key-map "\e[V" [f10])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 (define-key function-key-map "\e[W" [f11])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 (define-key function-key-map "\e[X" [f12])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 ;; Shift-function keys
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 (define-key function-key-map "\e[Y" [(shift f1)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 (define-key function-key-map "\e[Z" [(shift f2)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 (define-key function-key-map "\e[a" [(shift f3)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 (define-key function-key-map "\e[b" [(shift f4)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 (define-key function-key-map "\e[c" [(shift f5)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 (define-key function-key-map "\e[d" [(shift f6)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 (define-key function-key-map "\e[e" [(shift f7)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 (define-key function-key-map "\e[f" [(shift f8)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 (define-key function-key-map "\e[g" [(shift f9)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 (define-key function-key-map "\e[h" [(shift f10)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 (define-key function-key-map "\e[i" [(shift f11)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 (define-key function-key-map "\e[j" [(shift f12)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 ;; Control function keys
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 (define-key function-key-map "\e[k" [(control f1)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 (define-key function-key-map "\e[l" [(control f2)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 (define-key function-key-map "\e[m" [(control f3)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 (define-key function-key-map "\e[n" [(control f4)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 (define-key function-key-map "\e[o" [(control f5)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 (define-key function-key-map "\e[p" [(control f6)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 (define-key function-key-map "\e[q" [(control f7)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 (define-key function-key-map "\e[r" [(control f8)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 (define-key function-key-map "\e[s" [(control f9)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 (define-key function-key-map "\e[t" [(control f10)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 (define-key function-key-map "\e[u" [(control f11)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 (define-key function-key-map "\e[v" [(control f12)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 ;; Shift-control function keys
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 (define-key function-key-map "\e[w" [(control shift f1)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 (define-key function-key-map "\e[x" [(control shift f2)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 (define-key function-key-map "\e[y" [(control shift f3)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 (define-key function-key-map "\e[z" [(control shift f4)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 (define-key function-key-map "\e[@" [(control shift f5)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 (define-key function-key-map "\e[[" [(control shift f6)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 (define-key function-key-map "\e[\\" [(control shift f7)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 (define-key function-key-map "\e[]" [(control shift f8)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 (define-key function-key-map "\e[^" [(control shift f9)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 (define-key function-key-map "\e[_" [(control shift f10)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 (define-key function-key-map "\e[`" [(control shift f11)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 (define-key function-key-map "\e[{" [(control shift f12)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 ;;; Now come the extended key names. Please refer to README.sco for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 ;;; more information regarding these keys and how to set them up.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 (define-key function-key-map "\e]A" [(shift home)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 (define-key function-key-map "\e]B" [(shift up)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 (define-key function-key-map "\e]C" [(shift prior)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 (define-key function-key-map "\e]D" [(shift left)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 (define-key function-key-map "\e]E" [(shift right)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 (define-key function-key-map "\e]F" [(shift end)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 (define-key function-key-map "\e]G" [(shift down)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 (define-key function-key-map "\e]H" [(shift next)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 (define-key function-key-map "\e]I" [(shift insert)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 (define-key function-key-map "\e]J" [(shift delete)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 (define-key function-key-map "\e]K" [(control home)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 (define-key function-key-map "\e]L" [(control up)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 (define-key function-key-map "\e]M" [(control prior)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 (define-key function-key-map "\e]N" [(control left)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 (define-key function-key-map "\e]O" [(control right)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 (define-key function-key-map "\e]P" [(control end)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 (define-key function-key-map "\e]Q" [(control down)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 (define-key function-key-map "\e]R" [(control next)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 (define-key function-key-map "\e]S" [(control insert)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 (define-key function-key-map "\e]T" [(control delete)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 (define-key function-key-map "\e]U" [(meta home)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 (define-key function-key-map "\e]V" [(meta up)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 (define-key function-key-map "\e]W" [(meta prior)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 (define-key function-key-map "\e]X" [(meta left)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 (define-key function-key-map "\e]Y" [(meta right)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 (define-key function-key-map "\e]Z" [(meta end)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 (define-key function-key-map "\e]a" [(meta down)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 (define-key function-key-map "\e]b" [(meta next)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 (define-key function-key-map "\e]c" [(meta insert)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 (define-key function-key-map "\e]d" [(meta delete)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 (define-key function-key-map "\e]e" [(control center)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 (define-key function-key-map "\e]f" [(control kp-subtract)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 (define-key function-key-map "\e]g" [(control kp-add)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 (define-key function-key-map "\e]h" [(meta center)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 (define-key function-key-map "\e]i" [(meta kp-subtract)])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 (define-key function-key-map "\e]j" [(meta kp-add)])