Mercurial > emacs

comparison lisp/calc/calc-arith.el @ 52401:695cf19ef79e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add arch taglines
author Miles Bader <miles@gnu.org>
date Mon, 01 Sep 2003 15:45:59 +0000
parents 0d8b17d428b5
children 562c6a62c99e 375f2633d815
comparison
equal deleted inserted replaced
52400:b32a475b367f 52401:695cf19ef79e
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
2796 ;;; calc-arith.el ends here 2797 ;;; calc-arith.el ends here