anchor.diff:                          (check-type p point)
                           (in-string-or-comment-p p))
                   (return i)))))
  +
  +(defun dangling-start-p (p)
  +  (let ((str (looking-at p "do|else\\s+if|else|for|if|switch|while")))
  +    (character-offset p (length str))
  +    (or (not (eql #\( (character-at p)))
  +        (form-offset p 1))
  +    (let ((old-linenumber (line-number-at-point p)))
  +      (skip-space-and-comment-forward p)
  +      (/= old-linenumber (line-number-at-point p)))))
   
   (defun unbalanced-p (state)
     (if (member #\( (pps-state-paren-stack state)) t nil))
  
positive.code:         (when (> 0 (pps-state-paren-depth (parse-partial-sexp start p)))
            (decf indent tab-width))))
      (let ((word (looking-at p "\\w+"))
            (state)
            (unbalanced-flag nil))
        (when word
          (character-offset p (length word))
          (skip-whitespace-forward p t))
        (with-point ((start p))
  
negative.code:                                (#\[ . #\]))
                  :string-quote-chars '(#\" #\' #\`)
                  :expr-prefix-chars '(#\, #\;)
                  :expr-suffix-chars '(#\,)
                  :line-comment-string "//"
                  :block-comment-pairs '(("/*" . "*/"))))
          (tmlanguage (lem-c-mode.grammer:make-tmlanguage-c)))
  