From 64307ba907e438ce879407f40e48b0b2cda4efdf Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sun, 10 Sep 2023 13:44:18 +0200
Subject: [PATCH] Add a title line to 'listing r', so the resulting output may
 be re-loaded by the 'source' command.

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

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index c4d6844d5..9c5f0f405 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -179,6 +179,8 @@ 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)
+                fprintf(cp_out, "* expanded deck of %s\n", ft_curckt->ci_name);
             inp_list(cp_out,
                      expand ? ft_curckt->ci_deck : ft_curckt->ci_origdeck,
                      ft_curckt->ci_options, type);