/[emacs]/emacs/src/syntax.c
ViewVC logotype

Diff of /emacs/src/syntax.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.150 by monnier, Fri Nov 2 23:27:02 2001 UTC revision 1.151 by monnier, Mon Nov 19 22:46:47 2001 UTC
# Line 1173  DEFUN ("internal-describe-syntax-value", Line 1173  DEFUN ("internal-describe-syntax-value",
1173    
1174    
1175  static void  static void
1176  describe_syntax (value)  describe_syntax (value, args)
1177      Lisp_Object value;      Lisp_Object value, args;
1178  {  {
1179    Findent_to (make_number (16), make_number (1));    Findent_to (make_number (16), make_number (1));
1180    Finternal_describe_syntax_value (value);    Finternal_describe_syntax_value (value);
# Line 1188  describe_syntax_1 (vector) Line 1188  describe_syntax_1 (vector)
1188  {  {
1189    struct buffer *old = current_buffer;    struct buffer *old = current_buffer;
1190    set_buffer_internal (XBUFFER (Vstandard_output));    set_buffer_internal (XBUFFER (Vstandard_output));
1191    describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil, (int *) 0, 0);    describe_vector (vector, Qnil, Qnil, describe_syntax,
1192                       0, Qnil, Qnil, NULL, 0);
1193    while (! NILP (XCHAR_TABLE (vector)->parent))    while (! NILP (XCHAR_TABLE (vector)->parent))
1194      {      {
1195        vector = XCHAR_TABLE (vector)->parent;        vector = XCHAR_TABLE (vector)->parent;
1196        insert_string ("\nThe parent syntax table is:");        insert_string ("\nThe parent syntax table is:");
1197        describe_vector (vector, Qnil, describe_syntax, 0, Qnil, Qnil,        describe_vector (vector, Qnil, Qnil, describe_syntax,
1198                         (int *) 0, 0);                         0, Qnil, Qnil, NULL, 0);
1199      }      }
1200                    
1201    call0 (intern ("help-mode"));    call0 (intern ("help-mode"));

Legend:
Removed from v.1.150  
changed lines
  Added in v.1.151

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26