diff options
| author | Jay Belanger | 2005-11-14 20:13:46 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-11-14 20:13:46 +0000 |
| commit | 431bbd673eb03d4f96e540e99edd799fb2b99cfa (patch) | |
| tree | 2f8cab1c44ff48b119b2668f00c2c6662d1274e6 /lisp/calc | |
| parent | 3b2fad43c8c353221ac79b14d40c2b3afbcedf3b (diff) | |
| download | emacs-431bbd673eb03d4f96e540e99edd799fb2b99cfa.tar.gz emacs-431bbd673eb03d4f96e540e99edd799fb2b99cfa.zip | |
(calc-left-divide): New function.
Diffstat (limited to 'lisp/calc')
| -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." | |||
| 2027 | (calc-slow-wrapper | 2027 | (calc-slow-wrapper |
| 2028 | (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/))) | 2028 | (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/))) |
| 2029 | 2029 | ||
| 2030 | (defun calc-left-divide (arg) | ||
| 2031 | (interactive "P") | ||
| 2032 | (calc-slow-wrapper | ||
| 2033 | (calc-binary-op "ldiv" 'calcFunc-ldiv arg 0 nil nil))) | ||
| 2030 | 2034 | ||
| 2031 | (defun calc-change-sign (arg) | 2035 | (defun calc-change-sign (arg) |
| 2032 | (interactive "P") | 2036 | (interactive "P") |