0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 14:02:55 +00:00

Fix bug with indentation interpretation during export

This commit is contained in:
Carsten Dominik 2009-06-08 19:57:19 +02:00
parent 28e95ee828
commit 5c30228ee0
3 changed files with 10 additions and 2 deletions

View file

@ -1,5 +1,11 @@
2009-06-08 Carsten Dominik <carsten.dominik@gmail.com> 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 * org-remember.el (org-remember-handler): Abort remember if the
buffer is empty. buffer is empty.

View file

@ -1151,7 +1151,8 @@ publishing directory."
(defvar local-list-indent) (defvar local-list-indent)
(defvar local-list-type) (defvar local-list-type)
(defun org-export-docbook-close-lists-maybe (line) (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) didclose)
(when ind (when ind
(while (and in-local-list (while (and in-local-list

View file

@ -1872,7 +1872,8 @@ If there are links in the string, don't modify these."
(defvar local-list-indent) (defvar local-list-indent)
(defvar local-list-type) (defvar local-list-type)
(defun org-export-html-close-lists-maybe (line) (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) didclose)
(when ind (when ind
(while (and in-local-list (while (and in-local-list