Commit c99d4526 authored by Edward M. Reingold's avatar Edward M. Reingold
Browse files

Use new form of calendar-read-date.

parent e77ed0d1
......@@ -61,25 +61,11 @@ This function is suitable for execution in a .emacs file."
(interactive "P")
(let* ((completion-ignore-case t)
(date (calendar-current-date))
(if arg
(cdr (assoc
"Month name: "
(mapcar 'list (append calendar-month-name-array nil))
nil t))
(calendar-make-alist calendar-month-name-array)))
(extract-calendar-month date)))
(if arg
"Year (>0): "
'(lambda (x) (> x 0))
(extract-calendar-year (calendar-current-date))))
(extract-calendar-year date))))
(date (if arg
(calendar-read-date t)
(displayed-month (extract-calendar-month date))
(displayed-year (extract-calendar-year date)))
(defun check-calendar-holidays (date)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment