(defun dot () (point))

(defun match-fonts ()
    (interactive)
    (while (search-forward "\\f" nil t)
      (progn
	(if (not (search-forward "\\fP" nil t))
	    (message (dot))))))