From e449c894ce9847d6ffc6594c24e386c2daf0026c Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Wed, 27 Sep 2023 15:51:16 +0200
Subject: [PATCH] Prepend title line by '*' if printed by 'listing r'. This
 allows skipping all pre-processing.

---
 src/frontend/inp.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 9c5f0f405..a48e89724 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -179,8 +179,11 @@ com_listing(wordlist *wl)
         } else {
             if (type != LS_DECK && type != LS_RUNNABLE)
                 fprintf(cp_out, "\t%s\n\n", ft_curckt->ci_name);
-            else if (type == LS_RUNNABLE)
+            else if (type == LS_RUNNABLE) {
                 fprintf(cp_out, "* expanded deck of %s\n", ft_curckt->ci_name);
+                fprintf(cp_out, "* %s\n", ft_curckt->ci_deck->line); /* title line with extra '*' */
+                ft_curckt->ci_deck = ft_curckt->ci_deck->nextcard; /* skip title */
+            }
             inp_list(cp_out,
                      expand ? ft_curckt->ci_deck : ft_curckt->ci_origdeck,
                      ft_curckt->ci_options, type);