From 73163718ca8ebfb0d03c04ce22a820594be9f8e4 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 22 May 2009 06:30:25 -0700 Subject: [PATCH] litorgy-execute-src-block will again stifle results when called with truthy ARG value --- litorgy/litorgy.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/litorgy/litorgy.el b/litorgy/litorgy.el index 8e234ac46..681c8923a 100644 --- a/litorgy/litorgy.el +++ b/litorgy/litorgy.el @@ -120,7 +120,9 @@ the header arguments specified at the source code block." (unless (member lang litorgy-interpreters) (error "Language is not in `litorgy-interpreters': %s" lang)) (setq result (funcall cmd body params)) - (litorgy-insert-result result (cdr (assoc :results params))) + (if arg + (message (format "%S" result)) + (litorgy-insert-result result (cdr (assoc :results params)))) result)) (defun litorgy-eval-buffer (&optional arg)