Commit 2ad9ebbd authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-goto-julian-date): Use assoc-string instead of

parent 53d0b6a2
......@@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
(month-array calendar-month-name-array)
(completion-ignore-case t)
(month (cdr (assoc-ignore-case
(month (cdr (assoc-string
"Julian calendar month name: "
(mapcar 'list (append month-array nil))
nil t)
(calendar-make-alist month-array 1))))
(calendar-make-alist month-array 1) t)))
(if (and (zerop (% year 4)) (= month 2))
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