From 516d3e90613c5910d6af34842aa613275344d924 Mon Sep 17 00:00:00 2001 From: "Diogo F. S. Ramos" Date: Thu, 11 Apr 2013 18:56:30 -0300 Subject: Evaluate last expression to buffer with a prefix Use a prefix before pressing C-x C-e to print the result of evaluating the expression before mark to the current buffer. --- elisp/geiser-eval.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'elisp/geiser-eval.el') diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index dd0e45d..5d61580 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -173,6 +173,16 @@ module-exports, autodoc, callers, callees and generic-methods.") (concat "=> " (mapconcat 'identity values "\n=> ")) "(No value)"))) +(defun geiser-eval--retort-result-list (ret) + "Return the list of results." + (cdr (assoc 'result ret))) + +(defun geiser-eval--retort-result-to-buffer (ret) + "Return a string formated for printing to buffer." + (mapconcat 'identity + (geiser-eval--retort-result-list ret) + "\n")) + (defsubst geiser-eval--retort-output (ret) (cdr (assoc 'output ret))) (defsubst geiser-eval--retort-error (ret) (cdr (assoc 'error ret))) -- cgit v1.2.3