forked from mirrors/org-mode
Keep byte compiler happy
This commit is contained in:
parent
4a38efc7e2
commit
15b7347953
|
@ -581,7 +581,7 @@ publishing directory."
|
|||
(let (e)
|
||||
(while (re-search-forward "\\\\\\([a-zA-Z]+[0-9]*\\)" nil t)
|
||||
(org-if-unprotected-at (match-beginning 1)
|
||||
(setq e (org-entity-get-representation (match-string 1 line)
|
||||
(setq e (org-entity-get-representation (match-string 1)
|
||||
org-export-ascii-entities))
|
||||
(and e (replace-match e t t))))))
|
||||
|
||||
|
|
|
@ -1354,7 +1354,7 @@ This function adds a label to the table if it is available, and
|
|||
also changes TABLE to informaltable if caption does not exist.
|
||||
TABLE is a string containing the HTML code generated by
|
||||
`org-format-table-html' for a table in Org-mode buffer."
|
||||
(let ((table-with-label label))
|
||||
(let (table-with-label)
|
||||
;; Get the label if it exists, and move it into the <table> element.
|
||||
(setq table-with-label
|
||||
(if (string-match
|
||||
|
|
|
@ -26,6 +26,8 @@
|
|||
;;
|
||||
;;; Commentary:
|
||||
|
||||
(declare-function org-table-align "org-table" ())
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
|
||||
|
@ -447,7 +449,7 @@ Kind can be any of `latex', `html', `ascii', `latin1', or `utf8'."
|
|||
(interactive)
|
||||
(let ((ll org-entities)
|
||||
(pos (point))
|
||||
e latex mathp html latin utf8)
|
||||
e latex mathp html latin utf8 name ascii)
|
||||
(insert "|Name|LaTeX code|LaTeX|HTML code |HTML|ASCII|Latin1|UTF-8\n|-\n")
|
||||
(while ll
|
||||
(setq e (pop ll))
|
||||
|
|
|
@ -15266,6 +15266,7 @@ Some of the options can be changed using the variable
|
|||
org-export-latex-packages-alist
|
||||
org-format-latex-header-extra))
|
||||
(insert "\n\\begin{document}\n" string "\n\\end{document}\n")
|
||||
(require 'org-latex)
|
||||
(org-export-latex-fix-inputenc))
|
||||
(let ((dir default-directory))
|
||||
(condition-case nil
|
||||
|
|
Loading…
Reference in New Issue