mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(calendar-goto-julian-date): Use assoc-ignore-case and do not

Browse Source 
capitalize when matching month and day names.
This commit is contained in:
Richard M. Stallman 1999-01-26 01:30:46 +00:00
parent bf51dce332
commit b5394859f2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/cal-julian.el
View File

@ -112,13 +112,12 @@ Driven by the variable `calendar-date-display-form'."
today))))))
(month-array calendar-month-name-array)
(completion-ignore-case t)
(month (cdr (assoc
(capitalize
(month (cdr (assoc-ignore-case
(completing-read
"Julian calendar month name: "
(mapcar 'list (append month-array nil))
nil t))
(calendar-make-alist month-array 1 'capitalize))))
nil t)
(calendar-make-alist month-array 1))))
(last
(if (and (zerop (% year 4)) (= month 2))
29