anchor.diff:                        (update-token-start-point p)
                         (return))
                        ((syntax-open-paren-char-p c)
  +                      (incf paren-depth)
                         (push c paren-stack))
                        ((syntax-closed-paren-char-p c)
  +                      (decf paren-depth)
                         (when (syntax-equal-paren-p c (car paren-stack))
                           (pop paren-stack))))
                      (character-offset p 1)))))))
  
positive.code:   end-char
    block-comment-depth
    block-pair
    paren-stack)
  
  (defun parse-partial-sexp (from to &optional state comment-stop)
    (assert (eq (point-buffer from)
  
negative.code:                 (pps-state-end-char state) end-char
                  (pps-state-block-comment-depth state) block-comment-depth
                  (pps-state-block-pair state) block-pair
                  (pps-state-paren-stack state) paren-stack
                  (pps-state-paren-depth state) paren-depth))
          state))))
  
  (define-editor-variable syntax-ppss-cache nil)
  