Test for a list of words?

Test for a list of words?

[Svend Tollak Munkejord]

Hi,

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)

Thanks for any hint.
-- 
Svend Tollak Munkejord 

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"))

Re: Test for a list of words?

[Svend Tollak Munkejord]

Today, Jesper Harder <harder@myrealbox.com> wrote:

>Svend Tollak Munkejord <stm@bacchus.pvv.org> writes:
>
>>How can I test whether a buffer contains some words?
>
>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))

Great! Thanks!

-- 
Svend Tollak Munkejord