"Fossies" - the Fresh Open Source Software Archive

Member "auctex-12.3/style/fbox.el" (18 Oct 2020, 1738 Bytes) of package /linux/misc/auctex-12.3.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Lisp source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 ;;; fbox.el --- AUCTeX style for `fbox.sty' (v0.04)
    2 
    3 ;; Copyright (C) 2019--2020 Free Software Foundation, Inc.
    4 
    5 ;; Author: Arash Esbati <arash@gnu.org>
    6 ;; Maintainer: auctex-devel@gnu.org
    7 ;; Created: 2019-11-08
    8 ;; Keywords: tex
    9 
   10 ;; This file is part of AUCTeX.
   11 
   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)
   15 ;; any later version.
   16 
   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.
   21 
   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
   25 ;; 02110-1301, USA.
   26 
   27 ;;; Commentary:
   28 
   29 ;; This file adds support for `fbox.sty' (v0.04) from 2020/01/03.
   30 ;; `fbox.sty' is part of TeXLive.
   31 
   32 ;; Silence the compiler:
   33 (declare-function font-latex-add-keywords
   34           "font-latex"
   35           (keywords class))
   36 
   37 (TeX-add-style-hook
   38  "fbox"
   39  (lambda ()
   40    (TeX-add-symbols
   41     '("fbox"     [ "Frame parts (combination of lrtb)" ] t)
   42     '("fbox*"    [ "Frame parts (combination of lrtb)" ] t)
   43     '("fparbox"  [ "Frame parts (combination of lrtb)" ] t)
   44     '("fparbox*" [ "Frame parts (combination of lrtb)" ] t))
   45 
   46    ;; Fontification
   47    (when (and (featurep 'font-latex)
   48           (eq TeX-install-font-lock 'font-latex-setup))
   49      (font-latex-add-keywords '(("fbox"    "*[{")
   50                 ("fparbox" "*[{"))
   51                   'function)))
   52  LaTeX-dialect)
   53 
   54 ;;; fbox.el ends here