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 |
{ \ |
{ \ |
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; |
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); |
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) |
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 |
|
|
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 |
|
|
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; |
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); |