(defun my-hi-lock-string (string &optional face)
  "Set face of each occurrence of STRING to FACE."
  (interactive
   (list (hi-lock-read-regexp "String to highlight")
         (hi-lock-read-face-name)))
  (hi-lock-face-buffer (regexp-quote string) face))