diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-04-05 17:28:05 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-04-05 17:28:05 +0200 |
| commit | 81940e9c0eddf64b1699341e8a35ef556e1593f8 (patch) | |
| tree | 7c5ef4c099c31b2b432bdf547ef245af7977dc42 /lisp/calc/calc-prog.el | |
| parent | 0342354c155728f8d55005bd34a66e1ab3179cc7 (diff) | |
| download | emacs-81940e9c0eddf64b1699341e8a35ef556e1593f8.tar.gz | |
Remove redundant #' before lambda in calc/*.el
* lisp/calc/calc-alg.el (math-defsimplify):
* lisp/calc/calc-ext.el (math-defintegral, math-defintegral-2):
* lisp/calc/calc-prog.el (math-do-arg-check): Remove redundant #'
before lambda.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index dd221457f83..4e27d7671e2 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -1881,9 +1881,9 @@ Redefine the corresponding command." (if (fboundp (setq chk (intern (concat "math-" qual-name)))) (append rest (if is-rest - `((mapcar #'(lambda (x) - (or (,chk x) - (math-reject-arg x ',qual))) + `((mapcar (lambda (x) + (or (,chk x) + (math-reject-arg x ',qual))) ,var)) `((or (,chk ,var) (math-reject-arg ,var ',qual))))) @@ -1894,9 +1894,9 @@ Redefine the corresponding command." qual-name 1)))))) (append rest (if is-rest - `((mapcar #'(lambda (x) - (and (,chk x) - (math-reject-arg x ',qual))) + `((mapcar (lambda (x) + (and (,chk x) + (math-reject-arg x ',qual))) ,var)) `((and (,chk ,var) |