Changes to m4/modules/m4.c,v

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Changes by:     Eric Blake <ericb>      07/05/31 13:26:40

Index: modules/m4.c
===================================================================
RCS file: /sources/m4/m4/modules/m4.c,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- modules/m4.c        24 May 2007 20:13:44 -0000      1.109
+++ modules/m4.c        31 May 2007 13:26:39 -0000      1.110
@@ -70,7 +70,7 @@
   BUILTIN (decr,       false,  true,   true,   1,      1  )    \
   BUILTIN (define,     true,   true,   false,  1,      2  )    \
   BUILTIN (defn,       false,  true,   false,  1,      -1 )    \
-  BUILTIN (divert,     false,  false,  false,  0,      1  )    \
+  BUILTIN (divert,     false,  false,  false,  0,      2  )    \
   BUILTIN (divnum,     false,  false,  false,  0,      0  )    \
   BUILTIN (dnl,                false,  false,  false,  0,      0  )    \
   BUILTIN (dumpdef,    false,  false,  false,  0,      -1 )    \
@@ -578,11 +578,16 @@
 M4BUILTIN_HANDLER (divert)
 {
   int i = 0;
+  const char *text;
 
   if (argc >= 2 && !m4_numeric_arg (context, argc, argv, 1, &i))
     return;
 
   m4_make_diversion (context, i);
+
+  text = M4ARG (2);
+  m4_shipout_text (context, NULL, text, strlen (text),
+                  m4_get_current_line (context));
 }
 
 /* Expand to the current diversion number.  */