Browse Source

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

Eric Schulte 16 năm trước cách đây
mục cha
commit
73163718ca
1 tập tin đã thay đổi với 3 bổ sung1 xóa
  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)