Re: Test for a list of words?

[Jesper Harder]

Svend Tollak Munkejord <stm@bacchus.pvv.org> writes:

> How can I test whether a buffer contains some words? Here is an
> example:
>
> (re-search-forward "foo\\|bar\\|baz" nil t)
>
> tests if one or more of the words are present, but I would like to
> test for all of them. (This is inside a function)

You could make a small function, say, `all-words-present-p':

  (require 'cl)

  (defun all-words-present-p (words)
    (every (lambda (word) 
             (goto-char (point-min)) 
             (search-forward word nil t))
           words))

and then test like this:

  (all-words-present-p '("foo" "bar" "baz"))