Commits

Joe Bogner committed 59ccc68

fix bug with properties not starting on beginning of line

Comments (0)

Files changed (1)

       (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)