;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

(add-to-list 'load-path "/home/pip/git/org-mode/lisp")
(require 'org)
(find-file "/home/pip/git/org-mode/lisp/org.el")
(eval-buffer)
(find-file "/home/pip/git/org-mode/lisp/org-colview.el")
(eval-buffer)
(find-file "/home/pip/emacs-bug-002.org")
(org-columns)
;; (defun runtest2 ()
;;     (funcall (org-compactor-context "prop" (list (list 'sexp 'x))) "prop" (lambda ()) t))
;; (runtest2)

;; (defun runtest (elisp)
;;   (let ((f `(lambda ()
;;               (let ((debugger #'org-elisp-debugger)
;;                     (debug-on-next-call t))
;;                 (setq debug-on-next-call t)
;;                 (message "%S" ',elisp)))))
;;     (funcall f)))

;; (runtest (list (list 'sexp 'x)))