| 12345678910111213141516171819202122 |
- ;; -*- 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)
- ;; FIXME: `s' is a symbol, so (car-safe s) is always nil.
- ;;(when (eq 'autoload (car-safe s))
- ;; (unintern s obarray))
- ))))
- ;; we should now start from a clean slate
|
