comparison src/syntax.c @ 9333:925795f1a594

(Fmodify_syntax_entry): Don't use XFASTINT as an lvalue.

9332:1ff5359ac932

  (c, newentry, syntax_table)
     Lisp_Object c, newentry, syntax_table;
{
  register unsigned char *p, match;
  register enum syntaxcode code;
  Lisp_Object val;

  CHECK_NUMBER (c, 0);
  CHECK_STRING (newentry, 1);
  if (NILP (syntax_table))
    syntax_table = current_buffer->syntax_table;

  match = *p;
  if (match) p++;
  if (match == ' ') match = 0;

  XSETFASTINT (val, (match << 8) + (int) code);
  while (*p)
    switch (*p++)
      {
      case '1':
	XFASTINT (val) |= 1 << 16;
	break;

      case '2':
	XFASTINT (val) |= 1 << 17;
	break;

      case '3':
	XFASTINT (val) |= 1 << 18;
	break;

      case '4':
	XFASTINT (val) |= 1 << 19;
	break;

      case 'p':
	XFASTINT (val) |= 1 << 20;
	break;

      case 'b':
	XFASTINT (val) |= 1 << 21;
	break;
      }
	
  XVECTOR (syntax_table)->contents[0xFF & XINT (c)] = val;

  return Qnil;
}

/* Dump syntax table to buffer in human-readable format */

9333:925795f1a594

  (c, newentry, syntax_table)
     Lisp_Object c, newentry, syntax_table;
{
  register unsigned char *p, match;
  register enum syntaxcode code;
  int val;

  CHECK_NUMBER (c, 0);
  CHECK_STRING (newentry, 1);
  if (NILP (syntax_table))
    syntax_table = current_buffer->syntax_table;

  match = *p;
  if (match) p++;
  if (match == ' ') match = 0;

  val = (match << 8) + (int) code;
  while (*p)
    switch (*p++)
      {
      case '1':
	val |= 1 << 16;
	break;

      case '2':
	val |= 1 << 17;
	break;

      case '3':
	val |= 1 << 18;
	break;

      case '4':
	val |= 1 << 19;
	break;

      case 'p':
	val |= 1 << 20;
	break;

      case 'b':
	val |= 1 << 21;
	break;
      }
	
  XSETFASTINT (XVECTOR (syntax_table)->contents[0xFF & XINT (c)], val);

  return Qnil;
}

/* Dump syntax table to buffer in human-readable format */