change looking-at to looking-at-p a bit