Mercurial > emacs
comparison lisp/calc/calc-alg.el @ 58646:5a5ce0d66410
Add a provide statement.
(calc-Need-calc-alg, math-need-std-simps): Remove them.
(math-defsimplify): Move from calc-ext.el.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 30 Nov 2004 17:00:26 +0000 |
| parents | 9e42b44110bf |
| children | 7796027f64bd f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58645:157fd661769f | 58646:5a5ce0d66410 |
|---|---|
| 25 ;;; Commentary: | 25 ;;; Commentary: |
| 26 | 26 |
| 27 ;;; Code: | 27 ;;; Code: |
| 28 | 28 |
| 29 ;; This file is autoloaded from calc-ext.el. | 29 ;; This file is autoloaded from calc-ext.el. |
| 30 | |
| 30 (require 'calc-ext) | 31 (require 'calc-ext) |
| 31 | |
| 32 (require 'calc-macs) | 32 (require 'calc-macs) |
| 33 | |
| 34 (defun calc-Need-calc-alg () nil) | |
| 35 | 33 |
| 36 ;;; Algebra commands. | 34 ;;; Algebra commands. |
| 37 | 35 |
| 38 (defun calc-alg-evaluate (arg) | 36 (defun calc-alg-evaluate (arg) |
| 39 (interactive "p") | 37 (interactive "p") |
| 331 a)) | 329 a)) |
| 332 (setq handler (cdr handler)))))) | 330 (setq handler (cdr handler)))))) |
| 333 aa))) | 331 aa))) |
| 334 | 332 |
| 335 | 333 |
| 336 ;; Placeholder, to synchronize autoloading. | 334 (defmacro math-defsimplify (funcs &rest code) |
| 337 (defun math-need-std-simps () | 335 (append '(progn) |
| 338 nil) | 336 (mapcar (function |
| 337 (lambda (func) | |
| 338 (list 'put (list 'quote func) ''math-simplify | |
| 339 (list 'nconc | |
| 340 (list 'get (list 'quote func) ''math-simplify) | |
| 341 (list 'list | |
| 342 (list 'function | |
| 343 (append '(lambda (math-simplify-expr)) | |
| 344 code))))))) | |
| 345 (if (symbolp funcs) (list funcs) funcs)))) | |
| 346 (put 'math-defsimplify 'lisp-indent-hook 1) | |
| 339 | 347 |
| 340 ;; The function created by math-defsimplify uses the variable | 348 ;; The function created by math-defsimplify uses the variable |
| 341 ;; math-simplify-expr, and so is used by functions in math-defsimplify | 349 ;; math-simplify-expr, and so is used by functions in math-defsimplify |
| 342 (defvar math-simplify-expr) | 350 (defvar math-simplify-expr) |
| 343 | 351 |
| 1690 (< (nth 1 f) 1000) | 1698 (< (nth 1 f) 1000) |
| 1691 (math-make-frac (nth 1 f) | 1699 (math-make-frac (nth 1 f) |
| 1692 (math-scale-int 1 (- (nth 2 f))))))) | 1700 (math-scale-int 1 (- (nth 2 f))))))) |
| 1693 f)) | 1701 f)) |
| 1694 | 1702 |
| 1703 (provide 'calc-alg) | |
| 1704 | |
| 1695 ;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0 | 1705 ;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0 |
| 1696 ;;; calc-alg.el ends here | 1706 ;;; calc-alg.el ends here |