/usr/share/emacs/site-lisp/auctex/style/metalogo.el is in auctex 11.88-1.1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 78 79 80 81 82 83 84 85 | ;;; metalogo.el --- AUCTeX style for `metalogo.sty' version 0.12.
;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Author: Mosè Giordano <giordano.mose@libero.it>
;; 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 3, 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:
;; This file adds support for the `metalogo.sty' version 0.12.
;;; Code:
(TeX-add-style-hook
"metalogo"
(lambda ()
(TeX-add-symbols
;; Logos
'("LaTeXe")
'("XeTeX")
'("XeLaTeX")
'("LuaTeX")
'("LuaLaTeX")
;; Commands
'("setlogokern"
(TeX-arg-eval completing-read "Kern parameters: "
'(("Te") ("eX") ("La") ("aT") ("Xe") ("eT") ("eL") ("X2")))
(TeX-arg-length "Dimension"))
'("setlogodrop"
[TeX-arg-eval completing-read "Drop parameters: "
'(("TeX") ("Xe") ("XeTeX"))]
(TeX-arg-length "Dimension"))
'("setLaTeXa" 1)
'("setLaTeXee" 1)
'("seteverylogo" 1)
'("everylogo" 1))
;; The main macros of this package are the logos, while fine-tuning commands
;; probably will be used only by expert users.
(TeX-declare-expert-macros
"metalogo"
"setlogokern" "setlogodrop" "setLaTeXa" "setLaTeXee"
"seteverylogo" "everylogo")
;; Fontification
(when (and (featurep 'font-latex)
(eq TeX-install-font-lock 'font-latex-setup))
(font-latex-add-keywords '( ;; Logos
("LaTeXe")
("XeTeX")
("XeLaTeX")
("LuaTeX")
("LuaLaTeX")
;; Commands
("setlogokern" "{{")
("setlogodrop" "[{")
("setLaTeXa" "{")
("setLaTeXee" "{")
("seteverylogo" "{")
("everylogo" "{"))
'function)))
LaTeX-dialect)
(defvar LaTeX-metalogo-package-options nil
"Package options for the metalogo package.")
;;; metalogo.el ends here
|