Rocky Bernstein (rocky@gnu.org) adapted from Phil Hagelberg's behave.el