mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-29 07:58:21 +00:00
1a480e01a4
* contrib/lisp/org-secretary.el (join): * contrib/lisp/ox-taskjuggler.el (org-taskjuggler-project-plan): * lisp/org-clock.el (org-resolve-clocks): * lisp/org-element.el (org-element--interpret-affiliated-keywords): * lisp/org-list.el (org-list-struct, org-list-get-item-number) (org-list-separating-blank-lines-number) (org-list-struct-fix-bul, org-list-struct-apply-struct): * lisp/org.el (org-agenda-files, org-toggle-heading): * lisp/ox-ascii.el (org-ascii-table-row): * lisp/ox-beamer.el (org-beamer--format-section) (org-beamer-template): * lisp/ox-odt.el (org-odt--render-image/formula): * testing/org-batch-test-init.el (load-path): Remove redundant 'function's around lambda.
21 lines
535 B
EmacsLisp
21 lines
535 B
EmacsLisp
;;
|
|
;; 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 (function (lambda (s)
|
|
(let ((sn (symbol-name s)))
|
|
(when (string-match "^\\(org\\|ob\\|ox\\)\\(-.*\\)?$" sn)
|
|
(setplist s nil)
|
|
(when (eq 'autoload (car-safe s))
|
|
(unintern s)))))))
|
|
|
|
;; we should now start from a clean slate
|