From 4827c1a6cad49a2d4ce3772623758f14c1932e66 Mon Sep 17 00:00:00 2001
From: Marije Baalman <nescivi@users.sourceforge.net>
Date: Thu, 12 Mar 2009 17:28:36 +0000
Subject: [PATCH] fix to ScelDocument for current, in case there is no current
 document, as is the case when evaluating code from the minibuffer

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@8916 a380766d-ff14-0410-b294-a243070f3f08
---
 sc/ScelDocument.sc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/sc/ScelDocument.sc b/sc/ScelDocument.sc
index 9fe8f38..737e87b 100644
--- a/sc/ScelDocument.sc
+++ b/sc/ScelDocument.sc
@@ -327,7 +327,12 @@ ScelDocument : Document{
 	}
 	
 	*current {
-		^EmacsDocument.current.sceld;
+		var cur = EmacsDocument.current;
+		if ( cur.isNil ){
+			^cur;
+		}{
+			^cur.sceld;
+		}
 	}	
 
 	*prGetIndexOfListener{