mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix weekday number.

Browse source
This commit is contained in:
Jay Belanger 2012-12-02 22:46:49 -06:00
parent c5bc2d1d05
commit 77a7493589
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/calc/calc-forms.el
View file

@ -474,7 +474,8 @@ in the Gregorian calendar and the remaining part determines the time."
(math-sub date (math-absolute-from-iso-dt year 1 1))
7))
1)
(cdr (math-idivmod date 7)))))
(let ((day (calcFunc-mod date 7)))
(if (= day 0) 7 day)))))
(defun math-dt-to-date (dt)
(or (integerp (nth 1 dt))