Eric Abrahamsen <e...@ericabrahamsen.net> writes: > Eric Abrahamsen <e...@ericabrahamsen.net> writes: > >> Currently, this function goes to a lot of trouble to concatenate a >> complicated regexp to find metadata and drawers, and then doesn't use >> it. As it stands, if you put point in a headline that has a property >> drawer and then call =(org-end-of-meta-data-and-drawers)=, point moves >> to the *beginning* of the property drawer -- obviously not what you >> want. > > Dammit this is still not right, hang on a second…
Okay, this should be right, sorry about that.
diff --git a/lisp/org.el b/lisp/org.el index 777850a..ee0b88c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19992,7 +19992,7 @@ clocking lines, and drawers." "\\|" "\\([ \t]*\\(" org-keyword-time-regexp "\\)\\)"))) (forward-line 1) - (while (looking-at (concat "[ \t]*\\(" org-keyword-time-regexp "\\)")) + (while (looking-at re) (if (not (match-end 1)) ;; empty or planning line (forward-line 1)