[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-alg.el
diff -c emacs/lisp/calc/calc-alg.el:1.11 emacs/lisp/calc/calc-alg.el:1.12
*** emacs/lisp/calc/calc-alg.el:1.11    Thu Nov 25 05:51:40 2004
--- emacs/lisp/calc/calc-alg.el Tue Nov 30 17:00:26 2004
***************
*** 27,38 ****
  ;;; 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)
--- 27,36 ----
  ;;; Code:
  
  ;; This file is autoloaded from calc-ext.el.
  
+ (require 'calc-ext)
  (require 'calc-macs)
  
  ;;; Algebra commands.
  
  (defun calc-alg-evaluate (arg)
***************
*** 333,341 ****
        aa)))
  
  
! ;; Placeholder, to synchronize autoloading.
! (defun math-need-std-simps ()
!   nil)
  
  ;; The function created by math-defsimplify uses the variable
  ;; math-simplify-expr, and so is used by functions in math-defsimplify
--- 331,349 ----
        aa)))
  
  
! (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,1696 ****
--- 1700,1706 ----
                                    (math-scale-int 1 (- (nth 2 f)))))))
        f))
  
+ (provide 'calc-alg)
+ 
  ;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0
  ;;; calc-alg.el ends here