From 2edbf72391b961a4a475f12dbd23b599a4789f69 Mon Sep 17 00:00:00 2001
From: Christian Hammacher <BasicMaster>
Date: Fri, 30 Jun 2006 21:23:26 +0000
Subject: [PATCH] fixed bug where indenter unindented the entire code

---
 editor/studio/UnitCodeUtils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/editor/studio/UnitCodeUtils.pas b/editor/studio/UnitCodeUtils.pas
index 27b52148..2930db9e 100755
--- a/editor/studio/UnitCodeUtils.pas
+++ b/editor/studio/UnitCodeUtils.pas
@@ -155,7 +155,7 @@ begin
 
     for k := 1 to eIndent + eTempIndent do
       frmMain.sciEditor.Lines[i] := '	' + frmMain.sciEditor.Lines[i];
-    if eTempIndent <> 0 then
+    if eTempIndent > 0 then
       eTempIndent := eTempIndent -1;
 
     if (IsAtStart('if', eStr[i], True)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 3) then begin