1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
org-mode/testing/org-batch-test-init.el
Ihor Radchenko e3348ccc03
org-batch-test-init: Remove dead code
* testing/org-batch-test-init.el (lambda): Remove the code that has
never been working.  One could still rewrite the code using
`autoloadp', but it would break things terribly and should not be
needed as autoload does not need to be updated after changing the
`load-path'.  See
https://orgmode.org/list/jwvedwczhbv.fsf-monnier+emacs@gnu.org
2022-09-16 11:33:26 +08:00

19 lines
489 B
EmacsLisp

;; -*- lexical-binding: t; -*-
;; Remove Org remnants built into Emacs
;;
;; clean load-path
(setq load-path
(delq nil (mapcar
(lambda (p)
(unless (string-match "lisp\\(/packages\\)?/org$" p)
p))
load-path)))
;; remove property list to defeat cus-load and remove autoloads
(mapatoms (lambda (s)
(let ((sn (symbol-name s)))
(when (string-match "\\`\\(org\\|ob\\|ox\\)\\(-.*\\)?\\'" sn)
(setplist s nil)))))
;; we should now start from a clean slate