Reiner Steib <[EMAIL PROTECTED]> writes: >>> allout-layout > > (lambda (x) (or (numberp x) (listp x) (integerp x) > (member x '(: * + -))))
Simpler (intergerp implies numberp, use memq instead of member): (lambda (x) (or (numberp x) (listp x) (memq x '(: * + -)))) And if `nil' is not a valid value (use consp instead of listp): (lambda (x) (or (numberp x) (consp x) (memq x '(: * + -)))) -- Kim F. Storm <[EMAIL PROTECTED]> http://www.cua.dk _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
