Procházet zdrojové kódy

code blocks default to only exporting code

Eric Schulte před 16 roky
rodič
revize
e140849b49
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      litorgy/litorgy-exp.el

+ 1 - 1
litorgy/litorgy-exp.el

@@ -69,7 +69,7 @@ options and are taken from `litorgy-inline-header-args'."
         (replace-match replacement t t)))))
 
 (defun litorgy-exp-do-export (lang body params &optional inline)
-  (case (intern (or (cdr (assoc :exports params)) "both"))
+  (case (intern (or (cdr (assoc :exports params)) "code"))
           ('none "")
           ('code (litorgy-exp-code body lang params inline))
           ('results (litorgy-exp-results body lang params inline))