anchor.diff:                         (unless p
                            (character-offset point -1))))))
               (when (end-line-p point)
  -              (let ((p (maybe-beginning-of-comment point)))
  +              (let ((p (inline-line-comment-p point)))
                   (when p (move-point point p))))))
   
   (defun %form-offset-positive (point)
  
positive.code:     (cond ((not win)
             (values nil nil))
            ((null p)
             (let ((p (maybe-beginning-of-comment point)))
               (if p
                   (values (move-point point p) t)
                   (values nil t))))
  
negative.code: 
  (defun skip-space-and-comment-backward (point)
    (with-point-syntax point
      (if (inline-line-comment-p point)
          (skip-chars-backward point #'syntax-space-char-p)
          (loop
            (skip-chars-backward point #'syntax-space-char-p)
  