diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:26:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:26:01 +0000 |
| commit | c409e8ab0f04b0e76f6a2967a6a349387ed57573 (patch) | |
| tree | 68fab9325e941850a5f5c487025331bb380caa77 /lisp/calendar/cal-islam.el | |
| parent | f6f27130be67b1dacc752199835f1951612ee9a8 (diff) | |
| download | emacs-c409e8ab0f04b0e76f6a2967a6a349387ed57573.tar.gz | |
(calendar-goto-islamic-date)
(mark-islamic-diary-entries): Use assoc-ignore-case and do not
capitalize when matching month and day names.
Diffstat (limited to 'lisp/calendar/cal-islam.el')
| -rw-r--r-- | lisp/calendar/cal-islam.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index 565fed387f4..1e71da77bb9 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el @@ -150,13 +150,12 @@ Driven by the variable `calendar-date-display-form'." (calendar-absolute-from-gregorian today)))))) (month-array calendar-islamic-month-name-array) (completion-ignore-case t) - (month (cdr (assoc - (capitalize + (month (cdr (assoc-ignore-case (completing-read "Islamic 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 (islamic-calendar-last-day-of-month month year)) (day (calendar-read (format "Islamic calendar day (1-%d): " last) @@ -368,17 +367,17 @@ provided for use as part of the nongregorian-diary-marking-hook." (string-to-int y-str))))) (if dd-name (mark-calendar-days-named - (cdr (assoc (capitalize (substring dd-name 0 3)) - (calendar-make-alist - calendar-day-name-array - 0 - '(lambda (x) (substring x 0 3)))))) + (cdr (assoc-ignore-case (substring dd-name 0 3) + (calendar-make-alist + calendar-day-name-array + 0 + '(lambda (x) (substring x 0 3)))))) (if mm-name (if (string-equal mm-name "*") (setq mm 0) (setq mm - (cdr (assoc - (capitalize mm-name) + (cdr (assoc-ignore-case + mm-name (calendar-make-alist calendar-islamic-month-name-array)))))) (mark-islamic-calendar-date-pattern mm dd yy))))) |