anchor.diff:      (setf (prefix-size view) (size (buffer view))
             (suffix-size view) (size (buffer view))
             (buffer-size view) (size (buffer view)))
  -    (update-syntax (syntax view) prefix-size suffix-size
  -                   begin end)
  +    (update-syntax (syntax view) prefix-size suffix-size begin end)
       (call-next-method)))
   
   (defun make-syntax-for-view (view syntax-symbol &rest args)
  
positive.code:       (disable-mode (syntax modual) mode-name)
        (call-next-method)))
  
  (defmethod synchronize-view :around ((view drei-syntax-view) &key
                                       force-p)
    ;; If nothing changed, then don't call the other methods.
  
negative.code: 
  (defmethod observer-notified ((view drei-buffer-view) (buffer drei-buffer)
                                changed-region)
    (dotimes (i (displayed-lines-count view))
      (let ((line (line-information view i)))
        (when (<= (car changed-region) (line-end-offset line))
          (invalidate-line-strokes line :modified t)))))
  
  (defclass drei-syntax-view (drei-buffer-view)
    ((%syntax :accessor syntax)
  