* Fixed bug #27829

git-svn-id: trunk@30609 -

utils/fpdoc/fpdoc.pp

@@ -284,7 +284,7 @@ begin
   else if s = '--warn-no-node' then
     FCreator.Options.WarnNoNode := True
   else if s = '--show-private' then
-    FCreator.Options.ShowPrivate := False
+    FCreator.Options.ShowPrivate := True
   else if s = '--stop-on-parser-error' then
     FCreator.Options.StopOnParseError := True
   else if s = '--dont-trim' then