Mercurial > emacs

comparison src/casetab.c @ 71828:10b94d33e0d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* casetab.c (check_case_table): Use CHECK_TYPE.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:15:03 +0000
parents 3bd95f4f2941
children b18e79090a7a 8a8e69664178
comparison
equal deleted inserted replaced
71827:5e4428007299 71828:10b94d33e0d8
1 /* GNU Emacs routines to deal with case tables. 1 /* GNU Emacs routines to deal with case tables.
2 Copyright (C) 1993, 1994, 2002, 2003, 2004, 2 Copyright (C) 1993, 1994, 2002, 2003, 2004,
3 2005, 2006 Free Software Foundation, Inc. 3 2005, 2006 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
65 65
66 static Lisp_Object 66 static Lisp_Object
67 check_case_table (obj) 67 check_case_table (obj)
68 Lisp_Object obj; 68 Lisp_Object obj;
69 { 69 {
70 register Lisp_Object tem; 70 CHECK_TYPE (!NILP (Fcase_table_p (obj)), Qcase_table_p, obj);
71
72 while (tem = Fcase_table_p (obj), NILP (tem))
73 obj = wrong_type_argument (Qcase_table_p, obj);
74 return (obj); 71 return (obj);
75 } 72 }
76 73
77 DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, 74 DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0,
78 doc: /* Return the case table of the current buffer. */) 75 doc: /* Return the case table of the current buffer. */)