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

wrapper.

(calc-slow-wrapper): Move (point) call outside of (function ...)
wrapper.
e7905671 · Colin Walters · e95768c5 · e7905671 · e7905671
Commit e7905671 authored Nov 21, 2001 by Colin Walters
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/calc/calc-macs.el lisp/calc/calc-macs.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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))