Quellcode durchsuchen

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

Eric Schulte vor 16 Jahren
Ursprung
Commit
73163718ca
1 geänderte Dateien mit 3 neuen und 1 gelöschten Zeilen
  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)