diff options
author | Thierry Banel <tbanelwebmin@free.fr> | 2014-11-15 23:24:25 -0600 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2014-11-15 23:24:25 -0600 |
commit | 1a30156b984735be444d54e51c40bc3243345110 (patch) | |
tree | f9c5a332d3c02893f6d201328c40a6af71803062 /lisp/calc | |
parent | d409545938d636156b7d0a4ce889197d8fa03e65 (diff) | |
download | emacs-1a30156b984735be444d54e51c40bc3243345110.tar.gz |
2014-11-16 Thierry Banel <tbanelwebmin@free.fr> (tiny change)
* calc-arith.el (math-max-list, math-min-list): Fix bug
for date handling.
Diffstat (limited to 'lisp/calc')
-rw-r--r-- | lisp/calc/calc-arith.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |