diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-12-09 09:54:42 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-12-09 09:54:42 +0100 |
| commit | 9966f922f3c684d731b611be69db21451585bf98 (patch) | |
| tree | 02aa88bcdfcabd3cbcb57a553f961c90e55af282 | |
| parent | c6a945e82cd0e2f4500fc2d468c45a80d5121cde (diff) | |
| download | org-mode-9966f922f3c684d731b611be69db21451585bf98.tar.gz | |
Do not break lists with blocks within when exporting
* lisp/org-list.el (org-list-top-point-with-indent,
org-list-bottom-point-with-indent): Pay also attention to
'original-indentation property of text, as blocks are put to column
0 upon exporting.
| -rw-r--r-- | lisp/org-list.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index abbaa5f..722a8a2 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -462,7 +462,8 @@ List ending is determined by indentation of text. See (forward-line -1) (catch 'exit (while t - (let ((ind (org-get-indentation))) + (let ((ind (+ (or (get-text-property (point) 'original-indentation) 0) + (org-get-indentation)))) (cond ((looking-at "^[ \t]*:END:") (throw 'exit item-ref)) @@ -502,7 +503,8 @@ List ending is determined by the indentation of text. See (catch 'exit (while t (skip-chars-forward " \t") - (let ((ind (org-get-indentation))) + (let ((ind (+ (or (get-text-property (point) 'original-indentation) 0) + (org-get-indentation)))) (cond ((or (>= (point) limit) (looking-at ":END:")) |