Mercurial > emacs

changeset 24188:94db9f395842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-read-date): Use assoc-ignore-case and do not capitalize when matching month and day names.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Jan 1999 01:29:43 +0000
parents cc07d0f935d4
children c70c6c750126
files lisp/calendar/calendar.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Tue Jan 26 01:28:41 1999 +0000
+++ b/lisp/calendar/calendar.el	Tue Jan 26 01:29:43 1999 +0000
@@ -2301,13 +2301,12 @@
                                 (calendar-current-date)))))
          (month-array calendar-month-name-array)
          (completion-ignore-case t)
-         (month (cdr (assoc
-                      (capitalize
+         (month (cdr (assoc-ignore-case
                        (completing-read
                         "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 (calendar-last-day-of-month month year)))
     (if noday
         (if (eq noday t)