From e7905671636b89df3abd3d46b94d1f0ceb6f6255 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Wed, 21 Nov 2001 06:24:04 +0000 Subject: [PATCH] (calc-slow-wrapper): Move (point) call outside of (function ...) wrapper. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-macs.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf2fc4aa007..8b6a6b97e3d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-11-21 Colin Walters + + * calc/calc-macs.el (calc-slow-wrapper): Move (point) call outside + of (function ...) wrapper. + 2001-11-20 Stefan Monnier * derived.el (define-derived-mode): Create the abbrev-table diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el index 0aee9556aef..313331ba820 100644 --- 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)) -- 2.39.5