diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/verbatim.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/verbatim.el | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/verbatim.el b/elpa/auctex-13.1.3/style/verbatim.el new file mode 100644 index 0000000..9062254 --- /dev/null +++ b/elpa/auctex-13.1.3/style/verbatim.el @@ -0,0 +1,65 @@ +;;; verbatim.el --- Style hook for the verbatim package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2001, 2020 Free Software Foundation, Inc. + +;; Author: Masayuki Ataka <masayuki.ataka@gmail.com> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2001/05/01 + +;; 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: + +;; M-x TeX-auto-generate verbatim.sty makes garbages. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(TeX-add-style-hook + "verbatim" + (lambda () + (LaTeX-add-environments + "comment") + (TeX-add-symbols + '("verbatiminput" TeX-arg-file)) + + ;; Fontification: + ;; Code taken from `comment.el' + (when (and (boundp 'font-latex-syntactic-keywords-extra) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; For syntactic fontification. + (add-to-list 'font-latex-syntactic-keywords-extra + '("^[ \t]*\\\\begin *{comment}.*\\(\n\\)" + (1 "!" t))) + (add-to-list 'font-latex-syntactic-keywords-extra + '("^[ \t]*\\(\\\\\\)end *{comment}" + (1 "!" t))) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-verbatim-package-options nil + "Package options for the verbatim package.") + +;;; verbatim.el ends here. |