Mercurial > hg > xemacs-beta
view lisp/code-init.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 | 1d74a1d115ee |
| children | d2ec55325515 |
line wrap: on
line source
;;; code-init.el --- Handle coding system default values ;; Copyright (C) 2001, 2002, 2003 Ben Wing. ;; This file is part of XEmacs. ;; XEmacs 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 2, or (at your option) ;; any later version. ;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Placed in a separate file so it can be loaded after the various ;; coding systems have been created, because we'll be using them at ;; load time. ;; #### Issues (this discussion probably belongs elsewhere) ;; 1. "Big" characters are unrepresentable. Should give error, warning, ;; not just substitute "~". ;; 2. 21.4 compatibility? ;; 3. make-char: non-mule barfs on non-iso8859-1. ;;; Code: (defcustom eol-detection-enabled-p (or (featurep 'mule) (memq system-type '(windows-nt cygwin32)) (featurep 'unix-default-eol-detection)) "True if XEmacs automatically detects the EOL type when reading files. Normally, this is always the case on Windows or when international (Mule) support is compiled into this XEmacs. Otherwise, it is currently off by default, but this may change. Don't set this; nothing will happen. Instead, use the Options menu or `set-eol-detection'." :group 'encoding :type 'boolean ;; upon initialization, we don't want the whole business of ;; set-eol-detection to be called. We will init everything appropriately ;; later in the same file, when reset-language-environment is called. :initialize #'(lambda (var val) (setq eol-detection-enabled-p (eval val))) :set #'(lambda (var val) (set-eol-detection val) (setq eol-detection-enabled-p val))) (defun set-eol-detection (flag) "Enable (if FLAG is non-nil) or disable automatic EOL detection of files. EOL detection is enabled by default on Windows or when international (Mule) support is compiled into this XEmacs. Otherwise, it is currently off by default, but this may change. NOTE: You *REALLY* should not turn off EOL detection on Windows! Your files will have lots of annoying ^M's in them if you do this." (dolist (x '(buffer-file-coding-system-for-read keyboard default-process-coding-system-read no-conversion-coding-system-mapping)) (set-coding-system-variable x (coding-system-change-eol-conversion (get-coding-system-variable x) (if flag nil 'lf))))) (defun coding-system-current-system-configuration () (cond ((memq system-type '(windows-nt cygwin32)) (if (featurep 'mule) 'windows-mule 'windows-no-mule)) ((featurep 'mule) 'unix-mule) (eol-detection-enabled-p 'unix-no-mule-eol-detection) (t 'unix-no-mule-no-eol-detection))) ;; NOTE NOTE NOTE: These values may get overridden when the language ;; environment is initialized (set-language-environment-coding-systems). (defvar coding-system-variable-default-value-table '((buffer-file-coding-system-for-read binary raw-text undecided raw-text undecided) (default-buffer-file-coding-system ;; #### iso-2022-8 with no eol specified? can that be OK? binary binary iso-2022-8 raw-text-dos mswindows-multibyte-dos) (native binary binary binary raw-text-dos mswindows-multibyte-system-default-dos) (keyboard binary raw-text undecided-unix raw-text undecided-unix) ;; the `terminal' coding system is used for output to stderr. such ;; streams do automatic lf->crlf encoding in the C library, so we need ;; to not do the same translations ourselves. (terminal binary binary binary binary mswindows-multibyte-unix) (default-process-coding-system-read binary raw-text undecided raw-text undecided) (default-process-coding-system-write binary binary binary raw-text mswindows-multibyte-system-default) (no-conversion-coding-system-mapping binary raw-text raw-text raw-text mswindows-multibyte) )) (defvar coding-system-default-configuration-list '(unix-no-mule-no-eol-detection unix-no-mule-eol-detection unix-mule windows-no-mule windows-mule)) (defvar coding-system-default-variable-list '(buffer-file-coding-system-for-read default-buffer-file-coding-system native keyboard terminal default-process-coding-system-read default-process-coding-system-write no-conversion-coding-system-mapping)) (defun get-coding-system-variable (var) "Return the value of a basic coding system variable. This is intended as a uniform interface onto the coding system settings that control how encoding detection and conversion works. See `coding-system-variable-default-value' for a list of the possible values of VAR." (case var (buffer-file-coding-system-for-read buffer-file-coding-system-for-read) (default-buffer-file-coding-system (default-value 'buffer-file-coding-system)) (native (coding-system-aliasee 'native)) (keyboard (coding-system-aliasee 'keyboard)) (terminal (coding-system-aliasee 'terminal)) (default-process-coding-system-read (car default-process-coding-system)) (default-process-coding-system-write (cdr default-process-coding-system)) (no-conversion-coding-system-mapping (coding-category-system 'no-conversion)) (t (error 'invalid-constant "Invalid coding system variable" var)))) (defun set-coding-system-variable (var value) "Set a basic coding system variable to VALUE. This is intended as a uniform interface onto the coding system settings that control how encoding detection and conversion works. See `coding-system-variable-default-value' for a list of the possible values of VAR." (case var (buffer-file-coding-system-for-read (set-buffer-file-coding-system-for-read value)) (default-buffer-file-coding-system (set-default-buffer-file-coding-system value)) (native (define-coding-system-alias 'native value)) (keyboard (set-keyboard-coding-system value)) (terminal (set-terminal-coding-system value)) (default-process-coding-system-read (setq default-process-coding-system (cons value (cdr default-process-coding-system)))) (default-process-coding-system-write (setq default-process-coding-system (cons (car default-process-coding-system) value))) (no-conversion-coding-system-mapping (set-coding-category-system 'no-conversion value)) (t (error 'invalid-constant "Invalid coding system variable" var)))) (defun coding-system-variable-default-value (var &optional config) "Return the appropriate default value for a coding system variable. VAR specifies the variable, and CONFIG the configuration, defaulting to the current system configuration (as returned by `coding-system-current-system-configuration'). The table of default values looks like this: (see below for abbreviations) Unix Unix+EOL Unix+Mule MSW MSW+Mule ----------------------------------------------------------------------------- bfcs-for-read binary raw-text undecided raw-text undecided default bfcs binary binary iso-2022-8 raw-text-dos MSW-MB-dos native binary binary binary raw-text-dos MSW-MB-SD-dos keyboard binary raw-text undecided-unix raw-text undecided-unix terminal binary binary binary binary MSW-MB-unix process-read binary raw-text undecided raw-text undecided process-write binary binary binary raw-text MSW-MB-SD no-conv-cs binary raw-text raw-text raw-text MSW-MB VAR can be one of: (abbreviations in parens) `buffer-file-coding-system-for-read' (bfcs-for-read) Lisp variable of the same name; the default coding system used when reading in a file, in the absence of more specific settings. (See `insert-file-contents' for a description of exactly how a file's coding system is determined when it's read in.) `default-buffer-file-coding-system' (default bfcs) Default value of `buffer-file-coding-system', the buffer-local variable specifying a file's coding system to be used when it is written out. Set using `set-default-buffer-file-coding-system' (or the primitive `setq-default'). When a file is read in, `buffer-file-coding-system' for that file is set from the coding system used to read the file in; the default value applies to newly created files. `native' (native) The coding system named `native'. Changed using `define-coding-system-alias'. Used internally when passing text to or from system API's, unless the particular API specifies another coding system. `keyboard' (keyboard) #### fill in `terminal' (terminal) #### fill in `default-process-coding-system-read' (process-read) #### fill in `default-process-coding-system-write' (process-write) #### fill in `no-conversion-coding-system-mapping' (no-conv-cs) Coding system used when category `no-conversion' is detected. CONFIG is one of: (abbreviations in parens) `unix-no-mule-no-eol-detection' (Unix) Unix, no Mule support, no automatic EOL detection. (Controlled by `eol-detection-enabled-p', which is set by the command-line flag -enable-eol-detection or the configure flag --with-default-eol-detection.) `unix-no-mule-eol-detection' (Unix+EOL) Unix, no Mule support, automatic EOL detection. `unix-mule' (Unix+Mule) Unix, Mule support. `windows-no-mule' (MSW) MS Windows or Cygwin, no Mule support. `windows-mule'. (MSW+Mule) MS Windows or Cygwin, Mule support. The following coding system abbreviations are also used in the table: MSW-MB = mswindows-multibyte MSW-MB = mswindows-multibyte-system-default " (setq config (or config (coding-system-current-system-configuration))) (let ((defs (cdr (assq var coding-system-variable-default-value-table)))) (or defs (error 'invalid-constant "Invalid coding system variable" var)) (let ((pos (position config coding-system-default-configuration-list))) (or pos (error 'invalid-constant "Invalid coding system configuration" config)) (nth pos defs)))) (defun reset-coding-system-defaults (&optional config) "Reset all basic coding system variables are set to their default values. See `coding-system-variable-default-value'." (setq config (or config (coding-system-current-system-configuration))) (mapcar #'(lambda (var) (set-coding-system-variable var (coding-system-variable-default-value var config))) coding-system-default-variable-list)) (defun reset-coding-categories-to-default () "Reset all coding categories (used for automatic detection) to their defaults. The order of priorities of coding categories and the coding system bound to each category are as follows: coding category coding system -------------------------------------------------- utf-16-little-endian-bom utf-16-little-endian utf-16-bom utf-16-bom utf-8-bom utf-8-bom iso-7 iso-2022-7bit no-conversion raw-text utf-8 utf-8 iso-8-1 iso-8859-1 iso-8-2 ctext (iso-8859-1 alias) iso-8-designate ctext (iso-8859-1 alias) iso-lock-shift iso-2022-lock shift-jis shift-jis big5 big5 utf-16-little-endian utf-16-little-endian utf-16 utf-16 ucs-4 ucs-4 " ;; #### What a mess! This needs to be overhauled. ;; The old table (from FSF synch?) was not what we use (cf mule-coding.el), ;; and as documented iso-8-designate is inconsistent with iso-2022-8bit-ss2. ;; The order of priorities of coding categories and the coding system ;; bound to each category are as follows: ;; ;; coding category coding system ;; -------------------------------------------------- ;; iso-8-2 iso-8859-1 ;; iso-8-1 iso-8859-1 ;; iso-7 iso-2022-7bit ;; iso-lock-shift iso-2022-lock ;; iso-8-designate iso-2022-8bit-ss2 ;; no-conversion raw-text ;; shift-jis shift_jis ;; big5 big5 ;; ucs-4 ---- ;; utf-8 ---- (when (featurep 'mule) (set-coding-category-system 'iso-7 'iso-2022-7) (set-coding-category-system 'iso-8-1 'iso-8859-1) (set-coding-category-system 'iso-8-2 'ctext) (set-coding-category-system 'iso-lock-shift 'iso-2022-lock) (set-coding-category-system 'iso-8-designate 'ctext) (if (find-coding-system 'shift-jis) (set-coding-category-system 'shift-jis 'shift-jis)) (if (find-coding-system 'big5) (set-coding-category-system 'big5 'big5)) ) (set-coding-category-system 'no-conversion (coding-system-variable-default-value 'no-conversion-coding-system-mapping)) (set-coding-category-system 'ucs-4 'ucs-4) (set-coding-category-system 'utf-8 'utf-8) (set-coding-category-system 'utf-8-bom 'utf-8-bom) (set-coding-category-system 'utf-16-little-endian 'utf-16-little-endian) (set-coding-category-system 'utf-16 'utf-16) (set-coding-category-system 'utf-16-little-endian-bom 'utf-16-little-endian-bom) (set-coding-category-system 'utf-16-bom 'utf-16-bom) (set-coding-priority-list (if (featurep 'mule) '(utf-16-little-endian-bom utf-16-bom utf-8-bom iso-7 no-conversion utf-8 iso-8-1 iso-8-2 iso-8-designate iso-lock-shift shift-jis big5 utf-16-little-endian utf-16 ucs-4) '(utf-16-little-endian-bom utf-16-bom utf-8-bom no-conversion utf-8 utf-16-little-endian utf-16 ucs-4)))) (defun reset-language-environment () "Reset coding system environment of XEmacs to the default status. All basic coding system variables are set to their default values, as are the coding categories used for automatic detection and their priority. BE VERY CERTAIN YOU WANT TO DO THIS BEFORE DOING IT! For more information, see `reset-coding-system-defaults' and `reset-coding-categories-to-default'." (reset-coding-system-defaults) (reset-coding-categories-to-default)) ;; Initialize everything so that the remaining Lisp files can contain ;; extended characters. (They will be in ISO-7 format) ;; !!####!! The Lisp files should all be in UTF-8!!! That way, all ;; special characters appear as high bits and there's no problem with ;; the Lisp parser trying to read a Mule file and getting all screwed ;; up. The only other thing then would be characters; we just need to ;; modify the Lisp parser to read the stuff directly after a ? as ;; UTF-8 and return a 30-bit value directly, and modify the character ;; routines a bit to allow such a beast to exist. MAKE IT A POINT TO ;; IMPLEMENT THIS AS ONE OF MY FUTURE PROJECTS. --ben (reset-language-environment) (coding-system-put 'raw-text 'safe-charsets '(ascii control-1 latin-iso8859-1)) ;;; code-init.el ends here