mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org-export: Silence byte-compiler

Browse Source
This commit is contained in:
Nicolas Goaziou 2012-07-14 12:05:20 +02:00
parent b6cb722377
commit 373cb5a37e
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
contrib/lisp/org-export.el
View File

@ -4027,18 +4027,6 @@ a string, or nil."
;; variable and a specified charset. `org-export-dictionary' contains
;; the dictionary used for the translation.
(defun org-export-translate (s encoding info)
"Translate string S according to language specification.
ENCODING is a symbol among `:ascii', `:html', `:latex', `:latin1'
and `:utf8'. INFO is a plist used as a communication channel.
Translation depends on `:language' property. If no translation
in found for a given language and a given encoding, return S."
(let ((lang (plist-get info :language))
(translations (cdr (assoc s org-export-dictionary))))
(or (plist-get (cdr (assoc lang translations)) encoding) s)))
(defconst org-export-dictionary
'(("Author"
("fr"
@ -4113,6 +4101,18 @@ function returns the string as-is if no translation was found,
the variable only needs to record values different from the
entry.")
(defun org-export-translate (s encoding info)
"Translate string S according to language specification.
ENCODING is a symbol among `:ascii', `:html', `:latex', `:latin1'
and `:utf8'. INFO is a plist used as a communication channel.
Translation depends on `:language' property. If no translation
in found for a given language and a given encoding, return S."
(let ((lang (plist-get info :language))
(translations (cdr (assoc s org-export-dictionary))))
(or (plist-get (cdr (assoc lang translations)) encoding) s)))
;;; The Dispatcher