From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 14 Nov 2005 20:12:35 +0000 (+0000)
Subject: (calcFunc-ldiv): New function.
X-Git-Tag: emacs-pretest-22.0.90~5911
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d883348df8efee98269b6d61061a55f6a3b57f5b;p=emacs.git

(calcFunc-ldiv): New function.
---

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index ba95ee7f713..4d76e1eab5b 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -1854,6 +1854,10 @@
 	       (math-mul-zero b a))))
       (list '/ a b)))
 
+;;; Division from the left.
+(defun calcFunc-ldiv (a b)
+  (math-mul (math-pow a -1) b))
+
 
 (defun calcFunc-mod (a b)
   (math-normalize (list '% a b)))