From 776f4744835f341d6d80993d8a8b32d5dc698d34 Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 19 Nov 2009 23:54:52 +0000 Subject: [PATCH] SynEdit: Fix smart unindent obeys read-only git-svn-id: trunk@22686 - --- components/synedit/synbeautifier.pas | 1 + 1 file changed, 1 insertion(+) diff --git a/components/synedit/synbeautifier.pas b/components/synedit/synbeautifier.pas index 525d2fb0e3..cc68cb03e7 100644 --- a/components/synedit/synbeautifier.pas +++ b/components/synedit/synbeautifier.pas @@ -233,6 +233,7 @@ begin if (Command = ecDeleteLastChar) and (FAutoIndent) and (ACaret.CharPos > 1) and + (not TSynEdit(FCurrentEditor).ReadOnly) and ( (not TSynEdit(FCurrentEditor).SelAvail) or (eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and (GetIndentForLine(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1)