aboutsummaryrefslogtreecommitdiffstats
path: root/src/coding.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/coding.c')
-rw-r--r--src/coding.c19
1 files changed, 5 insertions, 14 deletions
diff --git a/src/coding.c b/src/coding.c
index 982aaac1c1e..5fc381e80b2 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -401,12 +401,6 @@ Lisp_Object Vdefault_process_coding_system;
401/* Char table for translating Quail and self-inserting input. */ 401/* Char table for translating Quail and self-inserting input. */
402Lisp_Object Vtranslation_table_for_input; 402Lisp_Object Vtranslation_table_for_input;
403 403
404/* Global flag to tell that we can't call post-read-conversion and
405 pre-write-conversion functions. Usually the value is zero, but it
406 is set to 1 temporarily while such functions are running. This is
407 to avoid infinite recursive call. */
408static int inhibit_pre_post_conversion;
409
410/* Two special coding systems. */ 404/* Two special coding systems. */
411Lisp_Object Vsjis_coding_system; 405Lisp_Object Vsjis_coding_system;
412Lisp_Object Vbig5_coding_system; 406Lisp_Object Vbig5_coding_system;
@@ -972,7 +966,7 @@ coding_alloc_by_making_gap (coding, bytes)
972static unsigned char * 966static unsigned char *
973alloc_destination (coding, nbytes, dst) 967alloc_destination (coding, nbytes, dst)
974 struct coding_system *coding; 968 struct coding_system *coding;
975 int nbytes; 969 EMACS_INT nbytes;
976 unsigned char *dst; 970 unsigned char *dst;
977{ 971{
978 EMACS_INT offset = dst - coding->destination; 972 EMACS_INT offset = dst - coding->destination;
@@ -5018,12 +5012,11 @@ Lisp_Object
5018coding_inherit_eol_type (coding_system, parent) 5012coding_inherit_eol_type (coding_system, parent)
5019 Lisp_Object coding_system, parent; 5013 Lisp_Object coding_system, parent;
5020{ 5014{
5021 Lisp_Object spec, attrs, eol_type; 5015 Lisp_Object spec, eol_type;
5022 5016
5023 if (NILP (coding_system)) 5017 if (NILP (coding_system))
5024 coding_system = Qraw_text; 5018 coding_system = Qraw_text;
5025 spec = CODING_SYSTEM_SPEC (coding_system); 5019 spec = CODING_SYSTEM_SPEC (coding_system);
5026 attrs = AREF (spec, 0);
5027 eol_type = AREF (spec, 2); 5020 eol_type = AREF (spec, 2);
5028 if (VECTORP (eol_type) 5021 if (VECTORP (eol_type)
5029 && ! NILP (parent)) 5022 && ! NILP (parent))
@@ -5371,7 +5364,7 @@ detect_coding (coding)
5371 && ! EQ (coding_type, Qccl)) 5364 && ! EQ (coding_type, Qccl))
5372 { 5365 {
5373 int eol_seen = detect_eol (coding->source, coding->src_bytes, 5366 int eol_seen = detect_eol (coding->source, coding->src_bytes,
5374 XINT (CODING_ATTR_CATEGORY (attrs))); 5367 (enum coding_category) XINT (CODING_ATTR_CATEGORY (attrs)));
5375 5368
5376 if (eol_seen != EOL_SEEN_NONE) 5369 if (eol_seen != EOL_SEEN_NONE)
5377 adjust_coding_eol_type (coding, eol_seen); 5370 adjust_coding_eol_type (coding, eol_seen);
@@ -5477,8 +5470,8 @@ produce_chars (coding)
5477 if (! coding->chars_at_source) 5470 if (! coding->chars_at_source)
5478 { 5471 {
5479 /* Characters are in coding->charbuf. */ 5472 /* Characters are in coding->charbuf. */
5480 int *buf = coding->charbuf; 5473 EMACS_INT *buf = coding->charbuf;
5481 int *buf_end = buf + coding->charbuf_used; 5474 EMACS_INT *buf_end = buf + coding->charbuf_used;
5482 unsigned char *adjusted_dst_end; 5475 unsigned char *adjusted_dst_end;
5483 5476
5484 if (BUFFERP (coding->src_object) 5477 if (BUFFERP (coding->src_object)
@@ -8637,8 +8630,6 @@ init_coding_once ()
8637 iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3; 8630 iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3;
8638 iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer; 8631 iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer;
8639 8632
8640 inhibit_pre_post_conversion = 0;
8641
8642 for (i = 0; i < 256; i++) 8633 for (i = 0; i < 256; i++)
8643 { 8634 {
8644 emacs_mule_bytes[i] = 1; 8635 emacs_mule_bytes[i] = 1;