mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

* calendar.el (calendar-current-date): Use fixed assoc list for

Browse Source 
month names so that changing the array of names doesn't screw up
	the determination of the current date.
This commit is contained in:
Edward M. Reingold 1994-03-01 22:42:53 +00:00
parent 7e0dd87e24
commit b5e8c6b79d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/calendar.el
View File

@ -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