Changeset 739

Timestamp:

Mar 27, 2004, 2:52:51 AM (21 years ago)

Author:

Gary Byers

Message:

lock/unlock the buffer (actually the gap-cache) when editing.

File:

• trunk/ccl/hemlock/src/htext1.lisp (modified) (2 diffs)

trunk/ccl/hemlock/src/htext1.lisp

@@ -181 +181 @@
   (when (bufferp buffer)
     (let* ((document (buffer-document buffer)))
-      (when document (document-begin-editing document)))))
+      (when document
+        (lock-buffer buffer)
+        (document-begin-editing document)))))
 
 (defun buffer-document-end-editing (buffer)
@@ -187 +189 @@
     (let* ((document (buffer-document buffer)))
       (when document
+        (unlock-buffer buffer)
         (document-end-editing document)))))