diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2012-12-02 19:05:08 -0600 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2012-12-02 19:05:08 -0600 |
| commit | 1bf3989cd4ebffdeeebfaaca83c6866416c3908a (patch) | |
| tree | 03a9c79643d838c098756e119097e62ba17e62a1 /lisp | |
| parent | 682ceaf895f61e14c3545aa26d7290507dac0a31 (diff) | |
| download | emacs-1bf3989cd4ebffdeeebfaaca83c6866416c3908a.tar.gz | |
* lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-forms.el | 6 |
1 files changed, 2 insertions, 4 deletions
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))) |