Mercurial > emacs

changeset 24191:4f1b1bddae88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-goto-french-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:32:11 +0000
parents 77853cf5a2e5
children 1baa5a4968b2
files lisp/calendar/cal-french.el
diffstat 1 files changed, 6 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-french.el	Tue Jan 26 01:31:29 1999 +0000
+++ b/lisp/calendar/cal-french.el	Tue Jan 26 01:32:11 1999 +0000
@@ -229,16 +229,12 @@
 				      (concat "Jour " x))
 				   special-days))))))))
 	    (completion-ignore-case t)
-	    (month (cdr (assoc
-			 (capitalize
-			  (completing-read
-			   "Mois ou Sansculottide: "
-			   month-list
-			   nil t))
-			 (calendar-make-alist
-			  month-list
-			  1
-			  '(lambda (x) (capitalize (car x)))))))
+	    (month (cdr (assoc-ignore-case
+                         (completing-read
+                          "Mois ou Sansculottide: "
+                          month-list
+                          nil t)
+			 (calendar-make-alist month-list 1 'car))))
 	    (decade (if (> month 12)
 			1
 		      (calendar-read