# auctex / style / frenchb.el

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77``` ```;;; frenchb.el --- AUCTeX style for the `frenchb' babel option. ;; Copyright (C) 2005 Free Software Foundation, Inc. ;; Author: Ralf Angeli ;; Maintainer: auctex-devel@gnu.org ;; Created: 2005-10-28 ;; Keywords: tex ;; This file is part of AUCTeX. ;; AUCTeX is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; AUCTeX is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with AUCTeX; see the file COPYING. If not, write to the Free ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA ;; 02110-1301, USA. ;;; Commentary: ;; Set up AUCTeX for editing French text. In particular for commands ;; provided by the `frenchb' option of the `babel' LaTeX package. The ;; `frenchb' option is equivalent to the `francais' option and since ;; babel version 3.7j with the `french' option. `french', however, is ;; ambiguous because another package by that name made by Bernard ;; Gaulle could be loaded. In order to avoid this, either `frenchb' ;; (or `francais') or `frenchle' (or `frenchPRO') should be used. See ;; the documentation of `frenchb' at ;; . ;;; Code: (TeX-add-style-hook "frenchb" (lambda () (TeX-add-symbols "og" "fg" "up" "ier" "iere" "iers" "ieres" "ieme" "iemes" '("bsc" t) "primo" "secundo" "tertio" "quarto" "No" "no" "degre" "degres" "DecimalMathComma" "StandardMathComma" '("nombre" "Nombre") "ThinSpaceInFrenchNumbers" "FrenchLayout" "StandardLayout") (setq TeX-quote-language `("french" "\\og " (lambda () (concat "\\fg" (unless (member "xspace" TeX-active-styles) "{}"))) ,TeX-quote-after-quote)) (run-hooks 'TeX-language-fr-hook))) ;;; frenchb.el ends here ```