[6839] parsetexi update (command ignore space after)

[Gavin D. Smith]

Revision: 6839
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6839
Author:   gavin
Date:     2015-12-07 14:56:54 +0000 (Mon, 07 Dec 2015)
Log Message:
-----------
parsetexi update (command ignore space after)

Modified Paths:
--------------
    trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
    trunk/parsetexi/api.c
    trunk/parsetexi/separator.c

Modified: trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
===================================================================
--- trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-12-07 14:13:35 UTC (rev 
6838)
+++ trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-12-07 14:56:54 UTC (rev 
6839)
@@ -366,7 +366,7 @@
     if (address@hidden>{'contents'}}) {
       # not found
       #splice @{$text_root->{'contents'}}, 0, 0, @$before_setfilename;
-      $text_root->{'contents'} = $before_setfilename;
+      $text_root->{'contents'} = $before_setfilename->{'contents'};
     }
     else {
     unshift (@{$text_root->{'contents'}}, $before_setfilename)

Modified: trunk/parsetexi/api.c
===================================================================
--- trunk/parsetexi/api.c       2015-12-07 14:13:35 UTC (rev 6838)
+++ trunk/parsetexi/api.c       2015-12-07 14:56:54 UTC (rev 6839)
@@ -185,6 +185,7 @@
 
   if (e->parent //) // && e->parent_type != route_not_in_tree)
     && e->type != ET_preamble_text
+    && e->type != ET_empty_spaces_after_close_brace
     && e->type != ET_empty_spaces_before_argument) //FIXME :Set parent in
                                                    // perl code
     {

Modified: trunk/parsetexi/separator.c
===================================================================
--- trunk/parsetexi/separator.c 2015-12-07 14:13:35 UTC (rev 6838)
+++ trunk/parsetexi/separator.c 2015-12-07 14:56:54 UTC (rev 6839)
@@ -271,7 +271,19 @@
             current->parent->type = ET_command_as_argument;
         }
       //register_global_command ();
-      // ET_empty_spaces_after_close_brace
+
+      // 5190
+      if (current->parent->cmd == CM_anchor
+          || current->parent->cmd == CM_hyphenation
+          || current->parent->cmd == CM_caption
+          || current->parent->cmd == CM_shortcaption)
+        {
+          ELEMENT *e;
+          e = new_element (ET_empty_spaces_after_close_brace);
+          text_append (&e->text, "");
+          add_to_element_contents (current->parent->parent, e);
+        }
+
       current = current->parent->parent;
       if (close_preformatted_command(closed_command))
         current = begin_preformatted (current);