mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-12 09:28:11 +00:00
Code

Release 6.34

Browse Source
This commit is contained in:
Carsten Dominik 2010-01-10 11:00:18 +01:00
parent 288c724335
commit a882a7031c
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org-latex.el
View File

@ -2232,19 +2232,3 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
;; arch-tag: 23c2b87d-da04-4c2d-ad2d-1eb6487bc3ad
;;; org-latex.el ends here
(defun org-export-latex-fix-inputenc ()
"Set the codingsystem in inputenc to what the buffer is."
(let* ((cs buffer-file-coding-system)
(opt (latexenc-coding-system-to-inputenc cs)))
(when opt
;; Translate if that is requested
(setq opt (or (cdr (assoc opt org-export-latex-inputenc-alist) opt)))
;; find the \usepackage statement and replace the option
(goto-char (point-min))
(while (re-search-forward "\\\\usepackage\\[\\(.*?\\)\\]{inputenc}"
nil t)
(goto-char (match-beginning 1))
(delete-region (match-beginning 1) (match-end 1))
(insert opt))
(save-buffer))))