From b68c61e829b8521629159c334f345597f66687cd Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 12 Mar 2010 17:29:41 +0100 Subject: [PATCH] Fix problem with a missing function in XEmacs `latexenc-coding-system-to-inputenc' does not seem to be available in XEmacs. --- lisp/ChangeLog | 2 ++ lisp/org-latex.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1801ead43..28febc170 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,8 @@ author line. (org-export-latex-fontify-headline): Allow several arguments, not just one. + (org-export-latex-fix-inputenc): Catch the error when + `latexenc-coding-system-to-inputenc' is not defined. * org-agenda.el (org-agenda-skip-if-todo): New function. (org-agenda-skip-if): Add conditions for TODO keywords. diff --git a/lisp/org-latex.el b/lisp/org-latex.el index ac15ccce7..1f697d535 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -2128,7 +2128,8 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (defun org-export-latex-fix-inputenc () "Set the codingsystem in inputenc to what the buffer is." (let* ((cs buffer-file-coding-system) - (opt (or (latexenc-coding-system-to-inputenc cs) "utf8"))) + (opt (or (ignore-errors (latexenc-coding-system-to-inputenc cs)) + "utf8"))) (when opt ;; Translate if that is requested (setq opt (or (cdr (assoc opt org-export-latex-inputenc-alist)) opt))