Преглед изворни кода

litorgy-execute-src-block will again stifle results when called with truthy ARG value

Eric Schulte пре 16 година
родитељ
комит
73163718ca
1 измењених фајлова са 3 додато и 1 уклоњено
  1. 3 1
      litorgy/litorgy.el

+ 3 - 1
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)