(math-eqn-special-funcs): Add functions to list.

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

diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el
index 313331ba820f2d5a7822dbe17fe1b3b853874683..8b532a49e98fb2f3567f0afd49ea3fec1aa1a05a 100644 (file)
--- a/lisp/calc/calc-macs.el
+++ b/lisp/calc/calc-macs.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
-;; Maintainer: Colin Walters <walters@debian.org>
+;; Maintainer: Jay Belanger <belanger@truman.edu>
 
 ;; This file is part of GNU Emacs.
 
@@ -26,10 +26,6 @@
 
 ;;; Code:
 
-(provide 'calc-macs)
-
-(defun calc-need-macros () nil)
-
 (defmacro calc-wrapper (&rest body)
   `(calc-do (function (lambda ()
                        ,@body))))
@@ -51,7 +47,7 @@
   `(if (eq calc-display-working-message 'lots)
        (math-do-working ,msg ,arg)))
 
-(defmacro calc-with-default-simplification (body)
+(defmacro calc-with-default-simplification (&rest body)
   `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num)))
                                  calc-simplify-mode)))
      ,@body))
@@ -200,5 +196,7 @@
     (or (consp b)
        (< a b))))
 
-;;; calc-macs.el ends here
+(provide 'calc-macs)
 
+;;; arch-tag: 08ba8ec2-fcff-4b80-a079-ec661bdb057e
+;;; calc-macs.el ends here