71 |
while (tem = Fcase_table_p (obj), NILP (tem)) |
while (tem = Fcase_table_p (obj), NILP (tem)) |
72 |
obj = wrong_type_argument (Qcase_table_p, obj); |
obj = wrong_type_argument (Qcase_table_p, obj); |
73 |
return (obj); |
return (obj); |
74 |
} |
} |
75 |
|
|
76 |
DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, |
DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, |
77 |
doc: /* Return the case table of the current buffer. */) |
doc: /* Return the case table of the current buffer. */) |