1242 |
|
|
1243 |
(defun diary-block (m1 d1 y1 m2 d2 y2) |
(defun diary-block (m1 d1 y1 m2 d2 y2) |
1244 |
"Block diary entry. |
"Block diary entry. |
1245 |
Entry applies if date is between two dates. Order of the parameters is |
Entry applies if date is between, or on one of, two dates. |
1246 |
|
The order of the parameters is |
1247 |
M1, D1, Y1, M2, D2, Y2 if `european-calendar-style' is nil, and |
M1, D1, Y1, M2, D2, Y2 if `european-calendar-style' is nil, and |
1248 |
D1, M1, Y1, D2, M2, Y2 if `european-calendar-style' is t." |
D1, M1, Y1, D2, M2, Y2 if `european-calendar-style' is t." |
1249 |
(let ((date1 (calendar-absolute-from-gregorian |
(let ((date1 (calendar-absolute-from-gregorian |