From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jan Malakhovski Subject: [PATCH 2/3] ob-calc: don't leave garbage on the stack Date: Sun, 27 Dec 2015 14:47:55 +0000 Message-ID: <1451227676-10899-3-git-send-email-oxij@oxij.org> References: <1451227676-10899-1-git-send-email-oxij@oxij.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57814) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aDCcT-0005lV-NP for emacs-orgmode@gnu.org; Sun, 27 Dec 2015 09:48:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aDCcS-0008CN-VZ for emacs-orgmode@gnu.org; Sun, 27 Dec 2015 09:48:25 -0500 Received: from tricoro.koumakan.jp ([195.154.188.176]:55275) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aDCcS-0008C1-PJ for emacs-orgmode@gnu.org; Sun, 27 Dec 2015 09:48:24 -0500 In-Reply-To: <1451227676-10899-1-git-send-email-oxij@oxij.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Jan Malakhovski * lisp/ob-calc.el (org-babel-calc-eval-string): Clean up the stack after expression evaluation. --- lisp/ob-calc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el index a8c50da..99d0a09 100644 --- a/lisp/ob-calc.el +++ b/lisp/ob-calc.el @@ -89,7 +89,9 @@ (split-string (org-babel-expand-body:calc body params) "[\n\r]")))) (save-excursion (with-current-buffer (get-buffer "*Calculator*") - (calc-eval (calc-top 1))))) + (prog1 + (calc-eval (calc-top 1)) + (calc-pop 1))))) (defun org-babel-calc-maybe-resolve-var (el) (if (consp el) -- 2.6.4