/[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.27 by fx, Thu Jul 11 23:15:52 2002 UTC revision 1.239.2.28 by fx, Tue Jul 16 15:10:13 2002 UTC
# Line 3124  decode_coding_iso_2022 (coding) Line 3124  decode_coding_iso_2022 (coding)
3124      int c;                                                              \      int c;                                                              \
3125                                                                          \                                                                          \
3126      if (CODING_ISO_FLAGS (coding) & CODING_ISO_FLAG_REVISION)           \      if (CODING_ISO_FLAGS (coding) & CODING_ISO_FLAG_REVISION)           \
3127        revision = XINT (CHARSET_ISO_REVISION (charset));                 \        revision = CHARSET_ISO_REVISION (charset);                        \
3128                                                                          \                                                                          \
3129      if (revision >= 0)                                                  \      if (revision >= 0)                                                  \
3130        {                                                                 \        {                                                                 \
# Line 5128  decode_eol (coding) Line 5128  decode_eol (coding)
5128                       coding->dst_pos_byte + coding->produced);                       coding->dst_pos_byte + coding->produced);
5129        undo_list = current_buffer->undo_list;        undo_list = current_buffer->undo_list;
5130        current_buffer->undo_list = Qt;        current_buffer->undo_list = Qt;
5131        del_range_2 (coding->dst_pos, coding->dst_pos_byte, GPT, GPT_BYTE, Qnil);        del_range_2 (coding->dst_pos, coding->dst_pos_byte, GPT, GPT_BYTE, 0);
5132        current_buffer->undo_list = undo_list;        current_buffer->undo_list = undo_list;
5133        pbeg = GPT_ADDR;        pbeg = GPT_ADDR;
5134        pend = pbeg + coding->produced;        pend = pbeg + coding->produced;
# Line 5783  make_conversion_work_buffer (multibytep) Line 5783  make_conversion_work_buffer (multibytep)
5783      }      }
5784    else    else
5785      {      {
5786        int depth = Flength (Vcode_conversion_work_buf_list);        int depth = XINT (Flength (Vcode_conversion_work_buf_list));
5787        char str[128];        char str[128];
5788    
5789        sprintf (str, " *code-conversion-work*<%d>", depth);        sprintf (str, " *code-conversion-work*<%d>", depth);
# Line 5807  Lisp_Object Line 5807  Lisp_Object
5807  code_conversion_restore (info)  code_conversion_restore (info)
5808       Lisp_Object info;       Lisp_Object info;
5809  {  {
5810    int depth = Flength (Vcode_conversion_work_buf_list);    int depth = XINT (Flength (Vcode_conversion_work_buf_list));
5811    Lisp_Object buf;    Lisp_Object buf;
5812    
5813    if (depth > 0)    if (depth > 0)
# Line 5818  code_conversion_restore (info) Line 5818  code_conversion_restore (info)
5818          Fkill_buffer (buf);          Fkill_buffer (buf);
5819      }      }
5820    
5821    if (saved_coding->dst_object == Qt    if (EQ (saved_coding->dst_object, Qt)
5822        && saved_coding->destination)        && saved_coding->destination)
5823      xfree (saved_coding->destination);      xfree (saved_coding->destination);
5824    
# Line 6878  not fully specified.)  */) Line 6878  not fully specified.)  */)
6878       Lisp_Object string, coding_system, nocopy, buffer;       Lisp_Object string, coding_system, nocopy, buffer;
6879  {  {
6880    return code_convert_string (string, coding_system, buffer,    return code_convert_string (string, coding_system, buffer,
6881                                nocopy, ! NILP (nocopy), 1);                                1, ! NILP (nocopy), 1);
6882  }  }
6883    
6884    
# Line 7493  usage: (define-coding-system-internal .. Line 7493  usage: (define-coding-system-internal ..
7493          {          {
7494            val = Fcar (tail);            val = Fcar (tail);
7495            if (INTEGERP (val))            if (INTEGERP (val))
7496              ASET (valids, XINT (val), 1);              ASET (valids, XINT (val), make_number (1));
7497            else            else
7498              {              {
7499                int from, to;                int from, to;
# Line 7504  usage: (define-coding-system-internal .. Line 7504  usage: (define-coding-system-internal ..
7504                from = XINT (XCAR (val));                from = XINT (XCAR (val));
7505                to = XINT (XCDR (val));                to = XINT (XCDR (val));
7506                for (i = from; i <= to; i++)                for (i = from; i <= to; i++)
7507                  ASET (valids, i, 1);                  ASET (valids, i, make_number (1));
7508              }              }
7509          }          }
7510        ASET (attrs, coding_attr_ccl_valids, valids);        ASET (attrs, coding_attr_ccl_valids, valids);

Legend:
Removed from v.1.239.2.27  
changed lines
  Added in v.1.239.2.28

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