1170 |
|
|
1171 |
return syntax; |
return syntax; |
1172 |
} |
} |
|
|
|
|
|
|
|
static void |
|
|
describe_syntax (value, args) |
|
|
Lisp_Object value, args; |
|
|
{ |
|
|
Findent_to (make_number (16), make_number (1)); |
|
|
Finternal_describe_syntax_value (value); |
|
|
insert_string ("\n"); |
|
|
} |
|
|
|
|
|
|
|
|
static Lisp_Object |
|
|
describe_syntax_1 (vector) |
|
|
Lisp_Object vector; |
|
|
{ |
|
|
struct buffer *old = current_buffer; |
|
|
set_buffer_internal (XBUFFER (Vstandard_output)); |
|
|
describe_vector (vector, Qnil, Qnil, describe_syntax, |
|
|
0, Qnil, Qnil, NULL, 0); |
|
|
while (! NILP (XCHAR_TABLE (vector)->parent)) |
|
|
{ |
|
|
vector = XCHAR_TABLE (vector)->parent; |
|
|
insert_string ("\nThe parent syntax table is:"); |
|
|
describe_vector (vector, Qnil, Qnil, describe_syntax, |
|
|
0, Qnil, Qnil, NULL, 0); |
|
|
} |
|
|
|
|
|
call0 (intern ("help-mode")); |
|
|
set_buffer_internal (old); |
|
|
return Qnil; |
|
|
} |
|
|
|
|
|
DEFUN ("describe-syntax", Fdescribe_syntax, Sdescribe_syntax, 0, 0, "", |
|
|
doc: /* Describe the syntax specifications in the syntax table. |
|
|
The descriptions are inserted in a buffer, which is then displayed. */) |
|
|
() |
|
|
{ |
|
|
internal_with_output_to_temp_buffer |
|
|
("*Help*", describe_syntax_1, current_buffer->syntax_table); |
|
|
|
|
|
return Qnil; |
|
|
} |
|
1173 |
|
|
1174 |
int parse_sexp_ignore_comments; |
int parse_sexp_ignore_comments; |
1175 |
|
|
2995 |
defsubr (&Smatching_paren); |
defsubr (&Smatching_paren); |
2996 |
defsubr (&Sstring_to_syntax); |
defsubr (&Sstring_to_syntax); |
2997 |
defsubr (&Smodify_syntax_entry); |
defsubr (&Smodify_syntax_entry); |
|
defsubr (&Sdescribe_syntax); |
|
2998 |
defsubr (&Sinternal_describe_syntax_value); |
defsubr (&Sinternal_describe_syntax_value); |
2999 |
|
|
3000 |
defsubr (&Sforward_word); |
defsubr (&Sforward_word); |