From: Thierry Banel Date: Sun, 16 Nov 2014 05:24:25 +0000 (-0600) Subject: 2014-11-16 Thierry Banel (tiny change) X-Git-Tag: emacs-25.0.90~2635^2~459 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a30156b984735be444d54e51c40bc3243345110;p=emacs.git 2014-11-16 Thierry Banel (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 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))