Merge remote-tracking branch 'origin/master'
[org-mode.git] / testing / org-batch-test-init.el
blob863875617939c4f6a3267cabec7dd7cc4baaa5a1
1 ;;
2 ;; Remove Org remnants built into Emacs
3 ;;
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)))))))
20 ;; we should now start from a clean slate