/[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.233 by fx, Thu Nov 29 12:54:12 2001 UTC revision 1.234 by pj, Sun Dec 9 00:56:24 2001 UTC
# Line 3576  setup_coding_system (coding_system, codi Line 3576  setup_coding_system (coding_system, codi
3576              = CODING_SPEC_ISO_NO_REQUESTED_DESIGNATION;              = CODING_SPEC_ISO_NO_REQUESTED_DESIGNATION;
3577          for (i = 0; i < 4; i++)          for (i = 0; i < 4; i++)
3578            {            {
3579              if (INTEGERP (flags[i])              if ((INTEGERP (flags[i])
3580                  && (charset = XINT (flags[i]), CHARSET_VALID_P (charset))                   && (charset = XINT (flags[i]), CHARSET_VALID_P (charset)))
3581                  || (charset = get_charset_id (flags[i])) >= 0)                  || (charset = get_charset_id (flags[i])) >= 0)
3582                {                {
3583                  CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = charset;                  CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = charset;
# Line 3595  setup_coding_system (coding_system, codi Line 3595  setup_coding_system (coding_system, codi
3595                  tail = flags[i];                  tail = flags[i];
3596    
3597                  coding->flags |= CODING_FLAG_ISO_DESIGNATION;                  coding->flags |= CODING_FLAG_ISO_DESIGNATION;
3598                  if (INTEGERP (XCAR (tail))                  if ((INTEGERP (XCAR (tail))
3599                      && (charset = XINT (XCAR (tail)),                       && (charset = XINT (XCAR (tail)),
3600                          CHARSET_VALID_P (charset))                           CHARSET_VALID_P (charset)))
3601                      || (charset = get_charset_id (XCAR (tail))) >= 0)                      || (charset = get_charset_id (XCAR (tail))) >= 0)
3602                    {                    {
3603                      CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = charset;                      CODING_SPEC_ISO_INITIAL_DESIGNATION (coding, i) = charset;
# Line 3608  setup_coding_system (coding_system, codi Line 3608  setup_coding_system (coding_system, codi
3608                  tail = XCDR (tail);                  tail = XCDR (tail);
3609                  while (CONSP (tail))                  while (CONSP (tail))
3610                    {                    {
3611                      if (INTEGERP (XCAR (tail))                      if ((INTEGERP (XCAR (tail))
3612                          && (charset = XINT (XCAR (tail)),                           && (charset = XINT (XCAR (tail)),
3613                              CHARSET_VALID_P (charset))                               CHARSET_VALID_P (charset)))
3614                          || (charset = get_charset_id (XCAR (tail))) >= 0)                          || (charset = get_charset_id (XCAR (tail))) >= 0)
3615                        CODING_SPEC_ISO_REQUESTED_DESIGNATION (coding, charset)                        CODING_SPEC_ISO_REQUESTED_DESIGNATION (coding, charset)
3616                          = i;                          = i;
# Line 5047  shrink_encoding_region (beg, end, coding Line 5047  shrink_encoding_region (beg, end, coding
5047    if (coding->type == coding_type_ccl    if (coding->type == coding_type_ccl
5048        || coding->eol_type == CODING_EOL_CRLF        || coding->eol_type == CODING_EOL_CRLF
5049        || coding->eol_type == CODING_EOL_CR        || coding->eol_type == CODING_EOL_CR
5050        || coding->cmp_data && coding->cmp_data->used > 0)        || (coding->cmp_data && coding->cmp_data->used > 0))
5051      {      {
5052        /* We can't skip any data.  */        /* We can't skip any data.  */
5053        return;        return;
# Line 6606  Return the corresponding character.  */) Line 6606  Return the corresponding character.  */)
6606      }      }
6607    else    else
6608      {      {
6609        if ((s1 < 0x80 || s1 > 0x9F && s1 < 0xE0 || s1 > 0xEF)        if ((s1 < 0x80 || (s1 > 0x9F && s1 < 0xE0) || s1 > 0xEF)
6610            || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC))            || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC))
6611          error ("Invalid Shift JIS code: %x", XFASTINT (code));          error ("Invalid Shift JIS code: %x", XFASTINT (code));
6612        DECODE_SJIS (s1, s2, c1, c2);        DECODE_SJIS (s1, s2, c1, c2);

Legend:
Removed from v.1.233  
changed lines
  Added in v.1.234

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