Mercurial > emacs

changeset 54071:8089fbb082b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-holidays): Doc fix. (calendar-read-date): Use assoc-string rather than assoc-ignore-case.
author Glenn Morris <rgm@gnu.org>
date Thu, 19 Feb 2004 01:13:56 +0000
parents e3c36780d566
children 7cd960d120ba
files lisp/calendar/calendar.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Thu Feb 19 01:12:21 2004 +0000
+++ b/lisp/calendar/calendar.el	Thu Feb 19 01:13:56 2004 +0000
@@ -1164,7 +1164,7 @@
 Tuesday after the first Monday in November of years divisible by 4, add
 
      (holiday-sexp
-       (if (zerop (% year 4))
+       '(if (zerop (% year 4))
            (calendar-gregorian-from-absolute
              (1+ (calendar-dayname-on-or-before
                    1 (+ 6 (calendar-absolute-from-gregorian
@@ -2544,12 +2544,12 @@
                                 (calendar-current-date)))))
          (month-array calendar-month-name-array)
          (completion-ignore-case t)
-         (month (cdr (assoc-ignore-case
+         (month (cdr (assoc-string
                        (completing-read
                         "Month 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)))
     (if noday
         (if (eq noday t)