Source

pico-org / org.l

Diff from to
       (cons Props (reverse NewBody)))))
 
 (de org-parse-properties (Body)
-   (let  (PropertyStart (cdr (seek '((Line) (or (pre? ":PROPERTIES:" Line) (match '(@A ~(chop ":PROPERTIES:") (chop Line))))) Body))
+   (let  (PropertyStart (cdr (seek '((Line) (match '(@A ~(chop ":PROPERTIES:")) (chop (car Line)))) Body))
          Properties (collectUntil PropertyStart '((Line) (pre? ":END:" 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)