401 |
/* Char table for translating Quail and self-inserting input. */ |
/* Char table for translating Quail and self-inserting input. */ |
402 |
Lisp_Object Vtranslation_table_for_input; |
Lisp_Object Vtranslation_table_for_input; |
403 |
|
|
|
/* Global flag to tell that we can't call post-read-conversion and |
|
|
pre-write-conversion functions. Usually the value is zero, but it |
|
|
is set to 1 temporarily while such functions are running. This is |
|
|
to avoid infinite recursive call. */ |
|
|
static int inhibit_pre_post_conversion; |
|
|
|
|
404 |
/* Two special coding systems. */ |
/* Two special coding systems. */ |
405 |
Lisp_Object Vsjis_coding_system; |
Lisp_Object Vsjis_coding_system; |
406 |
Lisp_Object Vbig5_coding_system; |
Lisp_Object Vbig5_coding_system; |
966 |
static unsigned char * |
static unsigned char * |
967 |
alloc_destination (coding, nbytes, dst) |
alloc_destination (coding, nbytes, dst) |
968 |
struct coding_system *coding; |
struct coding_system *coding; |
969 |
int nbytes; |
EMACS_INT nbytes; |
970 |
unsigned char *dst; |
unsigned char *dst; |
971 |
{ |
{ |
972 |
EMACS_INT offset = dst - coding->destination; |
EMACS_INT offset = dst - coding->destination; |
5012 |
coding_inherit_eol_type (coding_system, parent) |
coding_inherit_eol_type (coding_system, parent) |
5013 |
Lisp_Object coding_system, parent; |
Lisp_Object coding_system, parent; |
5014 |
{ |
{ |
5015 |
Lisp_Object spec, attrs, eol_type; |
Lisp_Object spec, eol_type; |
5016 |
|
|
5017 |
if (NILP (coding_system)) |
if (NILP (coding_system)) |
5018 |
coding_system = Qraw_text; |
coding_system = Qraw_text; |
5019 |
spec = CODING_SYSTEM_SPEC (coding_system); |
spec = CODING_SYSTEM_SPEC (coding_system); |
|
attrs = AREF (spec, 0); |
|
5020 |
eol_type = AREF (spec, 2); |
eol_type = AREF (spec, 2); |
5021 |
if (VECTORP (eol_type) |
if (VECTORP (eol_type) |
5022 |
&& ! NILP (parent)) |
&& ! NILP (parent)) |
5364 |
&& ! EQ (coding_type, Qccl)) |
&& ! EQ (coding_type, Qccl)) |
5365 |
{ |
{ |
5366 |
int eol_seen = detect_eol (coding->source, coding->src_bytes, |
int eol_seen = detect_eol (coding->source, coding->src_bytes, |
5367 |
XINT (CODING_ATTR_CATEGORY (attrs))); |
(enum coding_category) XINT (CODING_ATTR_CATEGORY (attrs))); |
5368 |
|
|
5369 |
if (eol_seen != EOL_SEEN_NONE) |
if (eol_seen != EOL_SEEN_NONE) |
5370 |
adjust_coding_eol_type (coding, eol_seen); |
adjust_coding_eol_type (coding, eol_seen); |
5470 |
if (! coding->chars_at_source) |
if (! coding->chars_at_source) |
5471 |
{ |
{ |
5472 |
/* Characters are in coding->charbuf. */ |
/* Characters are in coding->charbuf. */ |
5473 |
int *buf = coding->charbuf; |
EMACS_INT *buf = coding->charbuf; |
5474 |
int *buf_end = buf + coding->charbuf_used; |
EMACS_INT *buf_end = buf + coding->charbuf_used; |
5475 |
unsigned char *adjusted_dst_end; |
unsigned char *adjusted_dst_end; |
5476 |
|
|
5477 |
if (BUFFERP (coding->src_object) |
if (BUFFERP (coding->src_object) |
8630 |
iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3; |
iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3; |
8631 |
iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer; |
iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer; |
8632 |
|
|
|
inhibit_pre_post_conversion = 0; |
|
|
|
|
8633 |
for (i = 0; i < 256; i++) |
for (i = 0; i < 256; i++) |
8634 |
{ |
{ |
8635 |
emacs_mule_bytes[i] = 1; |
emacs_mule_bytes[i] = 1; |