mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 11:32:51 +00:00
Revert "org-element: Simplify drawer and property drawer regexps"
This reverts commit 2b96501070
.
The regexp was actually incorrect and correcting it is not trivial.
This commit is contained in:
parent
1e8081aeec
commit
b1cb3b724a
11
lisp/org.el
11
lisp/org.el
|
@ -621,14 +621,9 @@ Group 1 contains drawer's name or \"END\".")
|
||||||
"Matches an entire LOGBOOK drawer.")
|
"Matches an entire LOGBOOK drawer.")
|
||||||
|
|
||||||
(defconst org-property-drawer-re
|
(defconst org-property-drawer-re
|
||||||
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=63225#62
|
(concat "^[ \t]*:PROPERTIES:[ \t]*\n"
|
||||||
(rx
|
"\\(?:[ \t]*:\\S-+:\\(?:[ \t].*\\)?[ \t]*\n\\)*?"
|
||||||
;; Drawer begin line.
|
"[ \t]*:END:[ \t]*$")
|
||||||
bol (0+ (in " \t")) ":PROPERTIES:" (0+ (in " \t")) "\n"
|
|
||||||
;; Node properties.
|
|
||||||
(*? (0+ (in " \t")) ":" (+ (not (in " \t\n:"))) ":" (* nonl) "\n")
|
|
||||||
;; Drawer end line.
|
|
||||||
(0+ (in " \t")) ":END:" (0+ (in " \t")) eol)
|
|
||||||
"Matches an entire property drawer.")
|
"Matches an entire property drawer.")
|
||||||
|
|
||||||
(defconst org-clock-drawer-re
|
(defconst org-clock-drawer-re
|
||||||
|
|
Loading…
Reference in a new issue