From f76662a1967129dc6dd0ba6a026ffa41e2d1da7d Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Fri, 7 Jun 2013 18:48:30 -0400
Subject: [PATCH] orca/m private segments

---
 Preferences/ORCA:M Folding.tmPreferences | 2 +-
 Syntaxes/ORCA:M.tmLanguage               | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Preferences/ORCA:M Folding.tmPreferences b/Preferences/ORCA:M Folding.tmPreferences
index 45d2d44..22c705d 100644
--- a/Preferences/ORCA:M Folding.tmPreferences	
+++ b/Preferences/ORCA:M Folding.tmPreferences	
@@ -9,7 +9,7 @@
 	<key>settings</key>
 	<dict>
 		<key>foldingStartMarker</key>
-		<string>\b(?i:START|DATA|PRIVDATA)\b</string>
+		<string>\b(?i:START|PRIVATE|DATA|PRIVDATA)\b</string>
 		<key>foldingStopMarker</key>
 		<string>\b(?i:END)\b</string>
 	</dict>
diff --git a/Syntaxes/ORCA:M.tmLanguage b/Syntaxes/ORCA:M.tmLanguage
index 5cd63a7..d519b3b 100644
--- a/Syntaxes/ORCA:M.tmLanguage
+++ b/Syntaxes/ORCA:M.tmLanguage
@@ -62,7 +62,7 @@
 				</dict>
 			</dict>
 			<key>match</key>
-			<string>^([_~A-Za-z][_~A-Za-z0-9]*)\s+((?i)START|DATA|PRIVDATA)\b</string>
+			<string>^([_~A-Za-z][_~A-Za-z0-9]*)\s+((?i)START|PRIVATE|DATA|PRIVDATA)\b</string>
 			<key>name</key>
 			<string>meta.function</string>
 		</dict>