mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2010-12-09 09:54:42 +01:00
parent c6a945e82c
commit 9966f922f3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-list.el
View File

@ -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:"))