Mercurial > emacs
comparison lisp/calendar/cal-iso.el @ 92625:e26350e23411
(calendar-iso-read-args): Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 08 Mar 2008 19:59:47 +0000 |
| parents | 733bd38ed2dd |
| children | 3ed51c637a80 |
comparison
equal
deleted
inserted
replaced
| 92624:8ec0ed9c7acd | 92625:e26350e23411 |
|---|---|
| 93 (interactive) | 93 (interactive) |
| 94 (message "ISO date: %s" | 94 (message "ISO date: %s" |
| 95 (calendar-iso-date-string (calendar-cursor-to-date t)))) | 95 (calendar-iso-date-string (calendar-cursor-to-date t)))) |
| 96 | 96 |
| 97 (defun calendar-iso-read-args (&optional dayflag) | 97 (defun calendar-iso-read-args (&optional dayflag) |
| 98 "Interactively read the arguments for an iso date command." | 98 "Interactively read the arguments for an iso date command. |
| 99 Reads a year and week, and if DAYFLAG is non-nil a day (otherwise | |
| 100 taken to be 1)." | |
| 99 (let* ((today (calendar-current-date)) | 101 (let* ((today (calendar-current-date)) |
| 100 (year (calendar-read | 102 (year (calendar-read |
| 101 "ISO calendar year (>0): " | 103 "ISO calendar year (>0): " |
| 102 (lambda (x) (> x 0)) | 104 (lambda (x) (> x 0)) |
| 103 (int-to-string (extract-calendar-year today)))) | 105 (int-to-string (extract-calendar-year today)))) |