do_cmd_versionchanged():

freddrake · freddrake · commit 52e7684af1fb · 2000-05-02T17:37:42.000Z
Added support for optional parameter explaining the change
        that was made in the specified version.
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
@@ -281,8 +281,13 @@ sub do_cmd_versionadded{
 sub do_cmd_versionchanged{
     # one parameter:  \versionchanged{version}
     local($_) = @_;
+    my $explanation = next_optional_argument();
     my $release = next_argument();
-    return "\nChanged in version $release.\n" . $_;
+    my $text = "\nChanged in version $release.\n";
+    if ($release) {
+        $text = "\nChanged in version $release:\n$explanation.\n";
+    }
+    return $text . $_;
 }
 
 #

Original file line number	Diff line number	Diff line change
`@@ -281,8 +281,13 @@ sub do_cmd_versionadded{`
`281`	`281`	`sub do_cmd_versionchanged{`
`282`	`282`	`# one parameter: \versionchanged{version}`
`283`	`283`	`local($_) = @_;`
	`284`	`+ my $explanation = next_optional_argument();`
`284`	`285`	`my $release = next_argument();`
`285`		`- return "\nChanged in version $release.\n" . $_;`
	`286`	`+ my $text = "\nChanged in version $release.\n";`
	`287`	`+ if ($release) {`
	`288`	`+ $text = "\nChanged in version $release:\n$explanation.\n";`
	`289`	`+ }`
	`290`	`+ return $text . $_;`
`286`	`291`	`}`
`287`	`292`
`288`	`293`	`#`