[AUCTeX-diffs] [elpa] externals/auctex f04e5f7 09/36: Add style file for amsfonts package

[Tassilo Horn]

branch: externals/auctex
commit f04e5f70629a4e8b0f2068de59441d8b0dedd9a2
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Add style file for amsfonts package
    
    * style/amsfonts.el: New file.
    * Makefile.in (STYLESRC): Install it.
    * style/amssymb.el ("amssymb"): Run `amsfonts' hook.
---
 Makefile.in       |    2 +-
 style/amsfonts.el |   53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 style/amssymb.el  |    1 +
 3 files changed, 55 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index a291ed2..6bb7e35 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -158,7 +158,7 @@ STYLESRC = style/prosper.el \
           style/pdflscape.el style/commath.el   style/empheq.el \
           style/framed.el    style/paracol.el   style/menukeys.el \
           style/bidi.el      style/FiraMono.el  style/FiraSans.el \
-          style/bicaption.el
+          style/bicaption.el style/amsfonts.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/amsfonts.el b/style/amsfonts.el
new file mode 100644
index 0000000..ba15ace
--- /dev/null
+++ b/style/amsfonts.el
@@ -0,0 +1,53 @@
+;;; amsfonts.el --- AUCTeX style for `amsfonts.sty' version 3.01
+
+;; Copyright (C) 2016 Free Software Foundation, Inc.
+
+;; Maintainer: address@hidden
+;; Author: Mosè Giordano <address@hidden>
+;; 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 `amsfonts.sty' version 3.01.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "amsfonts"
+ (lambda ()
+   (TeX-add-symbols
+    '("bold" 1))
+   ;; New math font by `amsfonts'.
+   (setq TeX-font-list
+        (append
+         TeX-font-list
+         '((?\C-k "" "" "\mathfrak{" "}"))))
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+             (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("bold" "{"))
+                             'bold-command)))
+ LaTeX-dialect)
+
+;; The `psamsfonts' option is obsolete in AMSFonts v3
+(defvar LaTeX-amsfonts-package-options nil
+  "Package options for the amsfonts package.")
+
+;;; amsfonts.el ends here.
diff --git a/style/amssymb.el b/style/amssymb.el
index 2aec6b6..c53a52f 100644
--- a/style/amssymb.el
+++ b/style/amssymb.el
@@ -36,6 +36,7 @@
 (TeX-add-style-hook
  "amssymb"
  (lambda ()
+   (TeX-run-style-hooks "amsfonts")
    (TeX-add-symbols
     "boxdot"
     "boxplus"