comparison src/charset.c @ 112434:9de5a68b57e1

Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h.

112433:7b649f6eac4f

  GCPRO1 (range);

  c = temp_charset_work->min_char;
  stop = (temp_charset_work->max_char < 0x20000
	  ? temp_charset_work->max_char : 0xFFFF);
	  
  while (1)
    {
      int index = GET_TEMP_CHARSET_WORK_ENCODER (c);

      if (index >= from_idx && index <= to_idx)

	    code = INDEX_TO_CODE_POINT (charset, code);
	}
      else
	{
	  code = GET_TEMP_CHARSET_WORK_ENCODER (c);
	  code = INDEX_TO_CODE_POINT (charset, code);	  
	}
    }
  else				/* method == CHARSET_METHOD_OFFSET */
    {
      int code_index = c - CHARSET_CODE_OFFSET (charset);

void
init_charset (void)
{
  Lisp_Object tempdir;
  tempdir = Fexpand_file_name (build_string ("charsets"), Vdata_directory);
  if (access ((char *) SDATA (tempdir), 0) < 0)
    {
      dir_warning ("Error: charsets directory (%s) does not exist.\n\
Emacs will not function correctly without the character map files.\n\
Please check your installation!\n",
                   tempdir);

			       MAX_5_BYTE_CHAR + 1);
  charset_unibyte = charset_iso_8859_1;
}

#endif /* emacs */

112434:9de5a68b57e1

  GCPRO1 (range);

  c = temp_charset_work->min_char;
  stop = (temp_charset_work->max_char < 0x20000
	  ? temp_charset_work->max_char : 0xFFFF);

  while (1)
    {
      int index = GET_TEMP_CHARSET_WORK_ENCODER (c);

      if (index >= from_idx && index <= to_idx)

	    code = INDEX_TO_CODE_POINT (charset, code);
	}
      else
	{
	  code = GET_TEMP_CHARSET_WORK_ENCODER (c);
	  code = INDEX_TO_CODE_POINT (charset, code);
	}
    }
  else				/* method == CHARSET_METHOD_OFFSET */
    {
      int code_index = c - CHARSET_CODE_OFFSET (charset);

void
init_charset (void)
{
  Lisp_Object tempdir;
  tempdir = Fexpand_file_name (build_string ("charsets"), Vdata_directory);
  if (access (SSDATA (tempdir), 0) < 0)
    {
      dir_warning ("Error: charsets directory (%s) does not exist.\n\
Emacs will not function correctly without the character map files.\n\
Please check your installation!\n",
                   tempdir);

			       MAX_5_BYTE_CHAR + 1);
  charset_unibyte = charset_iso_8859_1;
}

#endif /* emacs */