mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 05:32:08 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Jay Belanger 2012-12-02 19:05:08 -06:00
parent 682ceaf895
commit 1bf3989cd4
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -465,13 +465,13 @@ in the Gregorian calendar and the remaining part determines the time."
(let ((y approx)
(sum 0))
(while (>= (math-compare date
(math-iso-dt-to-absolute (setq y (math-add y 1)) 1 1)) 0)
(math-absolute-from-iso-dt (setq y (math-add y 1)) 1 1)) 0)
(setq sum (+ sum 1)))
sum))))
(list
year
(math-add (car (math-idivmod
(math-sub date (math-iso-dt-to-absolute year 1 1))
(math-sub date (math-absolute-from-iso-dt year 1 1))
7))
1)
(cdr (math-idivmod date 7)))))
@ -739,8 +739,6 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
(progn
(or math-fd-iso-dt
(setq math-fd-iso-dt (math-date-to-iso-dt math-fd-date)
jpb math-fd-date
jpbb math-fd-iso-dt
math-fd-isoyear (car math-fd-iso-dt)
math-fd-isoweek (nth 1 math-fd-iso-dt)
math-fd-isoweekday (nth 2 math-fd-iso-dt)))