/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.289.2.2 by fx, Wed Sep 17 19:21:10 2003 UTC revision 1.289.2.3 by fx, Mon Sep 29 17:59:52 2003 UTC
# Line 401  Lisp_Object Vdefault_process_coding_syst Line 401  Lisp_Object Vdefault_process_coding_syst
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;
# Line 972  coding_alloc_by_making_gap (coding, byte Line 966  coding_alloc_by_making_gap (coding, byte
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;
# Line 5018  Lisp_Object Line 5012  Lisp_Object
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))
# Line 5371  detect_coding (coding) Line 5364  detect_coding (coding)
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);
# Line 5477  produce_chars (coding) Line 5470  produce_chars (coding)
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)
# Line 8637  init_coding_once () Line 8630  init_coding_once ()
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;

Legend:
Removed from v.1.289.2.2  
changed lines
  Added in v.1.289.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26