]> git.eshelyaron.com Git - emacs.git/commitdiff
2014-11-16 Thierry Banel <tbanelwebmin@free.fr> (tiny change)
authorThierry Banel <tbanelwebmin@free.fr>
Sun, 16 Nov 2014 05:24:25 +0000 (23:24 -0600)
committerJay Belanger <jay.p.belanger@gmail.com>
Sun, 16 Nov 2014 05:24:25 +0000 (23:24 -0600)
* calc-arith.el (math-max-list, math-min-list): Fix bug
for date handling.

lisp/ChangeLog
lisp/calc/calc-arith.el

index cfb7900aa36274257296450c0a923cb4d537ea54..9a9e4310851f6ea01fe98da609129782182ad7fa 100644 (file)
@@ -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.
index 43b42038aa684ef1c32361c141b433abc9ebf1a6..3a2d15984912714dcda310dd2862d86670826113 100644 (file)
 
 (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))
 
 (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))