Mercurial > emacs

changeset 58646:5a5ce0d66410

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 157fd661769f
children e655efbeebac
files lisp/calc/calc-alg.el
diffstat 1 files changed, 16 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-alg.el	Tue Nov 30 16:59:39 2004 +0000
+++ b/lisp/calc/calc-alg.el	Tue Nov 30 17:00:26 2004 +0000
@@ -27,12 +27,10 @@
 ;;; Code:
 
 ;; This file is autoloaded from calc-ext.el.
+
 (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