on output. */
#define CODING_FLAG_ISO_DESIGNATE_AT_BOL 0x0400
-/* If set, do not encode unsafe charactes on output. */
+/* If set, do not encode unsafe characters on output. */
#define CODING_FLAG_ISO_SAFE 0x0800
/* If set, extra latin codes (128..159) are accepted as a valid code
coding_type_ccl, /* The coding system of which decoder
and encoder are written in CCL. */
coding_type_raw_text /* A coding system for a text
- containing ramdom 8-bit code which
+ containing random 8-bit code which
does not require code conversion
except for end-of-line format. */
};
The encoder stores the information in this structure when it meets
ESC sequences for composition while encoding codes, then, after all
text codes are encoded, puts `composition' properties on the text
- by refering the structure.
+ by referring to the structure.
The decoder at first stores the information of a text to be
decoded, then, while decoding codes, generates ESC sequences for
- composition at proper places by refering the structure. */
+ composition at proper places by referring to the structure. */
struct composition_data
{
START and END are starting and ending character positions of
the composition relative to `char_offset'.
- METHOD is one of `enum cmposing_status' specifying the way of
+ METHOD is one of `enum composing_status' specifying the way of
composition.
COMPONENT is a character or an encoded composition rule. */
/* Pointers to the previous and next structures. When `data' is
filled up, another structure is allocated and linked in `next'.
- The new struture has backward link to this struture in `prev'.
- The number of chaind structures depends on how many compositions
+ The new structure has backward link to this structure in `prev'.
+ The number of chained structures depends on how many compositions
the text being encoded or decoded contains. */
struct composition_data *prev, *next;
};
/* If set, the decoding/encoding routines treat the current data as
the last block of the whole text to be converted, and do
- appropriate fisishing job. */
+ appropriate finishing job. */
#define CODING_MODE_LAST_BLOCK 0x02
/* If set, it means that the current source text is in a buffer which
CODING_FINISH_XXXX. */
int result;
+ /* If nonzero, suppress error notification. */
+ int suppress_error;
+
/* The following members are all Lisp symbols. We don't have to
protect them from GC because the current garbage collection
doesn't relocate Lisp symbols. But, when it is changed, we must
/* Encode the string STR using the specified coding system
for w32 system functions, if any. */
#define ENCODE_SYSTEM(str) \
- (! NILP (Vw32_system_coding_system) \
- && XFASTINT (Vw32_system_coding_system) != 0 \
- ? code_convert_string_norecord (str, Vw32_system_coding_system, 1) \
+ (! NILP (Vlocale_coding_system) \
+ && XFASTINT (Vlocale_coding_system) != 0 \
+ ? code_convert_string_norecord (str, Vlocale_coding_system, 1) \
: str)
/* Decode the string STR using the specified coding system
for w32 system functions, if any. */
#define DECODE_SYSTEM(name) \
- (! NILP (Vw32_system_coding_system) \
- && XFASTINT (Vw32_system_coding_system) != 0 \
- ? code_convert_string_norecord (str, Vw32_system_coding_system, 0) \
+ (! NILP (Vlocale_coding_system) \
+ && XFASTINT (Vlocale_coding_system) != 0 \
+ ? code_convert_string_norecord (str, Vlocale_coding_system, 0) \
: str)
-#endif
+
+#else /* WINDOWSNT */
+
+#define ENCODE_SYSTEM(str) string_make_unibyte(str)
+#define DECODE_SYSTEM(name) name
+
+#endif /* !WINDOWSNT */
/* Extern declarations. */
extern int decode_coding P_ ((struct coding_system *, unsigned char *,
extern int setup_coding_system P_ ((Lisp_Object, struct coding_system *));
extern Lisp_Object code_convert_string P_ ((Lisp_Object,
struct coding_system *, int, int));
+extern Lisp_Object code_convert_string1 P_ ((Lisp_Object, Lisp_Object,
+ Lisp_Object, int));
extern Lisp_Object code_convert_string_norecord P_ ((Lisp_Object, Lisp_Object,
int));
extern void setup_raw_text_coding_system P_ ((struct coding_system *));
extern Lisp_Object Qfile_coding_system;
extern Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument;
extern Lisp_Object Qstart_process, Qopen_network_stream;
+extern Lisp_Object Qwrite_region;
extern char *emacs_strerror P_ ((int));
/* Default coding systems used for process I/O. */
extern Lisp_Object Vdefault_process_coding_system;
-/* Function to call to force a user to force select a propert coding
+/* Function to call to force a user to force select a proper coding
system. */
extern Lisp_Object Vselect_safe_coding_system_function;
Vfile_name_coding_system is nil. */
extern Lisp_Object Vdefault_file_name_coding_system;
-#ifdef WINDOWSNT
-/* Coding system for w32 system strings, or nil if none. */
-extern Lisp_Object Vw32_system_coding_system;
-#endif
#endif
+/* Error signaled when there's a problem with detecting coding system */
+extern Lisp_Object Qcoding_system_error;
+
#endif /* EMACS_CODING_H */
HCoop / bpt / emacs.git / blobdiff