(calc-slow-wrapper): Move (point) call outside of (function ...)

wrapper.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf2fc4aa007d84296e5fbb517cf4ba7c6a35b678..8b6a6b97e3d57669b694834c66a0ccdfc5be99e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-21  Colin Walters  <walters@debian.org>
+
+       * calc/calc-macs.el (calc-slow-wrapper): Move (point) call outside
+       of (function ...) wrapper.
+
 2001-11-20  Stefan Monnier  <monnier@cs.yale.edu>
 
        * derived.el (define-derived-mode): Create the abbrev-table

diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el
index 0aee9556aef064d55ccb43448d6b61f865c94183..313331ba820f2d5a7822dbe17fe1b3b853874683 100644 (file)
--- a/lisp/calc/calc-macs.el
+++ b/lisp/calc/calc-macs.el
@@ -36,7 +36,7 @@
 
 (defmacro calc-slow-wrapper (&rest body)
   `(calc-do
-    (function (lambda () ,@body) (point))))
+    (function (lambda () ,@body)) (point)))
 
 (defmacro math-showing-full-precision (form)
   `(let ((calc-float-format calc-full-float-format))