Commits

Joe Bogner committed d64c1d9

remove testing lines

  • Participants
  • Parent commits da42eb2

Comments (0)

Files changed (1)

-(setq Lines '("* ABC" "blah" "blah" "* foo"))
-(setq Lines '("* h1" "blah blah blah" "more" "** h1-1" "body" "* h2" "** h2-1" "asdfasdf" "* h3"))
-(setq Lines '("* h1" "blah blah blah" "more" "** h1-1" "body2" "*** h3" "more body"))
-
 
 (de collectUntil (Lst Func)
 	(let (Ret NIL) (find '((X) (if (Func X) T (push 'Ret X) NIL)) Lst) (reverse Ret)))
        (reverse Lst)))
 
 (de testing ()
+	(setq Lines '("* ABC" "blah" "blah" "* foo"))
+	(setq Lines '("* h1" "blah blah blah" "more" "** h1-1" "body" "* h2" "** h2-1" "asdfasdf" "* h3"))
+	(setq Lines '("* h1" "blah blah blah" "more" "** h1-1" "body2" "*** h3" "more body"))
+
 	(setq Org (org-parse Lines 0))
 	(printsp Org)