Mercurial > emacs

diff lisp/calc/calc.el @ 66865:7e4742b0d788

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-left-divide): New function.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 14 Nov 2005 20:13:46 +0000
parents 1851d5f19b4f
children 50f4df2d357a
line wrap: on
line diff
--- 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")