diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:16:53 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:16:53 +0000 |
| commit | abe4091c487cf09f95c85f4c62c1b1f417e02827 (patch) | |
| tree | d3f0e0e0c433332a42bfd9d1235a65a4cd603212 /lisp | |
| parent | f6ea0e2d2c285d64403f7d462d97e14cd0dbd07e (diff) | |
| download | emacs-abe4091c487cf09f95c85f4c62c1b1f417e02827.tar.gz emacs-abe4091c487cf09f95c85f4c62c1b1f417e02827.tar.bz2 emacs-abe4091c487cf09f95c85f4c62c1b1f417e02827.zip | |
(calendar-goto-hebrew-date, mark-hebrew-diary-entries)
(list-yahrzeit-dates): Use assoc-string instead of assoc-ignore-case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/cal-hebrew.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el index acdac6ce5c6..776868159be 100644 --- a/lisp/calendar/cal-hebrew.el +++ b/lisp/calendar/cal-hebrew.el @@ -236,17 +236,17 @@ Driven by the variable `calendar-date-display-form'." calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year)) (completion-ignore-case t) - (month (cdr (assoc-ignore-case + (month (cdr (assoc-string (completing-read "Hebrew calendar month name: " (mapcar 'list (append month-array nil)) (if (= year 3761) '(lambda (x) (let ((m (cdr - (assoc-ignore-case + (assoc-string (car x) - (calendar-make-alist - month-array))))) + (calendar-make-alist month-array) + t)))) (< 0 (calendar-absolute-from-hebrew (list m @@ -254,7 +254,7 @@ Driven by the variable `calendar-date-display-form'." m year) year)))))) t) - (calendar-make-alist month-array 1)))) + (calendar-make-alist month-array 1) t))) (last (hebrew-calendar-last-day-of-month month year)) (first (if (and (= year 3761) (= month 10)) 18 1)) @@ -753,18 +753,18 @@ is 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-ignore-case dd-name + (cdr (assoc-string dd-name (calendar-make-alist calendar-day-name-array - 0 nil calendar-day-abbrev-array)))) + 0 nil calendar-day-abbrev-array) t))) (if mm-name (setq mm (if (string-equal mm-name "*") 0 (cdr - (assoc-ignore-case + (assoc-string mm-name (calendar-make-alist - calendar-hebrew-month-name-array-leap-year)))))) + calendar-hebrew-month-name-array-leap-year) t))))) (mark-hebrew-calendar-date-pattern mm dd yy))))) (setq d (cdr d))))) @@ -839,12 +839,12 @@ from the cursor position." (int-to-string (extract-calendar-year today)))) (month-array calendar-month-name-array) (completion-ignore-case t) - (month (cdr (assoc-ignore-case + (month (cdr (assoc-string (completing-read "Month of death (name): " (mapcar 'list (append month-array nil)) nil t) - (calendar-make-alist month-array 1)))) + (calendar-make-alist month-array 1) t))) (last (calendar-last-day-of-month month year)) (day (calendar-read (format "Day of death (1-%d): " last) |