(in-package :editor)

; Copied from fontlock.lisp in the editor sources
(defmacro with-hidden-font-lock-changes (buffer &body body)
  (rebinding (buffer)
    (with-unique-names (modified writable)
      `(let ((*dont-undo* t)
             (,modified (buffer-modified ,buffer))
             (,writable (shiftf (buffer-writable ,buffer) t)))
         (unwind-protect
             (progn ,@body)
           (unless ,modified
             (setf (buffer-modified ,buffer) nil))
           (setf (buffer-writable ,buffer) ,writable))))))