瀏覽代碼

Release 6.34

Carsten Dominik 15 年之前
父節點
當前提交
a882a7031c
共有 1 個文件被更改,包括 0 次插入16 次删除
  1. 0 16
      lisp/org-latex.el

+ 0 - 16
lisp/org-latex.el

@@ -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))))