Changeset 864

Timestamp:

Aug 30, 2004, 2:30:28 PM (20 years ago)

Author:

Gary Byers

Message:

Wrap some of the indentation code in a MODIFYING-BUFFER, to defer display
updates. (This is experimental, and should probably be made more general.)

File:

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

trunk/ccl/hemlock/src/lispmode.lisp

@@ -1215 +1215 @@
       (funcall (value parse-end-function) m2)
       (parse-over-block (mark-line m1) (mark-line m2)))
+    (hi::modifying-buffer (hi::line-%buffer (mark-line start))
     (let* ((first-line (mark-line start))
            (last-line (mark-line end))
@@ -1233 +1234 @@
             (setq prev-line-info line-info))
           (when (eq line last-line) (return nil))))
-      (make-region-undo :twiddle undo-text buf-region undo-region))))
+      (make-region-undo :twiddle undo-text buf-region undo-region)))))
 
 ;;; INDENT-FOR-LISP -- Internal.