diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 16 | ||||
| -rw-r--r-- | src/syntax.c | 11 |
2 files changed, 22 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 899ab49923a..424b5945a27 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,21 @@ | |||
| 1 | 2001-11-19 Stefan Monnier <monnier@cs.yale.edu> | 1 | 2001-11-19 Stefan Monnier <monnier@cs.yale.edu> |
| 2 | 2 | ||
| 3 | * syntax.c (describe_syntax): Add dummy arg. | ||
| 4 | (describe_syntax_1): Update call to describe_vector. | ||
| 5 | |||
| 6 | * category.c (describe_category): Add dummy arg. | ||
| 7 | (describe_category_1): Update call to describe_vector. | ||
| 8 | |||
| 9 | * keymap.c (Fdescribe_vector): Add `describer' parameter. | ||
| 10 | (describe_command, describe_translation): Add dummy second param. | ||
| 11 | (describe_map): Call elt_describer with two arguments. | ||
| 12 | (describe_vector_princ): Add `fun' parameter. | ||
| 13 | Call it instead of the hardcoded `princ'. | ||
| 14 | (describe_vector): Add arg `args'. | ||
| 15 | Pass it as a new second argument to elt_describer. | ||
| 16 | |||
| 17 | * keymap.h (describe_vector): Update prototype. | ||
| 18 | |||
| 3 | * frame.c: Don't include keymap.h any more. | 19 | * frame.c: Don't include keymap.h any more. |
| 4 | (keys_of_frame): Remove. | 20 | (keys_of_frame): Remove. |
| 5 | 21 | ||
diff --git a/src/syntax.c b/src/syntax.c index 96ff69084f0..d82c88dcf18 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -1173,8 +1173,8 @@ DEFUN ("internal-describe-syntax-value", Finternal_describe_syntax_value, | |||
| 1173 | 1173 | ||
| 1174 | 1174 | ||
| 1175 | static void | 1175 | static void |
| 1176 | describe_syntax (value) | 1176 | describe_syntax (value, args) |
| 1177 | Lisp_Object value; | 1177 | Lisp_Object value, args; |
| 1178 | { | 1178 | { |
| 1179 | Findent_to (make_number (16), make_number (1)); | 1179 | Findent_to (make_number (16), make_number (1)); |
| 1180 | Finternal_describe_syntax_value (value); | 1180 | Finternal_describe_syntax_value (value); |
| @@ -1188,13 +1188,14 @@ describe_syntax_1 (vector) | |||
| 1188 | { | 1188 | { |
| 1189 | struct buffer *old = current_buffer; | 1189 | struct buffer *old = current_buffer; |
| 1190 | set_buffer_internal (XBUFFER (Vstandard_output)); | 1190 | set_buffer_internal (XBUFFER (Vstandard_output)); |
| 1191 | describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil, (int *) 0, 0); | 1191 | describe_vector (vector, Qnil, Qnil, describe_syntax, |
| 1192 | 0, Qnil, Qnil, NULL, 0); | ||
| 1192 | while (! NILP (XCHAR_TABLE (vector)->parent)) | 1193 | while (! NILP (XCHAR_TABLE (vector)->parent)) |
| 1193 | { | 1194 | { |
| 1194 | vector = XCHAR_TABLE (vector)->parent; | 1195 | vector = XCHAR_TABLE (vector)->parent; |
| 1195 | insert_string ("\nThe parent syntax table is:"); | 1196 | insert_string ("\nThe parent syntax table is:"); |
| 1196 | describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil, | 1197 | describe_vector (vector, Qnil, Qnil, describe_syntax, |
| 1197 | (int *) 0, 0); | 1198 | 0, Qnil, Qnil, NULL, 0); |
| 1198 | } | 1199 | } |
| 1199 | 1200 | ||
| 1200 | call0 (intern ("help-mode")); | 1201 | call0 (intern ("help-mode")); |