From 431bbd673eb03d4f96e540e99edd799fb2b99cfa Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 14 Nov 2005 20:13:46 +0000
Subject: [PATCH] (calc-left-divide): New function.

---
 lisp/calc/calc.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 4c6820ca90e..bd161132ddf 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2027,6 +2027,10 @@ See calc-keypad for details."
   (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")
-- 
2.39.2