diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el index 53547a052..1ee1e6f2f 100644 --- a/contrib/lisp/org-e-html.el +++ b/contrib/lisp/org-e-html.el @@ -43,40 +43,6 @@ ;;; Function Declarations -(declare-function org-element-get-property "org-element" (property element)) -(declare-function org-element-normalize-string "org-element" (s)) - -(declare-function org-export-data "org-export" (data info)) -(declare-function org-export-directory "org-export" (type plist)) -(declare-function org-export-expand-macro "org-export" (macro info)) -(declare-function org-export-first-sibling-p "org-export" (headline info)) -(declare-function org-export-footnote-first-reference-p "org-export" - (footnote-reference info)) -(declare-function org-export-get-coderef-format "org-export" (path desc)) -(declare-function org-export-get-footnote-definition "org-export" - (footnote-reference info)) -(declare-function org-export-get-footnote-number "org-export" (footnote info)) -(declare-function org-export-get-previous-element "org-export" (blob info)) -(declare-function org-export-get-relative-level "org-export" (headline info)) -(declare-function org-export-handle-code - "org-export" (element info &optional num-fmt ref-fmt delayed)) -(declare-function org-export-inline-image-p "org-export" - (link &optional extensions)) -(declare-function org-export-last-sibling-p "org-export" (headline info)) -(declare-function org-export-low-level-p "org-export" (headline info)) -(declare-function org-export-output-file-name - "org-export" (extension &optional subtreep pub-dir)) -(declare-function org-export-resolve-coderef "org-export" (ref info)) -(declare-function org-export-resolve-fuzzy-link "org-export" (link info)) -(declare-function org-export-resolve-radio-link "org-export" (link info)) -(declare-function org-export-solidify-link-text "org-export" (s)) -(declare-function - org-export-to-buffer "org-export" - (backend buffer &optional subtreep visible-only body-only ext-plist)) -(declare-function - org-export-to-file "org-export" - (backend file &optional subtreep visible-only body-only ext-plist)) - (declare-function org-id-find-id-file "org-id" (id)) (declare-function htmlize-region "ext:htmlize" (beg end)) (declare-function org-pop-to-buffer-same-window @@ -1252,10 +1218,6 @@ ATTR is a string of other attributes of the \"a\" element." ;;;; Table -(defun org-e-html-format-table (lines olines) - (let ((org-e-html-format-table-no-css nil)) - (org-lparse-format-table lines olines))) - (defun org-e-html-splice-attributes (tag attributes) "Read attributes in string ATTRIBUTES, add and replace in HTML tag TAG." (if (not attributes) @@ -1364,7 +1326,7 @@ that uses these same face definitions." text (and tags "   ") (org-e-html--tags tags)))) (format "%s" - (org-solidify-link-text headline-label) + (org-export-solidify-link-text headline-label) (if (not nil) headline (format "%s" todo-type headline)))))