[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 2/3] ob-calc: don't leave garbage on the stack
From: |
Jan Malakhovski |
Subject: |
[O] [PATCH 2/3] ob-calc: don't leave garbage on the stack |
Date: |
Sun, 27 Dec 2015 14:47:55 +0000 |
* 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