Przeglądaj źródła

Fix bug with indentation interpretation during export

Carsten Dominik 16 lat temu
rodzic
commit
5c30228ee0
3 zmienionych plików z 10 dodań i 2 usunięć
  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