diff options
| author | Yuuki Harano <masm+github@masm11.me> | 2021-04-18 15:30:29 +0900 |
|---|---|---|
| committer | Yuuki Harano <masm+github@masm11.me> | 2021-04-18 15:30:29 +0900 |
| commit | de46c7796e635faf8647a7c6a5ae34fda9adae3b (patch) | |
| tree | 1a2c5f85416a642300ca217b3d85ff1be5d9f35e /lisp/calc/calc-prog.el | |
| parent | fb5f3e694b0f6e2bccfc2124555c986fdc409cd0 (diff) | |
| parent | 5c07cd0f156217db268ccb9fa64566fb429c4257 (diff) | |
| download | emacs-de46c7796e635faf8647a7c6a5ae34fda9adae3b.tar.gz emacs-de46c7796e635faf8647a7c6a5ae34fda9adae3b.tar.bz2 emacs-de46c7796e635faf8647a7c6a5ae34fda9adae3b.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs into feature/pgtk
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) |