瀏覽代碼

Fix bug with indentation interpretation during export

Carsten Dominik 16 年之前
父節點
當前提交
5c30228ee0
共有 3 個文件被更改,包括 10 次插入2 次删除
  1. 6 0
      lisp/ChangeLog
  2. 2 1
      lisp/org-docbook.el
  3. 2 1
      lisp/org-html.el

+ 6 - 0
lisp/ChangeLog

@@ -1,5 +1,11 @@
 2009-06-08  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-docbook.el (org-export-docbook-close-lists-maybe): Also look
+	at normal indentation.
+
+	* org-html.el (org-export-html-close-lists-maybe): Also look at
+	normal indentation.
+
 	* org-remember.el (org-remember-handler): Abort remember if the
 	buffer is empty.
 

+ 2 - 1
lisp/org-docbook.el

@@ -1151,7 +1151,8 @@ publishing directory."
 (defvar local-list-indent)
 (defvar local-list-type)
 (defun org-export-docbook-close-lists-maybe (line)
-  (let ((ind (get-text-property 0 'original-indentation line))
+  (let ((ind (or (get-text-property 0 'original-indentation line)
+		 (org-get-indentation line)))
 	didclose)
     (when ind
       (while (and in-local-list

+ 2 - 1
lisp/org-html.el

@@ -1872,7 +1872,8 @@ If there are links in the string, don't modify these."
 (defvar local-list-indent)
 (defvar local-list-type)
 (defun org-export-html-close-lists-maybe (line)
-  (let ((ind (get-text-property 0 'original-indentation line))
+  (let ((ind (or (get-text-property 0 'original-indentation line)
+		 (org-get-indentation line)))
 	didclose)
     (when ind
       (while (and in-local-list