2014-11-16 Thierry Banel <tbanelwebmin@free.fr> (tiny change)

* calc-arith.el (math-max-list, math-min-list): Fix bug
for date handling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfb7900aa36274257296450c0a923cb4d537ea54..9a9e4310851f6ea01fe98da609129782182ad7fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-16  Thierry Banel <tbanelwebmin@free.fr>  (tiny change)
+
+       * calc/calc-arith.el (math-max-list, math-min-list): Fix bug
+       for date handling.
+
 2014-11-16  Oscar Fuentes <ofv@wanadoo.es>
 
        Add faces for the VC modeline state indicator.

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 43b42038aa684ef1c32361c141b433abc9ebf1a6..3a2d15984912714dcda310dd2862d86670826113 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -2249,7 +2249,7 @@
 
 (defun math-min-list (a b)
   (if b
-      (if (or (Math-anglep (car b)) (eq (car b) 'date)
+      (if (or (Math-anglep (car b)) (eq (caar b) 'date)
              (and (eq (car (car b)) 'intv) (math-intv-constp (car b)))
              (math-infinitep (car b)))
          (math-min-list (math-min a (car b)) (cdr b))
@@ -2279,7 +2279,7 @@
 
 (defun math-max-list (a b)
   (if b
-      (if (or (Math-anglep (car b)) (eq (car b) 'date)
+      (if (or (Math-anglep (car b)) (eq (caar b) 'date)
              (and (eq (car (car b)) 'intv) (math-intv-constp (car b)))
              (math-infinitep (car b)))
          (math-max-list (math-max a (car b)) (cdr b))