diff options
Diffstat (limited to 'lisp/org/org-element.el')
| -rw-r--r-- | lisp/org/org-element.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el index 6b2a83de8bd..c8096aa3963 100644 --- a/lisp/org/org-element.el +++ b/lisp/org/org-element.el | |||
| @@ -3808,7 +3808,8 @@ Elements are accumulated into ACC." | |||
| 3808 | 'section)) | 3808 | 'section)) |
| 3809 | (plain-list 'item) | 3809 | (plain-list 'item) |
| 3810 | (table 'table-row)) | 3810 | (table 'table-row)) |
| 3811 | (org-element-property :structure element) | 3811 | (and (memq type '(item plain-list)) |
| 3812 | (org-element-property :structure element)) | ||
| 3812 | granularity visible-only element)) | 3813 | granularity visible-only element)) |
| 3813 | ;; ELEMENT has contents. Parse objects inside, if | 3814 | ;; ELEMENT has contents. Parse objects inside, if |
| 3814 | ;; GRANULARITY allows it. | 3815 | ;; GRANULARITY allows it. |
| @@ -4249,8 +4250,11 @@ first element of current section." | |||
| 4249 | (plain-list | 4250 | (plain-list |
| 4250 | (setq special-flag 'item | 4251 | (setq special-flag 'item |
| 4251 | struct (org-element-property :structure element))) | 4252 | struct (org-element-property :structure element))) |
| 4252 | (table (setq special-flag 'table-row)) | 4253 | (item (setq special-flag nil)) |
| 4253 | (otherwise (setq special-flag nil))) | 4254 | (property-drawer |
| 4255 | (setq special-flag 'node-property struct nil)) | ||
| 4256 | (table (setq special-flag 'table-row struct nil)) | ||
| 4257 | (otherwise (setq special-flag nil struct nil))) | ||
| 4254 | (setq end cend) | 4258 | (setq end cend) |
| 4255 | (goto-char cbeg))))))))))) | 4259 | (goto-char cbeg))))))))))) |
| 4256 | 4260 | ||