mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-15 15:50:57 -08:00
Code Issues Projects Releases Wiki Activity

Remove `emacs' conditional. Doc fixes.

Browse source 
(map_char_table_for_charset): Declare.
This commit is contained in:
Dave Love 2002-07-30 11:33:15 +00:00
parent 68978cf02e
commit 64165ae2a8
1 changed files with 11 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/charset.c
View file

@ -23,16 +23,11 @@ along with GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#ifdef emacs
#include <config.h>
#endif
#include <stdio.h>
#include <unistd.h>
#include <ctype.h>
#ifdef emacs
#include <sys/types.h>
#include "lisp.h"
#include "character.h"
@ -41,13 +36,6 @@ Boston, MA 02111-1307, USA. */
#include "disptab.h"
#include "buffer.h"
#else /* not emacs */
#include "mulelib.h"
#endif /* emacs */
/*** GENERAL NOTES on CODED CHARACTER SETS (CHARSETS) ***
A coded character set ("charset" hereafter) is a meaningful
@ -108,7 +96,7 @@ int charset_primary;
Lisp_Object Vcharset_ordered_list;
/* Incremented everytime we change Vcharset_ordered_list. This is
unsigned short so that it fits in Lisp_Int and never match with
unsigned short so that it fits in Lisp_Int and never matches
-1. */
unsigned short charset_ordered_list_tick;
@ -128,6 +116,13 @@ Lisp_Object Vcharset_map_directory;
Lisp_Object Vchar_unified_charset_table;
/* Defined in chartab.c */
extern void
map_char_table_for_charset P_ ((void (*c_function) (Lisp_Object, Lisp_Object),
Lisp_Object function, Lisp_Object table,
Lisp_Object arg, struct charset *charset,
unsigned from, unsigned to));
#define CODE_POINT_TO_INDEX(charset, code) \
((charset)->code_linear_p \
? (code) - (charset)->min_code \
@ -1140,8 +1135,8 @@ DEFUN ("unify-charset", Funify_charset, Sunify_charset, 1, 3, 0,
This means reading the relevant file and installing the table defined
by CHARSET's `:unify-map' property.
Optional second arg UNIFY-MAP a file name string or vector that has
the same meaning of the `:unify-map' attribute of the function
Optional second arg UNIFY-MAP is a file name string or a vector. It has
the same meaning as the `:unify-map' attribute in the function
`define-charset' (which see).
Optional third argument DEUNIFY, if non-nil, means to de-unify CHARSET. */)
@ -1281,6 +1276,7 @@ string_xstring_p (string)
{
int c = STRING_CHAR_ADVANCE (p);
/* Fixme: comparison of unsigned expression < 0 is always false */
if (ENCODE_CHAR (charset, c) < 0)
return 2;
}