testing/org-batch-test-init.el

   1 ;;
   2 ;; Remove Org remnants built into Emacs
   3 ;;
   4
   5 ;; clean load-path
   6 (setq load-path
   7       (delq nil (mapcar
   8                  (function (lambda (p)
   9                              (unless (string-match "lisp\\(/packages\\)?/org$" p)
  10                                p)))
  11                  load-path)))
  12 ;; remove property list to defeat cus-load and remove autoloads
  13 (mapatoms (function  (lambda (s)
  14                        (let ((sn (symbol-name s)))
  15                          (when (string-match "^\\(org\\|ob\\|ox\\)\\(-.*\\)?$" sn)
  16                            (setplist s nil)
  17                            (when (eq 'autoload (car-safe s))
  18                              (unintern s)))))))
  19
  20 ;; we should now start from a clean slate