Fork sets batch-mode in child only if there is a session.

2000-07-28 09:11:09 +00:00 · 2000-07-28 09:11:09 +00:00 · 04fc3b8b37
parent e18688fc14
commit 04fc3b8b37
1 changed files with 3 additions and 1 deletions
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@ -866,7 +866,9 @@
 	   ;; Child
 	   (lambda ()	; Do all this outside the WITH-INTERRUPTS.
 ;	     (set! reaped-procs '())
-	     (if clear-interactive?
+
+	     ;;; There is no session if parent was started in batch-mode
+	     (if (and (session-started?) clear-interactive?)
 		 (set-batch-mode?! #t))	; Children are non-interactive.
 	     (and (pair? maybe-thunk)
 		  (call-terminally (car maybe-thunk))))