diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-14 16:15:57 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-14 16:15:57 +0100 |
commit | e3fa9355f39dbcfc38d5919d03e29035eed2525f (patch) | |
tree | 6d12681d2e0f730c8e2c2f37a4f00c4a009830c2 | |
parent | d49957ef021e256f19092c907d127390d39ec1ed (diff) | |
download | org-mode-e3fa9355f39dbcfc38d5919d03e29035eed2525f.tar.gz |
org-element: Tiny fix
* lisp/org-element.el (org-element--list-struct): Fix regexp. Small
refactoring.
-rw-r--r-- | lisp/org-element.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 27e9bda..275b013 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1284,10 +1284,9 @@ CONTENTS is the contents of the element." (throw 'exit (sort struct 'car-less-than-car)))))) ;; Skip blocks (any type) and drawers contents. (cond - ((and (looking-at "\\(?:[ \t]*\\)?#\\+BEGIN\\(:\\|_\\S-+\\)") + ((and (looking-at "#\\+BEGIN\\(:\\|_\\S-+\\)") (re-search-forward - (format "^[ \t]*#\\+END%s[ \t]*$" - (org-match-string-no-properties 1)) + (format "^[ \t]*#\\+END%s[ \t]*$" (match-string 1)) limit t))) ((and (looking-at org-drawer-regexp) (re-search-forward "^[ \t]*:END:[ \t]*$" limit t)))) |