Commits

Joe Bogner committed 217ce3f

fix bug where properties :END: not on start of line was cutting off body

Comments (0)

Files changed (1)

 
 (de org-parse-properties (Body)
    (let  (PropertyStart (cdr (seek '((Line) (match '(@A ~(chop ":PROPERTIES:")) (chop (car Line)))) Body))
-         Properties (collectUntil PropertyStart '((Line) (pre? ":END:" Line)))
+         Properties (collectUntil PropertyStart '((Line) (match '(@A ~(chop ":END:")) (chop (car Line)))))
          Props (mapcar '((X) (match '(":" @A ":" " " @B) (chop X)) (list (pack @A) (pack @B)))  Properties)
-         NewBody (if Properties (cdr (seek '((Line) (pre? ":END:" Line)) Body)) Body)
+         NewBody (if Properties (cdr (seek '((Line) (match '(@A ~(chop ":END:")) (chop (car Line)))) Body)) Body)
          SpecialPropsRet (org-parse-special-props NewBody)
          AllProps (union Props (car SpecialPropsRet))
          NewBody (cdr SpecialPropsRet))