diff options
| author | Bastien Guerry <bzg@gnu.org> | 2013-01-08 15:27:18 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@gnu.org> | 2013-01-08 15:27:18 +0100 |
| commit | c7cf0ebc24d66371c8d48ad72f65e72a2a027f06 (patch) | |
| tree | dc95a8d996cf93343213c03668485a8750182648 /lisp/org/org-element.el | |
| parent | 06364e6463b654038ca3290fec6a37d1ca69700c (diff) | |
| download | emacs-c7cf0ebc24d66371c8d48ad72f65e72a2a027f06.tar.gz emacs-c7cf0ebc24d66371c8d48ad72f65e72a2a027f06.tar.bz2 emacs-c7cf0ebc24d66371c8d48ad72f65e72a2a027f06.zip | |
Merge Org 7.9.3 (commit 31c1aea)
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." 'section)) (plain-list 'item) (table 'table-row)) - (org-element-property :structure element) + (and (memq type '(item plain-list)) + (org-element-property :structure element)) granularity visible-only element)) ;; ELEMENT has contents. Parse objects inside, if ;; GRANULARITY allows it. @@ -4249,8 +4250,11 @@ first element of current section." (plain-list (setq special-flag 'item struct (org-element-property :structure element))) - (table (setq special-flag 'table-row)) - (otherwise (setq special-flag nil))) + (item (setq special-flag nil)) + (property-drawer + (setq special-flag 'node-property struct nil)) + (table (setq special-flag 'table-row struct nil)) + (otherwise (setq special-flag nil struct nil))) (setq end cend) (goto-char cbeg))))))))))) |