From 6df9b6d78f82589af80c70bf1f027a275383a40c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 28 Oct 2009 18:35:33 +0000 Subject: * calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer. --- lisp/calc/calc-aent.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/calc/calc-aent.el') diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 22afd43a34..f0a56931be 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el @@ -414,8 +414,7 @@ The value t means abort and give an error message.") (interactive) (let* ((str (minibuffer-contents)) (exp (and (> (length str) 0) - (save-excursion - (set-buffer calc-buffer) + (with-current-buffer calc-buffer (math-read-exprs str))))) (if (eq (car-safe exp) 'error) (progn -- cgit v1.2.3