瀏覽代碼

Newlines in macros can de defined using \n

Carsten Dominik 15 年之前
父節點
當前提交
b069091873
共有 2 個文件被更改,包括 10 次插入1 次删除
  1. 4 0
      lisp/ChangeLog
  2. 6 1
      lisp/org-exp.el

+ 4 - 0
lisp/ChangeLog

@@ -1,3 +1,7 @@
+2009-08-12  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-exp.el (org-export-interpolate-newlines): New function.
+
 2009-08-11  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org.el (org-format-latex): Avoid nested overlays.

+ 6 - 1
lisp/org-exp.el

@@ -742,9 +742,14 @@ modified) list.")
 	    (setq p (plist-put
 		     p (intern
 			(concat ":macro-" (downcase (match-string 1 val))))
-		     (match-string 2 val)))))
+		     (org-export-interpolate-newlines (match-string 2 val))))))
 	p))))
 
+(defun org-export-interpolate-newlines (s)
+  (while (string-match "\\\\n" s)
+    (setq s (replace-match "\n" t t s)))
+  s)
+
 (defvar org-export-allow-BIND-local nil)
 (defun org-export-confirm-letbind ()
   "Can we use #+BIND values during export?