diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:15:18 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:15:18 +0000 |
| commit | 886742699bbd96ed2b93e764aec84f2dcb0f441b (patch) | |
| tree | baa07fa21ff3448b9511f3f53eb33cb559435028 /src/category.c | |
| parent | a5f07f6d92ca594888d553f7384ff408d1a093b7 (diff) | |
| download | emacs-886742699bbd96ed2b93e764aec84f2dcb0f441b.tar.gz | |
(check_category_table): Use CHECK_TYPE.
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/category.c b/src/category.c index 929cd7ea1c0..6835d00d824 100644 --- a/src/category.c +++ b/src/category.c @@ -164,11 +164,9 @@ Lisp_Object check_category_table (table) Lisp_Object table; { - register Lisp_Object tem; if (NILP (table)) return current_buffer->category_table; - while (tem = Fcategory_table_p (table), NILP (tem)) - table = wrong_type_argument (Qcategory_table_p, table); + CHECK_TYPE (!NILP (Fcategory_table_p (table)), Qcategory_table_p, table); return table; } |