anchor.diff:  
   (defun maybe-beginning-of-string (point)
     (let ((state (syntax-ppss point)))
  -    (when (member (parser-state-type state) '(:block-string :string))
  -      (move-point point (parser-state-token-start-point state)))))
  +    (when (member (pps-state-type state) '(:block-string :string))
  +      (move-point point (pps-state-token-start-point state)))))
   
   (defun maybe-beginning-of-comment (point)
     (let ((state (syntax-ppss point)))
  -    (when (member (parser-state-type state) '(:line-comment :block-comment))
  -      (move-point point (parser-state-token-start-point state)))))
  +    (when (member (pps-state-type state) '(:line-comment :block-comment))
  +      (move-point point (pps-state-token-start-point state)))))
   
   (defun maybe-beginning-of-string-or-comment (point)
     (let ((state (syntax-ppss point)))
  -    (when (member (parser-state-type state)
  +    (when (member (pps-state-type state)
                     '(:block-string
                       :string
                       :line-comment
                       :block-comment))
  -      (move-point point (parser-state-token-start-point state)))))
  +      (move-point point (pps-state-token-start-point state)))))
  
positive.code:           skip-symbol-forward
            skip-symbol-backward
            symbol-string-at-point
            parse-partial-sexp
            syntax-ppss
            in-string-p
  
negative.code: 
  (defun in-string-p (point)
    (let ((state (syntax-ppss point)))
      (member (pps-state-type state) '(:block-string :string))))
  
  (defun in-comment-p (point)
    (let ((state (syntax-ppss point)))
      (member (pps-state-type state) '(:line-comment :block-comment))))
  
  (defun in-string-or-comment-p (point)
    (let ((state (syntax-ppss point)))
      (member (pps-state-type state)
              '(:block-string
                :string
                :line-comment
  