procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* calc-arith.el (math-max-list, math-min-list): Fix bug
for date handling.
This commit is contained in:
Thierry Banel 2014-11-15 23:24:25 -06:00 • committed by Jay Belanger
parent d409545938
commit 1a30156b98
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View 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.

4
lisp/calc/calc-arith.el
View file

@ -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))