--- a/Tools__CodeView2.st Fri Jan 06 16:04:06 2012 +0100
+++ b/Tools__CodeView2.st Fri Jan 06 16:26:14 2012 +0100
@@ -2641,7 +2641,8 @@
|soCol wasOn lineNrAboveCursor ln prevTab|
wasOn := self hideCursor.
- autoIndent ifTrue:[
+ "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beggining of the line"
+ (autoIndent and:[cursorCol ~~ 1]) ifTrue:[
prevTab := (self prevTabBefore:cursorCol) max:1.
"JV@2011-12-10: The list can be shorter that cursorLine,
trailing because empty lines are not physically in the list."
@@ -2712,7 +2713,7 @@
wasOn ifTrue:[ self showCursor ]
"Modified: / 16-01-1998 / 22:33:04 / cg"
- "Modified (comment): / 10-12-2011 / 13:43:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
getNewOriginText
@@ -3239,11 +3240,11 @@
!CodeView2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $'
!
version_SVN