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