فهرست منبع

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?