From e528df0df81580e8bb6d6ed1b45ab1948d7b5cd5 Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 17 Nov 2004 19:22:31 +0000
Subject: [PATCH] (math-defsimplify):  Changed the argument in the created
 function to math-simplify-expr.

---
 lisp/calc/calc-ext.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 77057fd4a7a..249e6bc2b79 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -3,8 +3,7 @@
 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
-;; Maintainers: D. Goel <deego@gnufans.org>
-;;              Colin Walters <walters@debian.org>
+;; Maintainer: Jay Belanger <belanger@truman.edu>
 
 ;; This file is part of GNU Emacs.
 
@@ -2601,7 +2600,7 @@ calc-kill calc-kill-region calc-yank))))
 				 (list 'get (list 'quote func) ''math-simplify)
 				 (list 'list
 				       (list 'function
-					     (append '(lambda (expr))
+					     (append '(lambda (math-simplify-expr))
 						     code)))))))
 		  (if (symbolp funcs) (list funcs) funcs))))
 (put 'math-defsimplify 'lisp-indent-hook 1)
-- 
2.39.2