From 06b7029aa8c06310135734c646ba795772f973bb Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 27 Jan 2010 19:24:22 +0000
Subject: 27638, based on Frank Terbeck, 27633: SOURCETRACE option

---
 Src/init.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Src/init.c')

diff --git a/Src/init.c b/Src/init.c
index 123e20e85..812cd8409 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -1126,6 +1126,11 @@ source(char *s)
     scriptname = s;
     scriptfilename = s;
 
+    if (isset(SOURCETRACE)) {
+	printprompt4();
+	fprintf(xtrerr ? xtrerr : stderr, "<sourcetrace>\n");
+    }
+
     /*
      * The special return behaviour of traps shouldn't
      * trigger in files sourced from traps; the return
-- 
cgit 1.4.1