Mercurial > emacs

changeset 6124:56546a41a683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* calendar.el (calendar-current-date): Use fixed assoc list for month names so that changing the array of names doesn't screw up the determination of the current date.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Tue, 01 Mar 1994 22:42:53 +0000
parents 3c66892f0083
children 54625de47273
files lisp/calendar/calendar.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Tue Mar 01 22:28:47 1994 +0000
+++ b/lisp/calendar/calendar.el	Tue Mar 01 22:42:53 1994 +0000
@@ -1932,10 +1932,9 @@
          (month
           (cdr (assoc 
                 (substring date (match-beginning 2) (match-end 2))
-                (calendar-make-alist
-                 calendar-month-name-array
-                 1
-                 '(lambda (x) (substring x 0 3))))))
+                '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4)
+                  ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8)
+                  ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))))
          (day
           (string-to-int (substring date (match-beginning 3) (match-end 3))))
          (year