diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-10 23:28:35 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-10 23:28:35 -0700 |
| commit | d85b608f9c151c6f6d07e12392962e02c6ce528b (patch) | |
| tree | 77944a07ab2f73bce42337107e1a3a3ced63be8e /src/category.c | |
| parent | 31cd66f38b534c4ca882a1eb8ec51012c431687d (diff) | |
| download | emacs-d85b608f9c151c6f6d07e12392962e02c6ce528b.tar.gz | |
* category.c (SET_CATEGORY_SET, set_category_set): Move here.
* category.h: ... from here.
* category.c (check_category_table, set_category_set): Now static.
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/category.c b/src/category.c index 5dcc4894f0e..356801a179c 100644 --- a/src/category.c +++ b/src/category.c @@ -53,6 +53,11 @@ static Lisp_Object Qcategory_table, Qcategoryp, Qcategorysetp, Qcategory_table_p /* Temporary internal variable used in macro CHAR_HAS_CATEGORY. */ Lisp_Object _temp_category_set; +/* Make CATEGORY_SET includes (if VAL is t) or excludes (if VAL is + nil) CATEGORY. */ +#define SET_CATEGORY_SET(category_set, category, val) \ + set_category_set (category_set, category, val) +static void set_category_set (Lisp_Object, Lisp_Object, Lisp_Object); /* Category set staff. */ @@ -111,7 +116,7 @@ those categories. */) /* Category staff. */ -Lisp_Object check_category_table (Lisp_Object table); +static Lisp_Object check_category_table (Lisp_Object table); DEFUN ("define-category", Fdefine_category, Sdefine_category, 2, 3, 0, doc: /* Define CATEGORY as a category which is described by DOCSTRING. @@ -185,7 +190,7 @@ DEFUN ("category-table-p", Fcategory_table_p, Scategory_table_p, 1, 1, 0, valid, return TABLE itself, but if not valid, signal an error of wrong-type-argument. */ -Lisp_Object +static Lisp_Object check_category_table (Lisp_Object table) { if (NILP (table)) @@ -325,7 +330,7 @@ The return value is a string containing those same categories. */) return build_string (str); } -void +static void set_category_set (Lisp_Object category_set, Lisp_Object category, Lisp_Object val) { do { |