Add the occur-at-point function