ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update property drawer and node property regexps 

* lisp/org.el (org-property-drawer-re, org-property-re): Update
  regexp.
This commit is contained in:
Nicolas Goaziou 2014-09-13 22:43:10 +02:00
parent f70439f190
commit 824faa7255
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org.el
View File

@ -420,8 +420,9 @@ Group 1 contains drawer's name or \"END\".")
"Regular expression matching the last line of a clock drawer.") "Regular expression matching the last line of a clock drawer.")
(defconst org-property-drawer-re (defconst org-property-drawer-re
(concat "\\(" org-property-start-re "\\)[^\000]*?\\(" (concat "^[ \t]*:PROPERTIES:[ \t]*\n"
org-property-end-re "\\)\n?") "\\(?:[ \t]*:\\S-+:\\(?: .*\\)?[ \t]*\n\\)*"
"[ \t]*:END:[ \t]*$")
"Matches an entire property drawer.") "Matches an entire property drawer.")
(defconst org-clock-drawer-re (defconst org-clock-drawer-re
@ -6278,7 +6279,7 @@ value and ALLOW-NULL is non-nil, it is set to the empty string."
"[ \t]+\\(?3:[^ \r\t\n]+.*?\\)\\(?5:[ \t]*\\)$"))) "[ \t]+\\(?3:[^ \r\t\n]+.*?\\)\\(?5:[ \t]*\\)$")))
(defconst org-property-re (defconst org-property-re
(org-re-property ".*?" 'literal t) (org-re-property "\\S-+" 'literal t)
"Regular expression matching a property line. "Regular expression matching a property line.
There are four matching groups: There are four matching groups:
1: :PROPKEY: including the leading and trailing colon, 1: :PROPKEY: including the leading and trailing colon,
@ -8628,10 +8629,6 @@ If yes, remember the marker and the distance to BEG."
(narrow-to-region (car blockp) (cdr blockp)) (narrow-to-region (car blockp) (cdr blockp))
(user-error "Not in a block")))) (user-error "Not in a block"))))
(eval-when-compile
(defvar org-property-drawer-re))
(defvar org-property-start-re) ;; defined below
(defun org-clone-subtree-with-time-shift (n &optional shift) (defun org-clone-subtree-with-time-shift (n &optional shift)
"Clone the task (subtree) at point N times. "Clone the task (subtree) at point N times.
The clones will be inserted as siblings. The clones will be inserted as siblings.