Add a provide statement.

[gnu-emacs] / lisp / calc / calc-alg.el

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index cbf1dfbe79bc9ff054ad39311083f7f0910c2400..4901883d094b3e93a9dd86a1faaceb2ea20088de 100644 (file)
--- 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