1 ;;; italian.el --- Setup AUCTeX for editing Italian text.
3 ;; Copyright (C) 2004, 2005 Free Software Foundation, Inc.
5 ;; Author: Davide G. M. Salvetti <salve@debian.org>
6 ;; Maintainer: Davide G. M. Salvetti <salve@debian.org>
10 ;; This file is part of AUCTeX.
12 ;; AUCTeX is free software; you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 3, or (at your option)
17 ;; AUCTeX is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with AUCTeX; see the file COPYING. If not, write to the Free
24 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
29 ;; I believe that the Italian correct quoting is achieved with `\"<' and
30 ;; `\">'. However, I will be glad to see a normative reference. -- DGMS
34 (defvar TeX-language-it-hook nil
35 "Hook run for Italian texts.")
40 ;; XXX: Handle former customizations of the now defunct
41 ;; Italian-specific variables. References to the respective
42 ;; variables are to be deleted in future versions. (now = 2005-04-01)
43 (unless (eq (car TeX-quote-language) 'override)
44 (let ((open-quote (if (and (boundp 'LaTeX-italian-open-quote)
45 LaTeX-italian-open-quote)
46 LaTeX-italian-open-quote
48 (close-quote (if (and (boundp 'LaTeX-italian-close-quote)
49 LaTeX-italian-close-quote)
50 LaTeX-italian-close-quote
52 (setq TeX-quote-language
53 `("italian" ,open-quote ,close-quote TeX-quote-after-quote))))
54 ;; Fontification of quotation marks.
55 (when (fboundp 'font-latex-add-quotes)
56 (font-latex-add-quotes '("\"<" "\">" french)))
57 (run-hooks 'TeX-language-it-hook)))
59 ;;; italian.el ends here