/[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.239.2.53 by handa, Thu May 29 13:17:04 2003 UTC revision 1.239.2.54 by handa, Thu Jun 5 12:34:31 2003 UTC
# Line 3186  decode_coding_iso_2022 (coding) Line 3186  decode_coding_iso_2022 (coding)
3186                  *charbuf++ = *src_base;                  *charbuf++ = *src_base;
3187                else                else
3188                  *charbuf++ = BYTE8_TO_CHAR (*src_base);                  *charbuf++ = BYTE8_TO_CHAR (*src_base);
               char_offset++;  
3189              }              }
3190          }          }
3191        else if (composition_state == COMPOSING_NO)        else if (composition_state == COMPOSING_NO)
# Line 4985  raw_text_coding_system (coding_system) Line 4984  raw_text_coding_system (coding_system)
4984    Lisp_Object spec, attrs;    Lisp_Object spec, attrs;
4985    Lisp_Object eol_type, raw_text_eol_type;    Lisp_Object eol_type, raw_text_eol_type;
4986    
4987      if (NILP (coding_system))
4988        return Qraw_text;
4989    spec = CODING_SYSTEM_SPEC (coding_system);    spec = CODING_SYSTEM_SPEC (coding_system);
4990    attrs = AREF (spec, 0);    attrs = AREF (spec, 0);
4991        
# Line 5012  coding_inherit_eol_type (coding_system, Line 5013  coding_inherit_eol_type (coding_system,
5013  {  {
5014    Lisp_Object spec, attrs, eol_type;    Lisp_Object spec, attrs, eol_type;
5015    
5016      if (NILP (coding_system))
5017        coding_system = Qraw_text;
5018    spec = CODING_SYSTEM_SPEC (coding_system);    spec = CODING_SYSTEM_SPEC (coding_system);
5019    attrs = AREF (spec, 0);    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))
5023      {      {
5024        Lisp_Object parent_spec;        Lisp_Object parent_spec;
5025        Lisp_Object parent_eol_type;        Lisp_Object parent_eol_type;
# Line 5497  produce_chars (coding) Line 5501  produce_chars (coding)
5501                produced_chars++;                produced_chars++;
5502              }              }
5503            else            else
5504              /* This is an annotation datum.  */              /* This is an annotation datum.  (-C) is the length of
5505              buf -= c + 1;                 it.  */
5506                buf += -c - 1;
5507          }          }
5508      }      }
5509    else    else
# Line 6043  consume_chars (coding) Line 6048  consume_chars (coding)
6048    
6049        if (! multibytep)        if (! multibytep)
6050          {          {
6051            EMACS_INT bytes = MULTIBYTE_LENGTH (src, src_end);            EMACS_INT bytes;
6052    
6053            if (bytes > 0)            if (! CODING_FOR_UNIBYTE (coding)
6054                  && (bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
6055              c = STRING_CHAR_ADVANCE (src), pos += bytes;              c = STRING_CHAR_ADVANCE (src), pos += bytes;
6056            else            else
6057              c = *src++, pos++;              c = *src++, pos++;

Legend:
Removed from v.1.239.2.53  
changed lines
  Added in v.1.239.2.54

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