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 |