From 054b6800ab241a0b84a3838d5189a22927867d7c Mon Sep 17 00:00:00 2001
From: Jens Maurer <Jens.Maurer@gmx.net>
Date: Tue, 14 May 2024 08:23:07 +0200
Subject: [PATCH] [macros] Prefer page break above 'note' or 'example'
 introducers

Fixes ISO/CS comment (C++23 proof)
---
 source/macros.tex | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/macros.tex b/source/macros.tex
index bff719918e..a6199d0adf 100644
--- a/source/macros.tex
+++ b/source/macros.tex
@@ -318,7 +318,7 @@
 \newcommand{\newnoteenvironment}[3]{
 \newsubclausecounter{#1}
 \newenvironment{tail#1}
-{\par\small\stepcounter{#1}\noteintro{#2}}
+{\par\small\penalty -200\stepcounter{#1}\noteintro{#2}}
 {\noteoutro{#3}}
 \newenvironment{#1}
 {\begin{tail#1}}
@@ -570,7 +570,7 @@
 % surrounded by @ signs.
 \newcommand{\CodeBlockSetup}{%
 \lstset{escapechar=@, aboveskip=\parskip, belowskip=0pt,
-        midpenalty=500, endpenalty=-50,
+        beginpenalty=200, midpenalty=500, endpenalty=-50,
         emptylinepenalty=-250, semicolonpenalty=0,upquote=true}%
 \renewcommand{\tcode}[1]{\textup{\CodeStylex{##1}}}
 \renewcommand{\term}[1]{\textit{##1}}%