From a27f2138f69dde63cd5257c0d9da15072c679770 Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Thu, 21 May 2009 23:12:56 +0000
Subject: Feature Request #2794989 LexLisp: Treat [] and {} as balanced
 operators from Eric Kidd.

---
 src/LexLisp.cxx | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/LexLisp.cxx b/src/LexLisp.cxx
index 8784e388a..e1d06cbac 100644
--- a/src/LexLisp.cxx
+++ b/src/LexLisp.cxx
@@ -32,7 +32,7 @@ using namespace Scintilla;
 static inline bool isLispoperator(char ch) {
 	if (isascii(ch) && isalnum(ch))
 		return false;
-	if (ch == '\'' || ch == '`' || ch == '(' || ch == ')' )
+	if (ch == '\'' || ch == '`' || ch == '(' || ch == ')' || ch == '[' || ch == ']' || ch == '{' || ch == '}')
 		return true;
 	return false;
 }
@@ -246,9 +246,9 @@ static void FoldLispDoc(unsigned int startPos, int length, int /* initStyle */,
 		styleNext = styler.StyleAt(i + 1);
 		bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n');
 		if (style == SCE_LISP_OPERATOR) {
-			if (ch == '(') {
+			if (ch == '(' || ch == '[' || ch == '{') {
 				levelCurrent++;
-			} else if (ch == ')') {
+			} else if (ch == ')' || ch == ']' || ch == '}') {
 				levelCurrent--;
 			}
 		}
-- 
cgit v1.2.3