|
@@ -1705,7 +1705,7 @@ These special cookies will later be interpreted by the backend."
|
|
|
;; `org-list-struct' pays attention to it when reading a
|
|
|
;; list.
|
|
|
(insert (org-add-props
|
|
|
- "ORG-LIST-END\n"
|
|
|
+ "ORG-LIST-END-MARKER\n"
|
|
|
(list 'original-indentation top-ind)))))))
|
|
|
(cons nil org-list-export-context))))
|
|
|
|
|
@@ -1750,20 +1750,20 @@ These special properties will later be interpreted by the backend."
|
|
|
;; marked. Now mark every list ending and add properties
|
|
|
;; useful to line processing exporters.
|
|
|
(goto-char bottom)
|
|
|
- (when (or (looking-at "^ORG-LIST-END\n")
|
|
|
+ (when (or (looking-at "^ORG-LIST-END-MARKER\n")
|
|
|
(and (not (eq org-list-ending-method 'indent))
|
|
|
(looking-at org-list-end-re)))
|
|
|
(replace-match ""))
|
|
|
(unless (bolp) (insert "\n"))
|
|
|
(insert
|
|
|
- (org-add-props "ORG-LIST-END\n" (list 'list-item bottom
|
|
|
+ (org-add-props "ORG-LIST-END-MARKER\n" (list 'list-item bottom
|
|
|
'list-struct struct
|
|
|
'list-prevs prevs)))
|
|
|
;; Following property is used by LaTeX exporter.
|
|
|
(add-text-properties top (point) (list 'list-context ctxt)))))))
|
|
|
;; Mark lists except for backends not interpreting them.
|
|
|
(unless (eq backend 'ascii)
|
|
|
- (let ((org-list-end-re "^ORG-LIST-END\n"))
|
|
|
+ (let ((org-list-end-re "^ORG-LIST-END-MARKER\n"))
|
|
|
(mapc
|
|
|
(lambda (e)
|
|
|
(goto-char (point-min))
|