aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJuanma Barranquero2010-07-07 10:45:22 +0200
committerJuanma Barranquero2010-07-07 10:45:22 +0200
commit1a4990fb03fb1e7e608269e299ae2caef5155168 (patch)
tree5f6820605a1fc8da64f8c4bcee8e1280fcaa9a62 /src
parenta2c270e752d0aa13f98c4d3338a7565bb61ceba4 (diff)
downloademacs-1a4990fb03fb1e7e608269e299ae2caef5155168.tar.gz
emacs-1a4990fb03fb1e7e608269e299ae2caef5155168.zip
* coding.c: Use SPECPDL_INDEX, DOS_NT.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/coding.c16
2 files changed, 14 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 7f2f664cc07..51088e3666a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
12010-07-07 Juanma Barranquero <lekktu@gmail.com>
2
3 * coding.c (decode_coding_gap, encode_coding_gap, decode_coding_object)
4 (encode_coding_object): Use SPECPDL_INDEX.
5 (syms_of_coding): Use DOS_NT.
6
12010-07-07 Dan Nicolaescu <dann@ics.uci.edu> 72010-07-07 Dan Nicolaescu <dann@ics.uci.edu>
2 8
3 * intervals.h (interval): Use EMACS_UINT instead of unsigned EMACS_INT. 9 * intervals.h (interval): Use EMACS_UINT instead of unsigned EMACS_INT.
diff --git a/src/coding.c b/src/coding.c
index 8c6fc0aeadf..f38beafed9f 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -1447,7 +1447,7 @@ decode_coding_utf_8 (struct coding_system *coding)
1447 { 1447 {
1448 c = - c1; 1448 c = - c1;
1449 } 1449 }
1450 else if (UTF_8_1_OCTET_P(c1)) 1450 else if (UTF_8_1_OCTET_P (c1))
1451 { 1451 {
1452 if (eol_crlf && c1 == '\r') 1452 if (eol_crlf && c1 == '\r')
1453 ONE_MORE_BYTE (byte_after_cr); 1453 ONE_MORE_BYTE (byte_after_cr);
@@ -2187,7 +2187,7 @@ emacs_mule_char (struct coding_system *coding, const unsigned char *src, int *nb
2187 (3) alt&rule composition: 0x80 0xF5 BYTES CHARS | ALT RULE ... ALT CHAR ... 2187 (3) alt&rule composition: 0x80 0xF5 BYTES CHARS | ALT RULE ... ALT CHAR ...
2188 2188
2189 and these old form: 2189 and these old form:
2190 2190
2191 (4) relative composition: 0x80 | MSEQ ... MSEQ 2191 (4) relative composition: 0x80 | MSEQ ... MSEQ
2192 (5) rulebase composition: 0x80 0xFF | MSEQ MRULE ... MSEQ 2192 (5) rulebase composition: 0x80 0xFF | MSEQ MRULE ... MSEQ
2193 2193
@@ -4284,7 +4284,7 @@ decode_coding_iso_2022 (struct coding_system *coding)
4284 4284
4285#define ENCODE_ISO_CHARACTER(charset, c) \ 4285#define ENCODE_ISO_CHARACTER(charset, c) \
4286 do { \ 4286 do { \
4287 int code = ENCODE_CHAR ((charset),(c)); \ 4287 int code = ENCODE_CHAR ((charset), (c)); \
4288 \ 4288 \
4289 if (CHARSET_DIMENSION (charset) == 1) \ 4289 if (CHARSET_DIMENSION (charset) == 1) \
4290 ENCODE_ISO_CHARACTER_DIMENSION1 ((charset), code); \ 4290 ENCODE_ISO_CHARACTER_DIMENSION1 ((charset), code); \
@@ -7562,7 +7562,7 @@ code_conversion_save (int with_work_buf, int multibyte)
7562int 7562int
7563decode_coding_gap (struct coding_system *coding, EMACS_INT chars, EMACS_INT bytes) 7563decode_coding_gap (struct coding_system *coding, EMACS_INT chars, EMACS_INT bytes)
7564{ 7564{
7565 int count = specpdl_ptr - specpdl; 7565 int count = SPECPDL_INDEX ();
7566 Lisp_Object attrs; 7566 Lisp_Object attrs;
7567 7567
7568 code_conversion_save (0, 0); 7568 code_conversion_save (0, 0);
@@ -7607,7 +7607,7 @@ decode_coding_gap (struct coding_system *coding, EMACS_INT chars, EMACS_INT byte
7607int 7607int
7608encode_coding_gap (struct coding_system *coding, EMACS_INT chars, EMACS_INT bytes) 7608encode_coding_gap (struct coding_system *coding, EMACS_INT chars, EMACS_INT bytes)
7609{ 7609{
7610 int count = specpdl_ptr - specpdl; 7610 int count = SPECPDL_INDEX ();
7611 7611
7612 code_conversion_save (0, 0); 7612 code_conversion_save (0, 0);
7613 7613
@@ -7665,7 +7665,7 @@ decode_coding_object (coding, src_object, from, from_byte, to, to_byte,
7665 EMACS_INT from, from_byte, to, to_byte; 7665 EMACS_INT from, from_byte, to, to_byte;
7666 Lisp_Object dst_object; 7666 Lisp_Object dst_object;
7667{ 7667{
7668 int count = specpdl_ptr - specpdl; 7668 int count = SPECPDL_INDEX ();
7669 unsigned char *destination; 7669 unsigned char *destination;
7670 EMACS_INT dst_bytes; 7670 EMACS_INT dst_bytes;
7671 EMACS_INT chars = to - from; 7671 EMACS_INT chars = to - from;
@@ -7856,7 +7856,7 @@ encode_coding_object (coding, src_object, from, from_byte, to, to_byte,
7856 EMACS_INT from, from_byte, to, to_byte; 7856 EMACS_INT from, from_byte, to, to_byte;
7857 Lisp_Object dst_object; 7857 Lisp_Object dst_object;
7858{ 7858{
7859 int count = specpdl_ptr - specpdl; 7859 int count = SPECPDL_INDEX ();
7860 EMACS_INT chars = to - from; 7860 EMACS_INT chars = to - from;
7861 EMACS_INT bytes = to_byte - from_byte; 7861 EMACS_INT bytes = to_byte - from_byte;
7862 Lisp_Object attrs; 7862 Lisp_Object attrs;
@@ -10854,7 +10854,7 @@ character.");
10854 for (i = 0; i < coding_category_max; i++) 10854 for (i = 0; i < coding_category_max; i++)
10855 Fset (AREF (Vcoding_category_table, i), Qno_conversion); 10855 Fset (AREF (Vcoding_category_table, i), Qno_conversion);
10856 } 10856 }
10857#if defined (MSDOS) || defined (WINDOWSNT) 10857#if defined (DOS_NT)
10858 system_eol_type = Qdos; 10858 system_eol_type = Qdos;
10859#else 10859#else
10860 system_eol_type = Qunix; 10860 system_eol_type = Qunix;