From 1a30156b984735be444d54e51c40bc3243345110 Mon Sep 17 00:00:00 2001 From: Thierry Banel Date: Sat, 15 Nov 2014 23:24:25 -0600 Subject: [PATCH] 2014-11-16 Thierry Banel (tiny change) * calc-arith.el (math-max-list, math-min-list): Fix bug for date handling. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-arith.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cfb7900aa36..9a9e4310851 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-11-16 Thierry Banel (tiny change) + + * calc/calc-arith.el (math-max-list, math-min-list): Fix bug + for date handling. + 2014-11-16 Oscar Fuentes Add faces for the VC modeline state indicator. diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el index 43b42038aa6..3a2d1598491 100644 --- 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)) -- 2.39.5