diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-10-14 11:04:55 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-10-14 11:04:55 +0200 |
| commit | f8505fd3d43dd95492855eac88922b5b27201e7a (patch) | |
| tree | 5e2de987d295fb3a34e52ea7930265351ce45f2b /lisp/calc/calc-stuff.el | |
| parent | 03e98f93f72c8a158a3584355bca174e2c63dce6 (diff) | |
| parent | b13e0c1501a21e942692718194c634e01a13928a (diff) | |
| download | emacs-f8505fd3d43dd95492855eac88922b5b27201e7a.tar.gz | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/calc/calc-stuff.el')
| -rw-r--r-- | lisp/calc/calc-stuff.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calc/calc-stuff.el b/lisp/calc/calc-stuff.el index bbd61a2c4a8..58b81faee50 100644 --- a/lisp/calc/calc-stuff.el +++ b/lisp/calc/calc-stuff.el @@ -1,4 +1,4 @@ -;;; calc-stuff.el --- miscellaneous functions for Calc +;;; calc-stuff.el --- miscellaneous functions for Calc -*- lexical-binding:t -*- ;; Copyright (C) 1990-1993, 2001-2020 Free Software Foundation, Inc. @@ -273,8 +273,9 @@ With a prefix, push that prefix as a number onto the stack." ;; math-map-over-constants. (defvar math-moc-func) -(defun math-map-over-constants (math-moc-func expr) - (math-map-over-constants-rec expr)) +(defun math-map-over-constants (moc-func expr) + (let ((math-moc-func moc-func)) + (math-map-over-constants-rec expr))) (defun math-map-over-constants-rec (expr) (cond ((or (Math-primp expr) |