Commit a395ef6a authored by Stefan Monnier's avatar Stefan Monnier

(describe_syntax): Add dummy arg.

(describe_syntax_1): Update call to describe_vector.
parent 9fd59de7
2001-11-19 Stefan Monnier <monnier@cs.yale.edu> 2001-11-19 Stefan Monnier <monnier@cs.yale.edu>
* syntax.c (describe_syntax): Add dummy arg.
(describe_syntax_1): Update call to describe_vector.
* category.c (describe_category): Add dummy arg.
(describe_category_1): Update call to describe_vector.
* keymap.c (Fdescribe_vector): Add `describer' parameter.
(describe_command, describe_translation): Add dummy second param.
(describe_map): Call elt_describer with two arguments.
(describe_vector_princ): Add `fun' parameter.
Call it instead of the hardcoded `princ'.
(describe_vector): Add arg `args'.
Pass it as a new second argument to elt_describer.
* keymap.h (describe_vector): Update prototype.
* frame.c: Don't include keymap.h any more. * frame.c: Don't include keymap.h any more.
(keys_of_frame): Remove. (keys_of_frame): Remove.
......
...@@ -1173,8 +1173,8 @@ DEFUN ("internal-describe-syntax-value", Finternal_describe_syntax_value, ...@@ -1173,8 +1173,8 @@ DEFUN ("internal-describe-syntax-value", Finternal_describe_syntax_value,
static void static void
describe_syntax (value) describe_syntax (value, args)
Lisp_Object value; Lisp_Object value, args;
{ {
Findent_to (make_number (16), make_number (1)); Findent_to (make_number (16), make_number (1));
Finternal_describe_syntax_value (value); Finternal_describe_syntax_value (value);
...@@ -1188,13 +1188,14 @@ describe_syntax_1 (vector) ...@@ -1188,13 +1188,14 @@ describe_syntax_1 (vector)
{ {
struct buffer *old = current_buffer; struct buffer *old = current_buffer;
set_buffer_internal (XBUFFER (Vstandard_output)); set_buffer_internal (XBUFFER (Vstandard_output));
describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil, (int *) 0, 0); describe_vector (vector, Qnil, Qnil, describe_syntax,
0, Qnil, Qnil, NULL, 0);
while (! NILP (XCHAR_TABLE (vector)->parent)) while (! NILP (XCHAR_TABLE (vector)->parent))
{ {
vector = XCHAR_TABLE (vector)->parent; vector = XCHAR_TABLE (vector)->parent;
insert_string ("\nThe parent syntax table is:"); insert_string ("\nThe parent syntax table is:");
describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil, describe_vector (vector, Qnil, Qnil, describe_syntax,
(int *) 0, 0); 0, Qnil, Qnil, NULL, 0);
} }
call0 (intern ("help-mode")); call0 (intern ("help-mode"));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment