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:                 (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))
          state))))
  
  (define-editor-variable syntax-ppss-cache nil)
  
negative.code:           (end-char (pps-state-end-char state))
            (block-comment-depth (pps-state-block-comment-depth state))
            (block-pair (pps-state-block-pair state))
            (paren-stack (pps-state-paren-stack state))
            (paren-depth (pps-state-paren-depth state)))
        (flet ((update-token-start-point (p)
                 (if token-start-point
                     (move-point token-start-point p)
  