[Emacs-diffs] /srv/bzr/emacs/trunk r110939: * calc/calc-forms.el (math-date-to-dt): Use integer date

[Jay Belanger]

------------------------------------------------------------
revno: 110939
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-17 21:59:00 -0600
message:
  * calc/calc-forms.el (math-date-to-dt): Use integer date
  when calling `math-date-to-julian-dt' and 'math-date-to-gregorian-dt'.
modified:
  lisp/ChangeLog
  lisp/calc/calc-forms.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-18 02:19:43 +0000
+++ b/lisp/ChangeLog    2012-11-18 03:59:00 +0000
@@ -1,3 +1,8 @@
+2012-11-18  Jay Belanger  <address@hidden>
+
+       * calc/calc-forms.el (math-date-to-dt): Use integer date when
+       calling `math-date-to-julian-dt' and 'math-date-to-gregorian-dt'.
+
 2012-11-18  Glenn Morris  <address@hidden>
 
        * image.el (insert-image, insert-sliced-image): Doc fix.

=== modified file 'lisp/calc/calc-forms.el'
--- a/lisp/calc/calc-forms.el   2012-11-17 22:01:59 +0000
+++ b/lisp/calc/calc-forms.el   2012-11-18 03:59:00 +0000
@@ -443,8 +443,8 @@
                                    (nth 3 calc-gregorian-switch)
                                    (apply 'math-absolute-from-gregorian-dt 
calc-gregorian-switch))
 ))
-                 (math-date-to-julian-dt value)
-               (math-date-to-gregorian-dt value))))
+                 (math-date-to-julian-dt date)
+               (math-date-to-gregorian-dt date))))
     (if (math-integerp value)
         dt
       (append dt