3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
2600 |
(list 'get (list 'quote func) ''math-simplify) |
(list 'get (list 'quote func) ''math-simplify) |
2601 |
(list 'list |
(list 'list |
2602 |
(list 'function |
(list 'function |
2603 |
(append '(lambda (expr)) |
(append '(lambda (math-simplify-expr)) |
2604 |
code))))))) |
code))))))) |
2605 |
(if (symbolp funcs) (list funcs) funcs)))) |
(if (symbolp funcs) (list funcs) funcs)))) |
2606 |
(put 'math-defsimplify 'lisp-indent-hook 1) |
(put 'math-defsimplify 'lisp-indent-hook 1) |