1 ;;; latexenc.el --- guess correct coding system in LaTeX files -*-coding: iso-2022-7bit -*-
3 ;; Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 ;; Author: Arne J\e,Ax\e(Brgensen <arne@arnested.dk>
6 ;; Keywords: mule, coding system, latex
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;; This code tries to guess the correct coding system of a LaTeX file.
27 ;; First it searches for a \inputencoding{...} or
28 ;; \usepackage[...]{inputenc} line in the file and looks up the ... in
29 ;; `latex-inputenc-coding-alist' to find the corresponding coding
32 ;; If this fails it will search for AUCTeX's TeX-master or tex-mode's
33 ;; tex-main-file variable in the local variables section and visit
34 ;; that file to get the coding system from the master file. This check
35 ;; can be disabled by setting `latexenc-dont-use-TeX-master-flag' to
38 ;; If we have still not found a coding system we will try to use the
39 ;; standard tex-mode's `tex-guess-main-file' and get the coding system
40 ;; from the main file. This check can be disabled by setting
41 ;; `latexenc-dont-use-tex-guess-main-file-flag' to t.
43 ;; The functionality is enabled by adding the function
44 ;; `latexenc-find-file-coding-system' to `file-coding-system-alist'
47 ;; (add-to-list 'file-coding-system-alist
48 ;; '("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system))
53 (defcustom latex-inputenc-coding-alist
54 '(("ansinew" . windows-1252
) ; MS Windows ANSI encoding, extension of Latin-1
55 ("applemac" . mac-roman
)
57 ("cp1250" . windows-1250
) ; MS Windows encoding, codepage 1250
58 ("cp1252" . windows-1252
) ; synonym of ansinew
60 ("cp437de" . cp437
) ; IBM code page 437 (German version): 225 is \ss
61 ("cp437" . cp437
) ; IBM code page 437: 225 is \beta
62 ("cp850" . cp850
) ; IBM code page 850
63 ("cp852" . cp852
) ; IBM code page 852
64 ("cp858" . cp858
) ; IBM code page 850 but with a euro symbol
65 ("cp865" . cp865
) ; IBM code page 865
66 ;; The DECMultinational charaterset used by the OpenVMS system
67 ;; ("decmulti" . undecided)
68 ("latin1" . iso-8859-1
)
69 ("latin2" . iso-8859-2
)
70 ("latin3" . iso-8859-3
)
71 ("latin4" . iso-8859-4
)
72 ("latin5" . iso-8859-5
)
73 ("latin9" . iso-8859-15
)
74 ;; ("latin10" . undecided)
75 ;; ("macce" . undecided) ; Apple Central European
76 ("next" . next
) ; The Next encoding
78 ("utf8x" . utf-8
)) ; used by the Unicode LaTeX package
79 "Mapping from LaTeX encodings in \"inputenc.sty\" to Emacs coding systems.
80 LaTeX encodings are specified with \"\\usepackage[encoding]{inputenc}\".
81 Used by the function `latexenc-find-file-coding-system'."
84 :type
'(alist :key-type
(string :tag
"LaTeX input encoding")
85 :value-type
(coding-system :tag
"Coding system")))
88 (defun latexenc-inputenc-to-coding-system (inputenc)
89 "Return the corresponding coding-system for the specified input encoding.
90 Return nil if no matching coding system can be found."
91 (cdr (assoc inputenc latex-inputenc-coding-alist
)))
94 (defun latexenc-coding-system-to-inputenc (cs)
95 "Return the corresponding input encoding for the specified coding system.
96 Return nil if no matching input encoding can be found."
99 (dolist (elem latex-inputenc-coding-alist result
)
100 (let ((elem-cs (cdr elem
)))
101 (when (and (coding-system-p elem-cs
)
103 (eq (coding-system-base cs
) (coding-system-base elem-cs
)))
104 (setq result
(car elem
))
105 (throw 'result result
)))))))
107 (defvar latexenc-dont-use-TeX-master-flag nil
108 "Non-nil means don't follow TeX-master to find the coding system.")
110 (defvar latexenc-dont-use-tex-guess-main-file-flag nil
111 "Non-nil means don't use tex-guessmain-file to find the coding system.")
114 (defun latexenc-find-file-coding-system (arg-list)
115 "Determine the coding system of a LaTeX file if it uses \"inputenc.sty\".
116 The mapping from LaTeX's \"inputenc.sty\" encoding names to Emacs
117 coding system names is determined from `latex-inputenc-coding-alist'."
118 (if (eq (car arg-list
) 'insert-file-contents
)
120 ;; try to find the coding system in this file
121 (goto-char (point-min))
123 (let ((case-fold-search nil
))
124 (while (search-forward "inputenc" nil t
)
125 (goto-char (match-beginning 0))
127 (if (or (looking-at "[^%\n]*\\\\usepackage\\[\\([^]]*\\)\\]{\\([^}]*,\\)?inputenc\\(,[^}]*\\)?}")
128 (looking-at "[^%\n]*\\\\inputencoding{\\([^}]*\\)}"))
130 (goto-char (match-end 0))))))
131 (let* ((match (match-string 1))
132 (sym (or (latexenc-inputenc-to-coding-system match
)
135 ((coding-system-p sym
) sym
)
136 ((and (require 'code-pages nil t
) (coding-system-p sym
)) sym
)
138 ;; else try to find it in the master/main file
140 ;; Fixme: If the current file is in an archive (e.g. tar,
141 ;; zip), we should find the master file in that archive.
142 ;; But, that is not yet implemented. -- K.Handa
143 (let ((default-directory (if (stringp (nth 1 arg-list
))
144 (file-name-directory (nth 1 arg-list
))
147 ;; Is there a TeX-master or tex-main-file in the local variables
149 (unless latexenc-dont-use-TeX-master-flag
150 (goto-char (point-max))
151 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min))
153 (search-forward "Local Variables:" nil t
)
154 (when (re-search-forward
155 "^%+ *\\(TeX-master\\|tex-main-file\\): *\"\\(.+\\)\""
157 (let ((file (match-string 2)))
158 (dolist (ext `("" ,(if (boundp 'TeX-default-extension
)
159 (concat "." TeX-default-extension
)
161 ".tex" ".ltx" ".dtx" ".drv"))
162 (if (and (null latexenc-main-file
) ;Stop at first.
163 (file-exists-p (concat file ext
)))
164 (setq latexenc-main-file
(concat file ext
)))))))
165 ;; try tex-modes tex-guess-main-file
166 (when (and (not latexenc-dont-use-tex-guess-main-file-flag
)
167 (not latexenc-main-file
))
168 ;; Use a separate `when' so the byte-compiler sees the fboundp.
169 (when (fboundp 'tex-guess-main-file
)
170 (let ((tex-start-of-header "\\\\document\\(style\\|class\\)"))
171 (setq latexenc-main-file
(tex-guess-main-file)))))
172 ;; if we found a master/main file get the coding system from it
173 (if (and latexenc-main-file
174 (file-regular-p latexenc-main-file
)
175 (file-readable-p latexenc-main-file
))
176 (let* ((latexenc-dont-use-tex-guess-main-file-flag t
)
177 (latexenc-dont-use-TeX-master-flag t
)
178 (latexenc-main-buffer
179 (find-file-noselect latexenc-main-file t
)))
180 (coding-system-base ;Disregard the EOL part of the CS.
181 (with-current-buffer latexenc-main-buffer
182 (or coding-system-for-write buffer-file-coding-system
190 ;; arch-tag: f971bc3e-1fec-4609-8f2f-73dd41ab22e1
191 ;;; latexenc.el ends here