[styles] Do not add a page break opportunity before codeblocks

Author: jensmaurer

source/macros.tex

@@ -578,7 +578,7 @@
 % surrounded by @ signs.
 \newcommand{\CodeBlockSetup}{%
 \lstset{escapechar=@, aboveskip=\parskip, belowskip=0pt,
-        beginpenalty=200, midpenalty=500, endpenalty=-50,
+        midpenalty=500, endpenalty=-50,
         emptylinepenalty=-250, semicolonpenalty=0,upquote=true}%
 \renewcommand{\tcode}[1]{\textup{\CodeStylex{##1}}}
 \renewcommand{\term}[1]{\textit{##1}}%

source/styles.tex

@@ -175,15 +175,17 @@
     \else
         \lst@ifdisplaystyle
             \lst@EveryDisplay
-            % make penalty configurable
-            \par\lst@beginpenalty
+            \par\lst@beginpenalty            % penalty is now configurable
             \vspace\lst@aboveskip
         \fi
     \fi
     \normalbaselines
     \abovecaptionskip\lst@abovecaption\relax
     \belowcaptionskip\lst@belowcaption\relax
-    \lst@MakeCaption t%
+    \let\savedallowbreak\allowbreak
+    \let\allowbreak\relax
+    \lst@MakeCaption t%    % neuter \allowbreak before non-existing top caption
+    \let\allowbreak\savedallowbreak
     \lsthk@PreInit \lsthk@Init
     \lst@ifdisplaystyle
         \global\let\lst@ltxlabel\@empty