Changeset 864


Ignore:
Timestamp:
Aug 30, 2004, 9:30:28 PM (16 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/hemlock/src/lispmode.lisp

    r854 r864  
    12151215      (funcall (value parse-end-function) m2)
    12161216      (parse-over-block (mark-line m1) (mark-line m2)))
     1217    (hi::modifying-buffer (hi::line-%buffer (mark-line start))
    12171218    (let* ((first-line (mark-line start))
    12181219           (last-line (mark-line end))
     
    12331234            (setq prev-line-info line-info))
    12341235          (when (eq line last-line) (return nil))))
    1235       (make-region-undo :twiddle undo-text buf-region undo-region))))
     1236      (make-region-undo :twiddle undo-text buf-region undo-region)))))
    12361237
    12371238;;; INDENT-FOR-LISP -- Internal.
Note: See TracChangeset for help on using the changeset viewer.