# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1131999226 0
# Node ID 7e4742b0d788d268c59bdf52671f7b19a2b2748d
# Parent  22f581f4fe394c312de5c1cb126576a1cbb9beb0
(calc-left-divide): New function.

diff -r 22f581f4fe39 -r 7e4742b0d788 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Mon Nov 14 20:13:25 2005 +0000
+++ b/lisp/calc/calc.el	Mon Nov 14 20:13:46 2005 +0000
@@ -2027,6 +2027,10 @@
   (calc-slow-wrapper
    (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/)))
 
+(defun calc-left-divide (arg)
+  (interactive "P")
+  (calc-slow-wrapper
+   (calc-binary-op "ldiv" 'calcFunc-ldiv arg 0 nil nil)))
 
 (defun calc-change-sign (arg)
   (interactive "P")