texinfo/makeinfo cmds.c,1.5,1.6

[karl]

Update of /cvsroot/texinfo/texinfo/makeinfo
In directory sheep:/tmp/cvs-serv17540

Modified Files:
        cmds.c 
Log Message:
(cm_comma): new fn.
(command_table): use it for @comma.


Index: cmds.c
===================================================================
RCS file: /cvsroot/texinfo/texinfo/makeinfo/cmds.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** cmds.c      2003/12/19 15:48:32     1.5
--- cmds.c      2003/12/22 12:04:44     1.6
***************
*** 42,46 ****
  
  void insert_self (), insert_space (), cm_ignore_line (), cm_ignore_arg (),
!   cm_comment ();
  
  void
--- 42,46 ----
  
  void insert_self (), insert_space (), cm_ignore_line (), cm_ignore_arg (),
!   cm_comment (), cm_comma ();
  
  void
***************
*** 153,156 ****
--- 153,157 ----
    { "clear", cm_clear, NO_BRACE_ARGS },
    { "code", cm_code, BRACE_ARGS },
+   { "comma", cm_comma, BRACE_ARGS },
    { "command", cm_code, BRACE_ARGS },
    { "comment", cm_comment, NO_BRACE_ARGS },
***************
*** 427,430 ****
--- 428,442 ----
      }
  }
+ 
+ /* Insert a comma.  Useful when a literal , would break our parsing of
+    multiple arguments.  */
+ void
+ cm_comma (arg)
+     int arg;
+ {
+   if (arg == START)
+     add_char (',');
+ }
+ 
  
  /* Force a line break in the output. */