Changeset 801

Timestamp:

Apr 30, 2004, 7:30:33 PM (21 years ago)

Author:

Gary Byers

Message:

Check buffer modification.

File:

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

trunk/ccl/hemlock/src/htext3.lisp

@@ -44 +44 @@
     (modifying-buffer buffer
                       (modifying-line line mark)
+                      (check-buffer-modification buffer mark)
                       (cond ((char= character #\newline)
                              (let* ((next (line-next line))
@@ -90 +91 @@
       (delete-region region))
     (unless (zerop (- end start))
+      (check-buffer-modification buffer mark)
       (if (%sp-find-character string start end #\newline)
         (with-mark ((mark mark :left-inserting))