* 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.

* 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.
b5e8c6b7 · Edward M. Reingold · 7e0dd87e · b5e8c6b7
Commit b5e8c6b7 authored Mar 01, 1994 by Edward M. Reingold
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 4 deletions

lisp/calendar/calendar.el lisp/calendar/calendar.el +3 -4

No files found.
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1932,10 +1932,9 @@ If in the calendar buffer, also sets the current date local variables."
         (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