Mercurial > emacs
view etc/edt-user.el @ 109165:750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
* alloc.c (overrun_check_malloc, overrun_check_realloc)
(overrun_check_free, xstrdup, allocate_string)
(allocate_string_data, compact_small_strings, Fmake_string)
(make_unibyte_string, make_multibyte_string)
(make_string_from_bytes, make_specified_string, make_float)
(Fcons, allocate_terminal, allocate_frame, make_pure_string)
(Fgarbage_collect): Replace bcopy, safe_bcopy, bzero, bcmp by
memcpy, memmove, memset, memcmp.
* atimer.c (start_atimer, set_alarm): Likewise.
* buffer.c (clone_per_buffer_values, report_overlay_modification)
(mmap_realloc, init_buffer_once): Likewise.
* callint.c (Fcall_interactively): Likewise.
* callproc.c (Fcall_process, Fcall_process_region, child_setup)
(getenv_internal_1): Likewise.
* casefiddle.c (casify_object): Likewise.
* ccl.c (ccl_driver): Likewise.
* character.c (str_as_multibyte, str_to_multibyte): Likewise.
* charset.c (load_charset_map_from_file)
(load_charset_map_from_file, load_charset_map_from_vector)
(Fdefine_charset_internal): Likewise.
* cm.c (Wcm_clear): Likewise.
* coding.c (decode_eol, decode_coding_object)
(Fset_coding_system_priority, make_subsidiaries): Likewise.
* data.c (Faset): Likewise.
* dired.c (directory_files_internal, file_name_completion_stat):
Likewise.
* dispnew.c (new_glyph_matrix, adjust_glyph_matrix)
(clear_glyph_row, copy_row_except_pointers)
(copy_glyph_row_contents, new_glyph_pool, realloc_glyph_pool)
(save_current_matrix, restore_current_matrix)
(build_frame_matrix_from_leaf_window, mirrored_line_dance)
(mirror_line_dance, scrolling_window): Likewise.
* doc.c (Fsnarf_documentation, Fsubstitute_command_keys):
Likewise.
* doprnt.c (doprnt): Likewise.
* editfns.c (Fuser_full_name, make_buffer_string_both)
(Fmessage_box, Fformat, Ftranspose_regions): Likewise.
* emacs.c (sort_args): Likewise.
* eval.c (Fapply, Ffuncall): Likewise.
* fileio.c (Ffile_name_directory, make_temp_name)
(Fexpand_file_name, search_embedded_absfilename)
(Fsubstitute_in_file_name, Ffile_symlink_p, Finsert_file_contents)
(auto_save_error): Likewise.
* fns.c (Fstring_equal, Fcopy_sequence, concat)
(string_to_multibyte, Fstring_as_unibyte, Fstring_as_multibyte)
(internal_equal, Fclear_string, larger_vector, copy_hash_table)
(Fmake_hash_table): Likewise.
* fringe.c (Fdefine_fringe_bitmap): Likewise.
* ftfont.c (ftfont_text_extents): Likewise.
* getloadavg.c (getloadavg): Likewise.
* image.c (define_image_type, make_image, make_image_cache)
(x_create_x_image_and_pixmap, xbm_image_p)
(w32_create_pixmap_from_bitmap_data, xbm_load, xpm_lookup_color)
(xpm_image_p, x_create_bitmap_from_xpm_data, xpm_load)
(init_color_table, x_build_heuristic_mask, pbm_image_p, pbm_load)
(png_image_p, png_read_from_memory, png_load, jpeg_image_p)
(tiff_image_p, tiff_read_from_memory, gif_image_p)
(gif_read_from_memory, gif_load, svg_image_p, gs_image_p):
Likewise.
* indent.c (scan_for_column, compute_motion): Likewise.
* insdel.c (gap_left, gap_right, make_gap_smaller, copy_text)
(insert_1_both, insert_from_gap, replace_range_2): Likewise.
* intervals.c (reproduce_tree, reproduce_tree_obj): Likewise.
* keyboard.c (echo_char, save_getcjmp, restore_getcjmp)
(kbd_buffer_store_event_hold, apply_modifiers_uncached)
(store_user_signal_events, menu_bar_items, tool_bar_items)
(process_tool_bar_item, append_tool_bar_item)
(read_char_minibuf_menu_prompt, read_key_sequence)
(Fread_key_sequence, Fread_key_sequence_vector, Frecent_keys):
Likewise.
* keymap.c (current_minor_maps, Fdescribe_buffer_bindings):
Likewise.
* lisp.h (STRING_COPYIN): Likewise.
* lread.c (Fload, read1, oblookup): Likewise.
* msdos.c (Frecent_doskeys): Likewise.
* nsfns.m (Fx_create_frame): Likewise.
* nsfont.m (nsfont_open, nsfont_text_extents, ns_glyph_metrics):
Likewise.
* nsimage.m (EmacsImage-initFromSkipXBM:width:height:)
(EmacsImage-initForXPMWithDepth:width:height:flip:length:):
Likewise.
* nsmenu.m (ns_update_menubar): Likewise.
* nsterm.m (ns_draw_fringe_bitmap, ns_term_init): Likewise.
* print.c (print_unwind, printchar, strout, print_string)
(print_error_message): Likewise.
* process.c (conv_lisp_to_sockaddr, set_socket_option)
(Fmake_network_process, Fnetwork_interface_list)
(Fnetwork_interface_info, read_process_output, Fprocess_send_eof)
(init_process): Likewise.
* ralloc.c (resize_bloc, r_alloc_sbrk, r_alloc_init): Likewise.
* regex.c (init_syntax_once, regex_compile, re_compile_fastmap):
Likewise.
* scroll.c (do_scrolling, do_direct_scrolling)
(scrolling_max_lines_saved): Likewise.
* search.c (search_buffer, wordify, Freplace_match): Likewise.
* sound.c (wav_init, au_init, Fplay_sound_internal): Likewise.
* syntax.c (skip_chars, skip_syntaxes): Likewise.
* sysdep.c (child_setup_tty, sys_subshell, emacs_get_tty)
(emacs_set_tty): Likewise.
* term.c (encode_terminal_code, calculate_costs)
(produce_special_glyphs, create_tty_output, init_tty, delete_tty):
Likewise.
* termcap.c (tgetst1, gobble_line): Likewise.
* termhooks.h (EVENT_INIT): Likewise.
* tparam.c (tparam1): Likewise.
* unexalpha.c (unexec): Likewise.
* unexec.c (write_segment): Likewise.
* unexmacosx.c (unexec_write_zero): Likewise.
* w32fns.c (w32_wnd_proc, Fx_create_frame, x_create_tip_frame)
(Fx_file_dialog, Fsystem_move_file_to_trash): Likewise.
* w32font.c (w32font_list_family, w32font_text_extents)
(w32font_list_internal, w32font_match_internal)
(w32font_open_internal, compute_metrics, Fx_select_font):
Likewise.
* w32menu.c (set_frame_menubar, add_menu_item)
(w32_menu_display_help, w32_free_submenu_strings): Likewise.
* w32term.c (XCreateGC, w32_initialize_display_info): Likewise.
* w32uniscribe.c (uniscribe_list_family): Likewise.
* w32xfns.c (get_next_msg, post_msg, prepend_msg): Likewise.
* window.c (make_window, replace_window, set_window_buffer)
(Fsplit_window): Likewise.
* xdisp.c (init_iterator, RECORD_OVERLAY_STRING, reseat_to_string)
(add_to_log, message3, x_consider_frame_title)
(append_space_for_newline, extend_face_to_end_of_line)
(decode_mode_spec_coding, init_glyph_string): Likewise.
* xfaces.c (x_create_gc, get_lface_attributes_no_remap)
(Finternal_copy_lisp_face, Finternal_merge_in_global_face)
(face_attr_equal_p, make_realized_face, make_face_cache)
(free_realized_faces, lookup_named_face, smaller_face)
(face_with_height, lookup_derived_face)
(x_supports_face_attributes_p, Finternal_set_font_selection_order)
(Finternal_set_font_selection_order, realize_default_face)
(compute_char_face, face_at_buffer_position)
(face_for_overlay_string, face_at_string_position, merge_faces):
Likewise.
* xfns.c (xic_create_fontsetname, Fx_create_frame)
(Fx_window_property, x_create_tip_frame)
(Fx_backspace_delete_keys_p): Likewise.
* xfont.c (xfont_list, xfont_match, xfont_list_family)
(xfont_text_extents): Likewise.
* xmenu.c (set_frame_menubar, xmenu_show): Likewise.
* xrdb.c (magic_file_p, x_get_resource): Likewise.
* xselect.c (x_queue_event, x_get_window_property)
(receive_incremental_selection): Likewise.
* xsmfns.c (x_session_check_input): Likewise.
* xterm.c (x_send_scroll_bar_event, SET_SAVED_MENU_EVENT)
(handle_one_xevent, x_check_errors, xim_initialize, x_term_init):
Likewise.
* character.h (BCOPY_SHORT): Removed.
* config.in: Regenerate.
* dispnew.c (safe_bcopy): Only define as dummy if PROFILING.
* emacs.c (main) [PROFILING]: Don't declare
dump_opcode_frequencies.
* lisp.h (safe_bcopy): Remove declaration.
(memset) [!HAVE_MEMSET]: Declare.
(memcpy) [!HAVE_MEMCPY]: Likewise.
(memmove) [!HAVE_MEMMOVE]: Likewise.
(memcmp) [!HAVE_MEMCMP]: Likewise.
* s/ms-w32.h (bzero, bcopy, bcmp, GAP_USE_BCOPY)
(BCOPY_UPWARD_SAFE, BCOPY_DOWNWARD_SAFE, HAVE_BCOPY, HAVE_BCMP):
Don't define.
(HAVE_MEMCMP, HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET): Define.
* s/msdos.h (GAP_USE_BCOPY, BCOPY_UPWARD_SAFE)
(BCOPY_DOWNWARD_SAFE): Don't define.
* sysdep.c (memset) [!HAVE_MEMSET]: Define.
(memcpy) [!HAVE_MEMCPY]: Define.
(memmove) [!HAVE_MEMMOVE]: Define.
(memcmp) [!HAVE_MEMCMP]: Define.
* config.nt (HAVE_BCOPY, HAVE_BCMP): Remove undefs.
(HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET, HAVE_MEMCMP): Add undefs.
* sed2v2.inp (HAVE_MEMCPY, HAVE_MEMSET): Edit to 1.
(HAVE_BZERO): Don't edit.
* lwlib.c (lwlib_memset, lwlib_bcopy): Remove.
(malloc_widget_value, free_widget_info, allocate_widget_instance)
(lw_separator_p): Replace lwlib_memset, lwlib_bcopy, bzero, bcmp by
memset, memcpy, memcmp.
* lwlib-utils.c (XtApplyToWidgets): Likewise.
* xlwmenu.c (XlwMenuInitialize): Likewise.
* lwlib.h (lwlib_bcopy): Remove declaration.
* ebrowse.c (add_sym, make_namespace): Replace bcopy, bzero by
memcpy, memmove, memset.
* pop.c (pop_retrieve, socket_connection, pop_getline): Likewise.
* CPP-DEFINES (BCOPY_DOWNWARD_SAFE, BCOPY_UPWARD_SAFE)
(GAP_USE_BCOPY, HAVE_BCMP, HAVE_BCOPY, bcmp, bcopy, bzero):
Remove.
* configure.in: Don't check for bcopy, bcmp, bzero. Don't include
<strings.h> and don't define bcopy, bzero, BCMP in config.h.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Thu, 08 Jul 2010 00:18:28 +0200 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
;;; edt-user.el --- Sample user customizations for Emacs EDT emulation ;; Copyright (C) 1986, 1992, 1993, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Kevin Gallagher <kgallagh@@spd.dsccc.com> ;; Maintainer: Kevin Gallagher <kgallagh@@spd.dsccc.com> ;; Keywords: emulations ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; This is an example of the `edt-user.el' file that you can use ;; to customize the Emacs EDT emulation mode. Copy this file to ;; somewhere in your `load-path', and edit it as desired. ;; See Info node `edt' for more details. ;; ==================================================================== ;;; Code: ;;;; ;;;; Setup user custom EDT key bindings. ;;;; (defun edt-setup-user-bindings () "Assigns user custom EDT Emulation keyboard bindings." ;; PF1 (GOLD), PF2, PF3, PF4 ;; ;; This file MUST contain a binding of PF1 to edt-user-gold-map. So ;; DON'T CHANGE OR DELETE THE REGULAR KEY BINDING OF PF1 BELOW! ;; (However, you may change the GOLD-PF1 binding, if you wish.) (edt-bind-function-key "PF1" 'edt-user-gold-map 'edt-mark-section-wisely) (edt-bind-function-key "PF2" 'query-replace 'other-window) (edt-bind-function-key "PF4" 'edt-delete-entire-line 'edt-undelete-line) ;; EDT Keypad Keys (edt-bind-function-key "KP1" 'edt-word-forward 'edt-change-case) (edt-bind-function-key "KP3" 'edt-word-backward 'edt-copy) (edt-bind-function-key "KP6" 'edt-cut-or-copy 'yank) (edt-bind-function-key "KP8" 'edt-scroll-window 'fill-paragraph) (edt-bind-function-key "KP9" 'open-line 'edt-eliminate-all-tabs) (edt-bind-function-key "KPP" 'edt-toggle-select 'edt-line-to-middle-of-window) (edt-bind-function-key "KPE" 'edt-change-direction 'overwrite-mode) ;; GOLD bindings for regular keys. (edt-bind-gold-key "a" 'edt-append) (edt-bind-gold-key "A" 'edt-append) (edt-bind-gold-key "h" 'edt-electric-user-keypad-help) (edt-bind-gold-key "H" 'edt-electric-user-keypad-help) ;; Control bindings for regular keys. ;;; Leave binding of C-c as original prefix key. (edt-bind-key "\C-j" 'edt-duplicate-word) (edt-bind-key "\C-k" 'edt-define-key) (edt-bind-gold-key "\C-k" 'edt-restore-key) (edt-bind-key "\C-l" 'edt-learn) ;;; Leave binding of C-m to newline. (edt-bind-key "\C-n" 'edt-set-screen-width-80) (edt-bind-key "\C-o" 'open-line) (edt-bind-key "\C-p" 'fill-paragraph) ;;; Leave binding of C-r to isearch-backward. ;;; Leave binding of C-s to isearch-forward. (edt-bind-key "\C-t" 'edt-display-the-time) (edt-bind-key "\C-v" 'redraw-display) (edt-bind-key "\C-w" 'edt-set-screen-width-132) ;;; Leave binding of C-x as original prefix key. ) ;;; ;;; LK-201 KEYBOARD USER EDT KEYPAD HELP ;;; (defun edt-user-keypad-help () " USER EDT Keypad Active +----------+----------+----------+----------+ F7: Copy Rectangle |Prev Line |Next Line |Bkwd Char |Frwd Char | F8: Cut Rect Overstrike | (UP) | (DOWN) | (LEFT) | (RIGHT) | G-F8: Paste Rect Overstrike |Window Top|Window Bot|Bkwd Sent |Frwd Sent | F9: Cut Rect Insert +----------+----------+----------+----------+ G-F9: Paste Rect Insert F10: Cut Rectangle G-F10: Paste Rectangle F11: ESC +----------+----------+----------+----------+ F12: Beginning of Line | GOLD |Query Repl| FNDNXT |Del Ent L | G-F12: Delete Other Windows | (PF1) | (PF2) | (PF3) | (PF4) | F13: Delete to Begin of Word |Mark Wisel|Other Wind| FIND | UND L | HELP: Keypad Help +----------+----------+----------+----------+ G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W | DO: Execute extended command | (7) | (8) | (9) | (-) | C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W | C-b: Backward Character +----------+----------+----------+----------+ C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C | C-e: End of Line | (4) | (5) | (6) | (,) | C-f: Forward Character | BOTTOM | TOP | Yank | UND C | C-g: Keyboard Quit +----------+----------+----------+----------+ G-C-g: Keyboard Quit | Fwd Word | EOL | Bwd Word | Change | C-h: Electric Emacs Help | (1) | (2) | (3) | Direction| G-C-h: Emacs Help | CHNGCASE | DEL EOL | COPY | | C-i: Indent for Tab +---------------------+----------+ (ENTER) | C-j: Duplicate Word | LINE |SELECT/RES| | C-k: Define Key | (0) | (.) | Toggle | G-C-k: Restore Key | Open Line |Center Lin|Insrt/Over| C-l: Learn +---------------------+----------+----------+ C-n: Set Screen Width 80 C-o: Open Line +----------+----------+----------+ C-p: Fill Paragraph | FNDNXT | Yank | CUT | C-q: Quoted Insert | (FIND)) | (INSERT) | (REMOVE) | C-r: Isearch Backward | FIND | | COPY | C-s: Isearch Forward +----------+----------+----------+ C-t: Display the Time |SELECT/RES|SECT BACKW|SECT FORWA| C-u: Universal Argument | (SELECT) |(PREVIOUS)| (NEXT) | C-v: Redraw Display | | | | C-w: Set Screen Width 132 +----------+----------+----------+ C-z: Suspend Emacs G-C-\\: Split Window G-a: Append to Kill Buffer G-b: Buffer Menu G-c: Compile G-d: Delete Window G-e: Exit G-f: Find File G-g: Find File Other Window G-h: Keypad Help G-i: Insert File G-k: Toggle Capitalization Word G-l: Lowercase Word or Region G-m: Save Some Buffers G-n: Next Error G-o: Switch Windows G-q: Quit G-r: Revert File G-s: Save Buffer G-u: Uppercase Word or Region G-v: Find File Other Window G-w: Write file G-y: EDT Emulation OFF G-z: Switch to Default EDT Key Bindings G-2: Split Window G-%: Go to Percentage G- : Undo (GOLD Spacebar) G-=: Go to Line G-`: What line G-/: Query-Replace" (interactive) (describe-function 'edt-user-keypad-help)) ;; arch-tag: a4671ca7-34b7-43a5-844c-2b2a89134ff4 ;;; edt-user.el ends here