From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 3 Dec 2012 01:05:08 +0000 (-0600)
Subject: * lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo.
X-Git-Tag: emacs-24.3.90~173^2~9^2~92
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bf3989cd4ebffdeeebfaaca83c6866416c3908a;p=emacs.git

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

diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el
index 9915799002f..197bc6acee5 100644
--- a/lisp/calc/calc-forms.el
+++ b/lisp/calc/calc-forms.el
@@ -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)))