diff options
| author | Edward M. Reingold | 1994-03-01 22:42:53 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1994-03-01 22:42:53 +0000 |
| commit | b5e8c6b79df9b4e1608b26d58d4ee3b461340ad9 (patch) | |
| tree | d66bb72cedee835911602e3ae9a9612540ef90ed | |
| parent | 7e0dd87e24ad7c8ef7cacacde49b22565b935cd7 (diff) | |
| download | emacs-b5e8c6b79df9b4e1608b26d58d4ee3b461340ad9.tar.gz emacs-b5e8c6b79df9b4e1608b26d58d4ee3b461340ad9.zip | |
* 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.
| -rw-r--r-- | lisp/calendar/calendar.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 8aefa785b80..74d1c52e0a1 100644 --- 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." | |||
| 1932 | (month | 1932 | (month |
| 1933 | (cdr (assoc | 1933 | (cdr (assoc |
| 1934 | (substring date (match-beginning 2) (match-end 2)) | 1934 | (substring date (match-beginning 2) (match-end 2)) |
| 1935 | (calendar-make-alist | 1935 | '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) |
| 1936 | calendar-month-name-array | 1936 | ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) |
| 1937 | 1 | 1937 | ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))))) |
| 1938 | '(lambda (x) (substring x 0 3)))))) | ||
| 1939 | (day | 1938 | (day |
| 1940 | (string-to-int (substring date (match-beginning 3) (match-end 3)))) | 1939 | (string-to-int (substring date (match-beginning 3) (match-end 3)))) |
| 1941 | (year | 1940 | (year |