anchor.diff:          (unless (next-char 1)
             (point-set point)
             (return))
  -      (unless (escape-p (preceding-char) (char-before-2))
  +      (unless (escape-forward-p)
           (let ((c (following-char)))
             (cond
              ((eql c paren-char)
  
positive.code:   ((next-char prev-char)
     (following-char preceding-char)
     (preceding-char char-before-2)
     (char-before-2 char-before-3))
    (do () (nil)
      (unless (next-char 1)
        (return))
      (let ((c (following-char)))
        (cond
         ((escape-p (preceding-char) (char-before-2)))
         ((not
           (or
            (syntax-escape-char-p c)
  
negative.code:         (do ()
              ((and
                (syntax-open-paren-char-p (following-char))
                (not (escape-forward-p)))
               (next-char 1))
            (when (or
                   (syntax-closed-paren-char-p (following-char))
  