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/array.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/array.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/array.el | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/elpa/auctex-13.1.3/style/array.el b/elpa/auctex-13.1.3/style/array.el deleted file mode 100644 index be7baf3..0000000 --- a/elpa/auctex-13.1.3/style/array.el +++ /dev/null @@ -1,111 +0,0 @@ -;;; array.el --- AUCTeX style for `array.sty' -*- lexical-binding: t; -*- - -;; Copyright (C) 2013-2021 Free Software Foundation, Inc. - -;; Author: Mads Jensen <mje@inducks.org> -;; Maintainer: auctex-devel@gnu.org -;; 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 `array.sty' - -;;; Code: - -(require 'tex) -(require 'latex) - -;; Silence the compiler: -(declare-function font-latex-add-keywords - "font-latex" - (keywords class)) - -(TeX-auto-add-type "array-newcolumntype" "LaTeX") - -(defvar LaTeX-array-newcolumntype-regexp - '("\\\\newcolumntype{\\([^}]+\\)}" - 1 LaTeX-auto-array-newcolumntype) - "Matches the argument of `\\newcolumntype' from `array' -package.") - -(defun LaTeX-array-auto-prepare () - "Clear `LaTeX-auto-array-newcolumntype' before parsing." - (setq LaTeX-auto-array-newcolumntype nil)) - -(defun LaTeX-array-auto-cleanup () - "Move parsed column specification from -`LaTeX-auto-array-newcolumntype' to `LaTeX-array-column-letters'." - (when (LaTeX-array-newcolumntype-list) - (LaTeX-array-update-column-letters))) - -(defun LaTeX-array-update-column-letters () - "Update and uniquify the value of `LaTeX-array-column-letters' -and make it buffer local. " - (set (make-local-variable 'LaTeX-array-column-letters) - (mapconcat #'identity - (TeX-delete-duplicate-strings - (split-string - (concat LaTeX-array-column-letters - (mapconcat #'car (LaTeX-array-newcolumntype-list) "")) - "" t)) - ""))) - -(add-hook 'TeX-auto-prepare-hook #'LaTeX-array-auto-prepare t) -(add-hook 'TeX-auto-cleanup-hook #'LaTeX-array-auto-cleanup t) -(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) - -(TeX-add-style-hook - "array" - (lambda () - - (TeX-auto-add-regexp LaTeX-array-newcolumntype-regexp) - - (TeX-add-symbols - '("newcolumntype" - (TeX-arg-eval - (lambda () - (let ((col (TeX-read-string "Column type: "))) - (LaTeX-add-array-newcolumntypes col) - (LaTeX-array-update-column-letters) - (format "%s" col)))) - [ "Number of arguments" ] t) - '("showcols" 0) - '("firsthline" 0) - '("lasthline" 0)) - - ;; `array.sty' adds a couple of new lengths. They're added here, rather than - ;; in the `TeX-add-symbols' block. - (LaTeX-add-lengths "extratabsurround" "extrarowheight") - - ;; `array.sty' adds some new column specification letters. - (set (make-local-variable 'LaTeX-array-column-letters) - (concat LaTeX-array-column-letters "m" "b" "w" "W")) - - ;; Fontification - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("newcolumntype" "{[{")) - 'function))) - TeX-dialect) - -(defvar LaTeX-array-package-options nil - "Package options for array.") - -;; array.el ends here |