c1f52b1
diff -up texinfo-6.5/tp/Texinfo/Parser.pm.orig texinfo-6.5/tp/Texinfo/Parser.pm
c1f52b1
--- texinfo-6.5/tp/Texinfo/Parser.pm.orig	2018-06-12 13:40:29.356030136 +0200
c1f52b1
+++ texinfo-6.5/tp/Texinfo/Parser.pm	2018-06-12 13:41:28.357725639 +0200
c1f52b1
@@ -5478,11 +5478,11 @@ sub _parse_special_misc_command($$$$)
c1f52b1
     }
c1f52b1
   } elsif ($command eq 'clickstyle') {
c1f52b1
     # REMACRO
c1f52b1
-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
c1f52b1
+    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*/) {
c1f52b1
       $args = ['@'.$1];
c1f52b1
       $self->{'clickstyle'} = $1;
c1f52b1
       $remaining = $line;
c1f52b1
-      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
c1f52b1
+      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
c1f52b1
       $has_comment = 1 if (defined($4));
c1f52b1
     } else {
c1f52b1
       $self->line_error (sprintf($self->__(