1 |
|
/* -*-C-*- */ |
2 |
/* |
/* |
3 |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
4 |
|
|
30 |
@(defun standard_char_p (c) |
@(defun standard_char_p (c) |
31 |
int i; |
int i; |
32 |
@ |
@ |
33 |
check_type_character(&c); |
if (type_of(c)!=t_character) @(return Cnil) |
34 |
|
/* check_type_character(&c); */ |
35 |
if (char_font(c) != 0 || char_bits(c) != 0) |
if (char_font(c) != 0 || char_bits(c) != 0) |
36 |
@(return Cnil) |
@(return Cnil) |
37 |
i = char_code(c); |
i = char_code(c); |
54 |
|
|
55 |
@(defun string_char_p (c) |
@(defun string_char_p (c) |
56 |
@ |
@ |
57 |
check_type_character(&c); |
if (type_of(c)!=t_character) @(return Cnil) |
58 |
|
/* check_type_character(&c);*/ |
59 |
if (char_font(c) != 0 || char_bits(c) != 0) |
if (char_font(c) != 0 || char_bits(c) != 0) |
60 |
@(return Cnil) |
@(return Cnil) |
61 |
@(return Ct) |
@(return Ct) |