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:    (forward-list-1 backward-list-1)
     (prev-char next-char)
     (next-char prev-char)
     (skip-string-forward skip-string-backward))
    (skip-until-open-paren-forward)
    (let* ((paren-char (following-char))
           (goal-char (syntax-pair-closed-paren paren-char))
  
negative.code:    (forward-list-1 backward-list-1)
     (skip-string-forward skip-string-backward)
     (skip-symbol-forward skip-symbol-backward)
     (next-char prev-char)
     (escape-forward-p escape-backward-p))
    (skip-space-forward)
    (let ((c (following-char)))
      (when (escape-forward-p)
        (next-char 1)
        (setq c (following-char)))
      (cond
  