[glibmm] Correctly quote the extracted comment for M4

[Daniel Elstner <daniel src gnome org>]

commit 6c4bb98918c39b9ca2d0cf501b66536a9d560b60
Author: Daniel Elstner <daniel kitta gmail com>
Date:   Fri Sep 11 03:26:27 2009 +0200

    Correctly quote the extracted comment for M4
    
    * tools/pm/WrapParser.pm (extract_preceding_documentation): Add M4
    quotes around the extracted comment, since it may contain sequences
    of end-quote + macro + start-quote.

 ChangeLog              |    8 ++++++++
 tools/pm/WrapParser.pm |    4 ++--
 2 files changed, 10 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index d1e0aa2..983e9b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2009-09-11  Daniel Elstner  <danielk openismus com>
 
+	Correctly quote the extracted comment for M4
+
+	* tools/pm/WrapParser.pm (extract_preceding_documentation): Add M4
+	quotes around the extracted comment, since it may contain sequences
+	of end-quote + macro + start-quote.
+
+2009-09-11  Daniel Elstner  <danielk openismus com>
+
 	Slightly clean up gross Perl code in gmmproc.in
 
 	* tools/gmmproc.in: Try not to abuse Perl too much, and get rid of
diff --git a/tools/pm/WrapParser.pm b/tools/pm/WrapParser.pm
index cebb294..05f82e1 100644
--- a/tools/pm/WrapParser.pm
+++ b/tools/pm/WrapParser.pm
@@ -821,8 +821,8 @@ sub extract_preceding_documentation ($)
 
     if (m#\A/\s*\*(?:\*`|`!)(.+)'\*/\s*\z#s or m#\A\s*//`[/!](.+)'\s*\z#s)
     {
-      $comment = $1;
-      $comment =~ s/\s+$//;
+      $comment = '`' . $1;
+      $comment =~ s/\s*$/'/;
     }
     else
     {