summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2014-03-14 16:15:57 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2014-03-14 16:15:57 +0100
commite3fa9355f39dbcfc38d5919d03e29035eed2525f (patch)
tree6d12681d2e0f730c8e2c2f37a4f00c4a009830c2
parentd49957ef021e256f19092c907d127390d39ec1ed (diff)
downloadorg-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.el5
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))))