procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
assoc-ignore-case.
This commit is contained in:
Glenn Morris 2004-02-19 01:18:23 +00:00
parent 53d0b6a293
commit 2ad9ebbd12
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/calendar/cal-julian.el
View file

@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
today))))))
(month-array calendar-month-name-array)
(completion-ignore-case t)
(month (cdr (assoc-ignore-case
(month (cdr (assoc-string
(completing-read
"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)))
(last
(if (and (zerop (% year 4)) (= month 2))
29