anchor.diff:  (defmacro with-point-syntax (point &body body)
     `(let ((*current-syntax* (buffer-syntax-table (point-buffer ,point))))
        ,@body))
  -
  -(defun in-string-p (point)
  -  (with-point-syntax point
  -    (and (eq *syntax-string-attribute*
  -             (text-property-at point :attribute))
  -         (not (eq :start (text-property-at point 'region-side))))))
  -
  -(defun in-comment-p (point)
  -  (with-point-syntax point
  -    (and (eq *syntax-comment-attribute*
  -             (text-property-at point :attribute))
  -         (not (eq :start (text-property-at point 'region-side))))))
   
   (defun %search-syntax-start-forward (point syntax limit)
     (with-point ((curr point))
  
positive.code:           syntax-skip-expr-prefix-forward
            syntax-skip-expr-prefix-backward
            syntax-scan-range
            in-string-p
            in-comment-p
            search-comment-start-forward
            search-comment-start-backward
            search-string-start-forward
  
negative.code:           skip-space-and-comment-backward
            symbol-string-at-point
            form-offset
            scan-lists
            parse-partial-sexp
            syntax-ppss
            in-string-p
            in-comment-p
            in-string-or-comment-p))
  
  (define-editor-variable enable-syntax-highlight nil)
  (defvar *global-syntax-highlight* t)
  