+;;;###autoload
+(defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
+;;;###autoload
+(defun hi-lock-face-phrase-buffer (regexp &optional face)
+ "Set face of each match of phrase REGEXP to FACE.
+
+Whitespace in REGEXP converted to arbitrary whitespace and initial
+lower-case letters made case insensitive."
+ (interactive
+ (list
+ (hi-lock-regexp-okay
+ (hi-lock-process-phrase
+ (read-from-minibuffer "Phrase to highlight: "
+ (cons (or (car hi-lock-regexp-history) "") 1 )
+ nil nil 'hi-lock-regexp-history)))
+ (hi-lock-read-face-name)))
+ (or (facep face) (setq face 'rwl-yellow))
+ (unless hi-lock-mode (hi-lock-mode))
+ (hi-lock-set-pattern (list regexp (list 0 (list 'quote face) t))))
+