diff options
| author | Jay Belanger | 2004-11-17 19:22:31 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-11-17 19:22:31 +0000 |
| commit | e528df0df81580e8bb6d6ed1b45ab1948d7b5cd5 (patch) | |
| tree | a8b8a17610203c9f0141c9e706ad097ceccf6e1b | |
| parent | 0c9089453091eb318a941ac2fb5621f70dc23733 (diff) | |
| download | emacs-e528df0df81580e8bb6d6ed1b45ab1948d7b5cd5.tar.gz emacs-e528df0df81580e8bb6d6ed1b45ab1948d7b5cd5.zip | |
(math-defsimplify): Changed the argument in the created function to
math-simplify-expr.
| -rw-r--r-- | lisp/calc/calc-ext.el | 5 |
1 files 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 @@ | |||
| 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: David Gillespie <daveg@synaptics.com> | 5 | ;; Author: David Gillespie <daveg@synaptics.com> |
| 6 | ;; Maintainers: D. Goel <deego@gnufans.org> | 6 | ;; Maintainer: Jay Belanger <belanger@truman.edu> |
| 7 | ;; Colin Walters <walters@debian.org> | ||
| 8 | 7 | ||
| 9 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 10 | 9 | ||
| @@ -2601,7 +2600,7 @@ calc-kill calc-kill-region calc-yank)))) | |||
| 2601 | (list 'get (list 'quote func) ''math-simplify) | 2600 | (list 'get (list 'quote func) ''math-simplify) |
| 2602 | (list 'list | 2601 | (list 'list |
| 2603 | (list 'function | 2602 | (list 'function |
| 2604 | (append '(lambda (expr)) | 2603 | (append '(lambda (math-simplify-expr)) |
| 2605 | code))))))) | 2604 | code))))))) |
| 2606 | (if (symbolp funcs) (list funcs) funcs)))) | 2605 | (if (symbolp funcs) (list funcs) funcs)))) |
| 2607 | (put 'math-defsimplify 'lisp-indent-hook 1) | 2606 | (put 'math-defsimplify 'lisp-indent-hook 1) |