From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 14 Nov 2005 20:13:46 +0000 (+0000)
Subject: (calc-left-divide): New function.
X-Git-Tag: emacs-pretest-22.0.90~5908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=431bbd673eb03d4f96e540e99edd799fb2b99cfa;p=emacs.git

(calc-left-divide): New function.
---

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")