diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-30 17:00:26 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-30 17:00:26 +0000 |
| commit | 41cf648ddca265063bb26eeb764216ec10cea76a (patch) | |
| tree | a9ffa7c350c17256fa44e7c9126596b605624a62 /lisp/calc/calc-alg.el | |
| parent | 47233535150413aa7f8e9ff3664de8be3b1bf557 (diff) | |
| download | emacs-41cf648ddca265063bb26eeb764216ec10cea76a.tar.gz | |
Add a provide statement.
(calc-Need-calc-alg, math-need-std-simps): Remove them.
(math-defsimplify): Move from calc-ext.el.
Diffstat (limited to 'lisp/calc/calc-alg.el')
| -rw-r--r-- | lisp/calc/calc-alg.el | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index cbf1dfbe79b..4901883d094 100644 --- a/lisp/calc/calc-alg.el +++ b/lisp/calc/calc-alg.el @@ -27,12 +27,10 @@ ;;; Code: ;; This file is autoloaded from calc-ext.el. -(require 'calc-ext) +(require 'calc-ext) (require 'calc-macs) -(defun calc-Need-calc-alg () nil) - ;;; Algebra commands. (defun calc-alg-evaluate (arg) @@ -333,9 +331,19 @@ aa))) -;; Placeholder, to synchronize autoloading. -(defun math-need-std-simps () - nil) +(defmacro math-defsimplify (funcs &rest code) + (append '(progn) + (mapcar (function + (lambda (func) + (list 'put (list 'quote func) ''math-simplify + (list 'nconc + (list 'get (list 'quote func) ''math-simplify) + (list 'list + (list 'function + (append '(lambda (math-simplify-expr)) + code))))))) + (if (symbolp funcs) (list funcs) funcs)))) +(put 'math-defsimplify 'lisp-indent-hook 1) ;; The function created by math-defsimplify uses the variable ;; math-simplify-expr, and so is used by functions in math-defsimplify @@ -1692,5 +1700,7 @@ (math-scale-int 1 (- (nth 2 f))))))) f)) +(provide 'calc-alg) + ;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0 ;;; calc-alg.el ends here |