New function: rcd-highlight-list

[Jean Louis <bugs@gnu.support>]

(defun rcd-highlight-list (list)
  "Uses LIST to highlight strings in buffer."
  (hi-lock-mode)
  (let* ((list (delete "" list))
	(highlights hi-lock-face-defaults))
    (while list
      (highlight-regexp (pop list) (pop highlights)))))

Just feed to this function a list of strings to highlight:

(rcd-highlight-list '("just" "to" "function" "list" "strings" "highlight"))

or use some highlighted tags in every text mode:

(rcd-highlight-list '("TODO" "DONE" "DELEGATED"))

or add it to some mode:

(add-hook 'mail-mode-hook
          (lambda ()
            (rcd-highlight-list '("TODO" "DONE" "DELEGATED" "To:" "Subject:"))))