Re: diary sexp question

[bxf4@yahoo.com]

reingold@emr.cs.iit.edu (Edward M. Reingold) writes:

> I would use
>
> &%%(let ((dayname (calendar-day-of-week date))
>          (day (extract-calendar-day date)))
>      (and (memq dayname '(2 4))
>           (diary-block 1 23 2006 5 8 2006))) 1:30pm-2:20pm teach Bldg 1

Thank you very much for the functions.  They work quite well.

If I do this,

&%%(progn (defun fall-quarter () (diary-block 9 27 2006 12 8 2006)) nil)
&%%(progn (defun winter-quarter () (diary-block 1 3 2006 3 10 2006)) nil)
&%%(progn (defun spring-quarter () (diary-block 3 27 2006 6 2 2006)) nil)

how can I form the union of those three diary-blocks?  I tried 'or' and
'cons', but I'm sure I was doing it incorrectly.  I tried looking over
the emacslisp-intro and emacs-lisp reference, but 'or' is a pretty
common word.  I was after something like this:

&%%(let ((dayname (calendar-day-of-week date))
     (day (extract-calendar-day date)))
    (and (memq dayname '(4)) 
     (or fall-quarter winter-quarter spring-quarter))) 15:30 faculty meeting

Thank you again.  If I've worn out my welcome, please disregard this.
You've already helped me greatly.