XEmacs/xemacs/lisp/energize
