paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fixed group undo for smart-unindent

Browse Source 
git-svn-id: trunk@22581 -
This commit is contained in:
martin 2009-11-13 21:56:26 +00:00
parent 558e3511f9
commit e706efaedb
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synbeautifier.pas
View File

@ -237,6 +237,8 @@ begin
(eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and (eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and
(GetIndentForLine(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1) (GetIndentForLine(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1)
then begin then begin
FCurrentLines.UndoList.CurrentReason := ecSmartUnindent;
UnIndentLine(ACaret, x); UnIndentLine(ACaret, x);
ACaret.CharPos := x; ACaret.CharPos := x;
Command := ecNone; Command := ecNone;

1
components/synedit/syneditkeycmds.pp
View File

@ -236,6 +236,7 @@ const
ecLineBreak = 509; // Break line at current position, move caret to new line ecLineBreak = 509; // Break line at current position, move caret to new line
ecInsertLine = 510; // Break line at current position, leave caret ecInsertLine = 510; // Break line at current position, leave caret
ecChar = 511; // Insert a character at current position ecChar = 511; // Insert a character at current position
ecSmartUnindent = 512; // NOT regocniced as command, used for group-undo, set by beautifier
ecImeStr = 550; // Insert character(s) from IME ecImeStr = 550; // Insert character(s) from IME