1958 |
/* Handle a generic character. */ |
/* Handle a generic character. */ |
1959 |
Lisp_Object name; |
Lisp_Object name; |
1960 |
name = CHARSET_TABLE_INFO (charset, CHARSET_LONG_NAME_IDX); |
name = CHARSET_TABLE_INFO (charset, CHARSET_LONG_NAME_IDX); |
1961 |
CHECK_STRING (name, 0); |
CHECK_STRING (name); |
1962 |
return concat2 (build_string ("Character set "), name); |
return concat2 (build_string ("Character set "), name); |
1963 |
} |
} |
1964 |
else |
else |
2037 |
unsigned char str[6]; |
unsigned char str[6]; |
2038 |
int c; |
int c; |
2039 |
|
|
2040 |
CHECK_NUMBER (character, 0); |
CHECK_NUMBER (character); |
2041 |
|
|
2042 |
c = XINT (character); |
c = XINT (character); |
2043 |
if (!SINGLE_BYTE_CHAR_P (c)) |
if (!SINGLE_BYTE_CHAR_P (c)) |
2941 |
int count = specpdl_ptr - specpdl; |
int count = specpdl_ptr - specpdl; |
2942 |
|
|
2943 |
specbind (Qstandard_output, Fcurrent_buffer ()); |
specbind (Qstandard_output, Fcurrent_buffer ()); |
2944 |
CHECK_VECTOR_OR_CHAR_TABLE (vector, 0); |
CHECK_VECTOR_OR_CHAR_TABLE (vector); |
2945 |
describe_vector (vector, Qnil, describe_vector_princ, 0, |
describe_vector (vector, Qnil, describe_vector_princ, 0, |
2946 |
Qnil, Qnil, (int *)0, 0); |
Qnil, Qnil, (int *)0, 0); |
2947 |
|
|
3306 |
Lisp_Object regexp, predicate; |
Lisp_Object regexp, predicate; |
3307 |
{ |
{ |
3308 |
struct gcpro gcpro1, gcpro2; |
struct gcpro gcpro1, gcpro2; |
3309 |
CHECK_STRING (regexp, 0); |
CHECK_STRING (regexp); |
3310 |
apropos_predicate = predicate; |
apropos_predicate = predicate; |
3311 |
GCPRO2 (apropos_predicate, apropos_accumulate); |
GCPRO2 (apropos_predicate, apropos_accumulate); |
3312 |
apropos_accumulate = Qnil; |
apropos_accumulate = Qnil; |