blob: a0da2b60358257bfe62db462e4bf3fb08f39a997 (
plain) (
tree)
|
|
This fixes a bug which can result in a value out of range error if the
cursor is at the beginning of a TextPort and the DeleteToStartOfLine
procedure is invoked.
This patch has been sent to SRC.
--- m3/vbtkit/src/etext/TextPortClass.m3.orig Mon Jan 30 14:34:34 1995
+++ m3/vbtkit/src/etext/TextPortClass.m3 Thu May 8 17:20:58 1997
@@ -271,8 +271,12 @@
left := MTextUnit.StartOfLine (v.vtext.mtext, here);
BEGIN
IF here = left THEN
- (* We're already at the start of line; delete one char. *)
- RETURN v.replace (here - 1, here, "")
+ (* Already at the start of line; delete preceding newline if any. *)
+ IF here > 0 THEN
+ RETURN v.replace (here - 1, here, "")
+ ELSE
+ RETURN NotFound
+ END
ELSE
RETURN v.replace (left, here, "")
END
|