From 373cb5a37e2539320c3e23e2848dae1da46e0053 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 14 Jul 2012 12:05:20 +0200 Subject: [PATCH] org-export: Silence byte-compiler --- contrib/lisp/org-export.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 103a5889b..b0f3152bd 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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