Mercurial > emacs

changeset 24189:c70c6c750126

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-goto-julian-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:30:46 +0000
parents 94db9f395842
children 77853cf5a2e5
files lisp/calendar/cal-julian.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-julian.el	Tue Jan 26 01:29:43 1999 +0000
+++ b/lisp/calendar/cal-julian.el	Tue Jan 26 01:30:46 1999 +0000
@@ -112,13 +112,12 @@
                      today))))))
           (month-array calendar-month-name-array)
           (completion-ignore-case t)
-          (month (cdr (assoc
-                       (capitalize
+          (month (cdr (assoc-ignore-case
                         (completing-read
                          "Julian 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 
            (if (and (zerop (% year 4)) (= month 2))
                29