tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Add some autoload cookies 

* lisp/ox.el (org-export-get-backend): Autoload.  Small refactoring.
(org-export-get-environment): Autoload.
This commit is contained in:
Nicolas Goaziou 2017-01-21 11:44:29 +01:00
parent 53bc58c433
commit 4b3fbeef2b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ox.el
View File

@ -996,13 +996,12 @@ mode."
(:copier nil)) (:copier nil))
name parent transcoders options filters blocks menu) name parent transcoders options filters blocks menu)
;;;###autoload
(defun org-export-get-backend (name) (defun org-export-get-backend (name)
"Return export back-end named after NAME. "Return export back-end named after NAME.
NAME is a symbol. Return nil if no such back-end is found." NAME is a symbol. Return nil if no such back-end is found."
(catch 'found (cl-find-if (lambda (b) (and (eq name (org-export-backend-name b))))
(dolist (b org-export-registered-backends) org-export-registered-backends))
(when (eq (org-export-backend-name b) name)
(throw 'found b)))))
(defun org-export-register-backend (backend) (defun org-export-register-backend (backend)
"Register BACKEND as a known export back-end. "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 ;; along with their value in order to set them as buffer local
;; variables later in the process. ;; variables later in the process.
;;;###autoload
(defun org-export-get-environment (&optional backend subtreep ext-plist) (defun org-export-get-environment (&optional backend subtreep ext-plist)
"Collect export options from the current buffer. "Collect export options from the current buffer.