/[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.151 by monnier, Mon Nov 19 22:46:47 2001 UTC revision 1.152 by monnier, Mon Nov 26 23:37:01 2001 UTC
# Line 1170  DEFUN ("internal-describe-syntax-value", Line 1170  DEFUN ("internal-describe-syntax-value",
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    
# Line 3038  See the info node `(elisp)Syntax Propert Line 2995  See the info node `(elisp)Syntax Propert
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);

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

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