diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/amsmath.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/amsmath.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/amsmath.el | 259 |
1 files changed, 0 insertions, 259 deletions
diff --git a/elpa/auctex-13.1.3/style/amsmath.el b/elpa/auctex-13.1.3/style/amsmath.el deleted file mode 100644 index 5e7812e..0000000 --- a/elpa/auctex-13.1.3/style/amsmath.el +++ /dev/null @@ -1,259 +0,0 @@ -;;; amsmath.el --- Style hook for the AMS-LaTeX amsmath package. -*- lexical-binding: t; -*- - -;; Copyright (C) 2002, 2005-2007, 2012-2014, 2017-2020, 2022 -;; Free Software Foundation, Inc. -;; FIXME: What about the copyright for <= 2001? - -;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> -;; Maintainer: auctex-devel@gnu.org - -;; 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 will also load the amstext, amsbsy and amsopn style files. - -;;; Code: - -(require 'tex) -(require 'latex) - -;; Fontification -(declare-function font-latex-add-keywords - "font-latex" - (keywords class)) - -(TeX-add-style-hook - "amsmath" - (lambda () - (LaTeX-add-environments - '("align" LaTeX-env-label) - '("gather" LaTeX-env-label) - '("flalign" LaTeX-env-label) - '("multline" LaTeX-env-label) - '("alignat" LaTeX-amsmath-env-alignat) - '("alignat*" LaTeX-amsmath-env-alignat) - '("xalignat" LaTeX-amsmath-env-alignat) - '("xalignat*" LaTeX-amsmath-env-alignat) - '("xxalignat" LaTeX-amsmath-env-alignat) - '("aligned" ["Vertical position (t or b)"]) - '("gathered" ["Vertical position (t or b)"]) - '("alignedat" LaTeX-amsmath-env-alignedat) - "align*" "gather*" "flalign*" "multline*" "equation*" - "split" - "cases" - "matrix" "smallmatrix" "pmatrix" "bmatrix" "Bmatrix" "vmatrix" "Vmatrix" - "subequations" - '("subarray" "Alignment")) - - (TeX-add-symbols - '("eqref" TeX-arg-ref) - '("numberwithin" TeX-arg-counter "Section level") - '("raisetag" "Dimension") - '("shoveright" t) '("shoveleft" t) - '("intertext" t) - '("hdotsfor" ["Stretch"] "Number of columns to cover") - '("xleftarrow" ["Below"] "Above") - '("xrightarrow" ["Below"] "Above") - '("overset" "Above symbol" "Symbol") - '("underset" "Below symbol" "Symbol") - '("overunderset" "Above symbol" "Below symbol" "Symbol") - '("dfrac" 2) - '("tfrac" 2) - '("binom" 2) - '("dbinom" 2) - '("tbinom" 2) - '("genfrac" "Left delimiter" "Right delimiter" "Thickness" - "Mathstyle" 2) - '("cfrac" ["position (l or r)"] 2) - '("smash" ["where (t or b)"] t) - '("sideset" "Left" "Right") - '("tag" "(Tag)") - '("tag*" "Tag") - '("displaybreak" ["Weight (0..4)"]) - '("allowdisplaybreaks" ["Weight (1..4)"]) - '("substack" t) - '("leftroot" "Push root index left by") - '("uproot" "Push root index upward by") - '("boxed" t) - '("mspace" t) - '("mod" t) - '("pmod" t) - '("pod" t) - '("overleftrightarrow" t) - '("underleftarrow" t) - '("underrightarrow" t) - '("underleftrightarrow" t) - '("dddot" t) - '("ddddot" t) - "bmod" "notag" - "dots" "dotsb" "dotsc" "dotsi" "dotsm" "dotso" "nobreakdash" - '("lvert" TeX-arg-insert-right-brace-maybe) - '("lVert" TeX-arg-insert-right-brace-maybe) - "rvert" "rVert" - "iint" "iiint" "iiiint" "idotsint") - - (setq LaTeX-item-list - (append '(("split" . LaTeX-item-equation) - ("multline" . LaTeX-item-equation) - ("multline*" . LaTeX-item-equation) - ("gather" . LaTeX-item-equation) - ("gather*" . LaTeX-item-equation) - ("gathered" . LaTeX-item-equation) - ("align" . LaTeX-item-equation) - ("align*" . LaTeX-item-equation) - ("aligned" . LaTeX-item-equation) - ("alignat" . LaTeX-item-equation-alignat) - ("alignat*" . LaTeX-item-equation-alignat) - ("xalignat" . LaTeX-item-equation-alignat) - ("xalignat*" . LaTeX-item-equation-alignat) - ("xxalignat" . LaTeX-item-equation-alignat) - ("alignedat" . LaTeX-item-equation-alignat) - ("flalign" . LaTeX-item-equation) - ("flalign*" . LaTeX-item-equation) - ("matrix" . LaTeX-item-equation) - ("pmatrix" . LaTeX-item-equation) - ("bmatrix" . LaTeX-item-equation) - ("Bmatrix" . LaTeX-item-equation) - ("vmatrix" . LaTeX-item-equation) - ("Vmatrix" . LaTeX-item-equation) - ("smallmatrix" . LaTeX-item-equation) - ("subarray" . LaTeX-item-equation) - ("cases" . LaTeX-item-equation)) - LaTeX-item-list)) - - ;; When `LaTeX-amsmath-label' is nil, use value of LaTeX-equation-label: - (unless LaTeX-amsmath-label - (setq LaTeX-amsmath-label LaTeX-equation-label)) - - (setq LaTeX-label-alist - ;; Append amsmath environments to `LaTeX-label-alist', in order not to - ;; override possible custome values. - (append LaTeX-label-alist - '(("align" . LaTeX-amsmath-label) - ("alignat" . LaTeX-amsmath-label) - ("xalignat" . LaTeX-amsmath-label) - ("multline" . LaTeX-amsmath-label) - ("flalign" . LaTeX-amsmath-label) - ("gather" . LaTeX-amsmath-label)))) - - (set (make-local-variable 'TeX-braces-association) - (append '(("\\lvert" . "\\rvert") - ("\\lVert" . "\\rVert")) - TeX-braces-association)) - (set (make-local-variable 'TeX-left-right-braces) - (append '(("\\lvert") ("\\rvert") ("\\lVert") ("\\rVert")) - TeX-left-right-braces)) - - ;; amsmath includes amstext, amsbsy, & amsopn. - ;; So we run their hooks, too. - (TeX-run-style-hooks "amstext" "amsbsy" "amsopn") - - ;; RefTeX support: Tell RefTeX about amsmath environments. - (when (fboundp 'reftex-add-to-label-alist) - (reftex-add-to-label-alist '(AMSTeX))) - - ;; Add \eqref to `reftex-ref-style-alist' and associate it to `e' - (when (and (boundp 'reftex-ref-style-alist) - ;; check if Emacs is already equipped with this - (not (assoc "AMSmath" reftex-ref-style-alist))) - ;; Append it to a local version in order to avoid a clash with - ;; user settings - (add-to-list (make-local-variable 'reftex-ref-style-alist) - '("AMSmath" "amsmath" (("\\eqref" ?e))) - t)) - - ;; Activate `AMSmath' when `LaTeX-reftex-ref-style-auto-activate' - ;; is non-nil - (and LaTeX-reftex-ref-style-auto-activate - (fboundp 'reftex-ref-style-activate) - (reftex-ref-style-activate "AMSmath")) - - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("boxed" "{")) - 'math-command))) - TeX-dialect) - -(defun LaTeX-amsmath-env-alignat (env) - "Insert ENV with column number specifications. -Insert suitable number of ampersands also if possible." - (let ((ncols (TeX-read-string "Number of columns: "))) - (LaTeX-insert-environment env (concat TeX-grop ncols TeX-grcl)) - (LaTeX-item-equation-alignat t))) - -(defun LaTeX-amsmath-env-alignedat (env) - "Insert ENV with position and column number specifications. -Insert suitable number of ampersands also if possible." - (let ((where (TeX-read-string "(Optional) Vertical position (t or b): ")) - (ncols (TeX-read-string "Number of columns: "))) - (unless (string= where "") - (setq where (concat LaTeX-optop where LaTeX-optcl))) - (LaTeX-insert-environment env (concat where TeX-grop ncols TeX-grcl)) - (LaTeX-item-equation-alignat t))) - -(defun LaTeX-item-equation (&optional suppress) - "Insert contents to terminate a line in multi-line equations environment. -Put line break macro on the last line. If the current environment -wants \\label, insert it also. - -If SUPPRESS is non-nil, do not insert line break macro." - (unless suppress - (end-of-line 0) - (just-one-space) - (TeX-insert-macro "\\") - (forward-line 1) - (indent-according-to-mode)) - (let ((env (LaTeX-current-environment))) - (when (and (assoc env LaTeX-label-alist) - (LaTeX-label env 'environment)) - (LaTeX-newline) - (indent-according-to-mode)))) - -(defun LaTeX-item-equation-alignat (&optional suppress) - "Insert contents to terminate a line in multi-line equations environment. -Put line break macro on the last line. Next, if the current -environment wants \\label, insert it also. And insert suitable number -of ampersands if possible. - -If SUPPRESS is non-nil, do not insert line break macro." - (LaTeX-item-equation suppress) - (LaTeX-insert-ampersands - (concat "\\(?:" - (regexp-quote LaTeX-optop) "[tb]" (regexp-quote LaTeX-optcl) - "\\)?") - #'LaTeX-amsmath-alignat-number-of-ampersands)) - -(defun LaTeX-amsmath-alignat-number-of-ampersands (start end) - "Return the number of ampersands to insert. -The number is 2N-1 where N is the number taken from the text between -START and END." - (let ((num (string-to-number (buffer-substring-no-properties start end)))) - (if (integerp num) (+ num num -1)))) - -(defvar LaTeX-amsmath-package-options '("intlimits" "nointlimits" - "sumlimits" "nosumlimits" - "namelimits" "nonamelimits" - "leqno" "reqno" "centertags" - "tbtags" "cmex10" "fleqn" "?" - "alignedleftspaceyes" - "alignedleftspaceno" - "alignedleftspaceyesifneg") - "Package options for the amsmath package.") - -;;; amsmath.el ends here. |