Mercurial > emacs

comparison lisp/calc/calc-arith.el @ 88123:375f2633d815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
comparison
equal deleted inserted replaced
52428:27bc8b966642 88123:375f2633d815
2791 (progn 2791 (progn
2792 (math-commutative-collect (nth 1 b) neg) 2792 (math-commutative-collect (nth 1 b) neg)
2793 (math-commutative-collect (nth 2 b) (not neg))) 2793 (math-commutative-collect (nth 2 b) (not neg)))
2794 (setq bterms (cons (if neg (math-neg b) b) bterms))))) 2794 (setq bterms (cons (if neg (math-neg b) b) bterms)))))
2795 2795
2796 ;;; arch-tag: 6c396b5b-14c6-40ed-bb2a-7cc2e8111465
2797 ;;; calc-arith.el ends here 2796 ;;; calc-arith.el ends here