diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 8d96d34fc..b9294e59a 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -3970,7 +3970,7 @@ Return an error if key pressed has no associated command." (?q nil) ;; Export with `e-ascii' back-end. ((?A ?N ?U) - (require 'org-e-ascii "./org-e-ascii.el") + (require 'org-e-ascii) (let ((outbuf (org-export-to-buffer 'e-ascii "*Org E-ASCII Export*" @@ -3981,13 +3981,13 @@ Return an error if key pressed has no associated command." (when org-export-show-temporary-export-buffer (switch-to-buffer-other-window outbuf)))) ((?a ?n ?u) - (require 'org-e-ascii "./org-e-ascii.el") + (require 'org-e-ascii) (org-e-ascii-export-to-ascii (memq 'subtree optns) (memq 'visible optns) (memq 'body optns) `(:ascii-charset ,(case raw-key (?a 'ascii) (?n 'latin1) (t 'utf-8))))) ;; Export with `e-latex' back-end. (?L - (require 'org-e-latex "./org-e-latex.el") + (require 'org-e-latex) (let ((outbuf (org-export-to-buffer 'e-latex "*Org E-LaTeX Export*" @@ -3996,22 +3996,22 @@ Return an error if key pressed has no associated command." (when org-export-show-temporary-export-buffer (switch-to-buffer-other-window outbuf)))) (?l - (require 'org-e-latex "./org-e-latex.el") + (require 'org-e-latex) (org-e-latex-export-to-latex - (require 'org-e-latex "./org-e-latex.el") + (require 'org-e-latex) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (?p - (require 'org-e-latex "./org-e-latex.el") + (require 'org-e-latex) (org-e-latex-export-to-pdf (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (?d - (require 'org-e-latex "./org-e-latex.el") + (require 'org-e-latex) (org-open-file (org-e-latex-export-to-pdf (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) ;; Export with `e-html' back-end. (?H - (require 'org-e-html "./org-e-html.el") + (require 'org-e-html) (let ((outbuf (org-export-to-buffer 'e-html "*Org E-HTML Export*" @@ -4022,40 +4022,40 @@ Return an error if key pressed has no associated command." (when org-export-show-temporary-export-buffer (switch-to-buffer-other-window outbuf)))) (?h - (require 'org-e-html "./org-e-html.el") + (require 'org-e-html) (org-e-html-export-to-html (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (?b - (require 'org-e-html "./org-e-html.el") + (require 'org-e-html) (org-open-file (org-e-html-export-to-html (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) ;; Export with `e-odt' back-end. (?o - (require 'org-e-odt "./org-e-odt.el") + (require 'org-e-odt) (org-e-odt-export-to-odt (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (?O - (require 'org-e-odt "./org-e-odt.el") + (require 'org-e-odt) (org-open-file (org-e-odt-export-to-odt (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) ;; Publishing facilities (?F - (require 'org-e-publish "./org-e-publish.el") + (require 'org-e-publish) (org-e-publish-current-file (memq 'force optns))) (?P - (require 'org-e-publish "./org-e-publish.el") + (require 'org-e-publish) (org-e-publish-current-project (memq 'force optns))) (?X - (require 'org-e-publish "./org-e-publish.el") + (require 'org-e-publish) (let ((project (assoc (org-icompleting-read "Publish project: " org-e-publish-project-alist nil t) org-e-publish-project-alist))) (org-e-publish project (memq 'force optns)))) (?E - (require 'org-e-publish "./org-e-publish.el") + (require 'org-e-publish) (org-e-publish-all (memq 'force optns))) ;; Undefined command. (t (error "No command associated with key %s"