diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-21 11:44:29 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-21 11:44:29 +0100 |
commit | 4b3fbeef2bc6fb5ac7c2bed617ce64b1451a8224 (patch) | |
tree | 36da84aaa0ecb265863524726b61a51beb6ad9ea | |
parent | 53bc58c433a68b21ac80ce3c7a8f208aafe38b4b (diff) | |
download | org-mode-4b3fbeef2bc6fb5ac7c2bed617ce64b1451a8224.tar.gz |
ox: Add some autoload cookies
* lisp/ox.el (org-export-get-backend): Autoload. Small refactoring.
(org-export-get-environment): Autoload.
-rw-r--r-- | lisp/ox.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -996,13 +996,12 @@ mode." (:copier nil)) name parent transcoders options filters blocks menu) +;;;###autoload (defun org-export-get-backend (name) "Return export back-end named after NAME. NAME is a symbol. Return nil if no such back-end is found." - (catch 'found - (dolist (b org-export-registered-backends) - (when (eq (org-export-backend-name b) name) - (throw 'found b))))) + (cl-find-if (lambda (b) (and (eq name (org-export-backend-name b)))) + org-export-registered-backends)) (defun org-export-register-backend (backend) "Register BACKEND as a known export back-end. @@ -1332,6 +1331,7 @@ The back-end could then be called with, for example: ;; along with their value in order to set them as buffer local ;; variables later in the process. +;;;###autoload (defun org-export-get-environment (&optional backend subtreep ext-plist) "Collect export options from the current buffer. |