mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* casetab.c (check_case_table): Use CHECK_TYPE.

Browse Source
This commit is contained in:
Kim F. Storm 2006-07-12 13:15:03 +00:00
parent 4e374bf2f8
commit a5f07f6d92
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/casetab.c
View File

@ -1,5 +1,5 @@
/* GNU Emacs routines to deal with case tables.
Copyright (C) 1993, 1994, 2002, 2003, 2004,
Copyright (C) 1993, 1994, 2002, 2003, 2004,
2005, 2006 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@ -67,10 +67,7 @@ static Lisp_Object
check_case_table (obj)
Lisp_Object obj;
{
register Lisp_Object tem;
while (tem = Fcase_table_p (obj), NILP (tem))
obj = wrong_type_argument (Qcase_table_p, obj);
CHECK_TYPE (!NILP (Fcase_table_p (obj)), Qcase_table_p, obj);
return (obj);
}