From 65be717f3e056ba274b1be196a2ad7b75eaaa58d Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Tue, 7 May 2002 05:52:15 +0000
Subject: Clear all does not clear the contractionstate if in read-only mode.

---
 src/Editor.cxx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Editor.cxx b/src/Editor.cxx
index fa54c2f72..fbf44883c 100644
--- a/src/Editor.cxx
+++ b/src/Editor.cxx
@@ -2319,7 +2319,9 @@ void Editor::ClearAll() {
 	if (0 != pdoc->Length()) {
 		pdoc->DeleteChars(0, pdoc->Length());
 	}
-	cs.Clear();
+	if (!pdoc->IsReadOnly()) {
+		cs.Clear();
+	}
 	pdoc->EndUndoAction();
 	anchor = 0;
 	currentPos = 0;
-- 
cgit v1.2.3