diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:18:23 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:18:23 +0000 |
| commit | 2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c (patch) | |
| tree | 010d9acd4210a9eb3df66e241f4817656829b78d /lisp/calendar | |
| parent | 53d0b6a2930e78ee8fa35931ddf44e544020a102 (diff) | |
| download | emacs-2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c.tar.gz emacs-2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c.tar.bz2 emacs-2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c.zip | |
(calendar-goto-julian-date): Use assoc-string instead of
assoc-ignore-case.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/cal-julian.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el index ac422602dc4..67fb8515b24 100644 --- a/lisp/calendar/cal-julian.el +++ b/lisp/calendar/cal-julian.el @@ -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 |