diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:13:46 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:13:46 +0000 |
| commit | 431bbd673eb03d4f96e540e99edd799fb2b99cfa (patch) | |
| tree | 2f8cab1c44ff48b119b2668f00c2c6662d1274e6 /lisp/calc/calc.el | |
| parent | 3b2fad43c8c353221ac79b14d40c2b3afbcedf3b (diff) | |
| download | emacs-431bbd673eb03d4f96e540e99edd799fb2b99cfa.tar.gz | |
(calc-left-divide): New function.
Diffstat (limited to 'lisp/calc/calc.el')
| -rw-r--r-- | lisp/calc/calc.el | 4 |
1 files changed, 4 insertions, 0 deletions
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") |