summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/ulem.el
diff options
context:
space:
mode:
authormattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
committermattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
commitbd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch)
tree95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/ulem.el
parentb07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff)
parentef160dea332af4b4fe5e2717b962936c67e5fe9e (diff)
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/ulem.el')
-rw-r--r--elpa/auctex-13.1.3/style/ulem.el127
1 files changed, 0 insertions, 127 deletions
diff --git a/elpa/auctex-13.1.3/style/ulem.el b/elpa/auctex-13.1.3/style/ulem.el
deleted file mode 100644
index f84fcc6..0000000
--- a/elpa/auctex-13.1.3/style/ulem.el
+++ /dev/null
@@ -1,127 +0,0 @@
-;;; ulem.el --- AUCTeX style for `ulem.sty' -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
-
-;; Author: Mads Jensen <mje@inducks.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 `ulem.sty' dated 2019-11-18.
-
-;;; Code:
-
-(require 'tex)
-
-;; Silence the compiler:
-(declare-function font-latex-add-keywords
- "font-latex"
- (keywords class))
-
-(TeX-add-style-hook
- "ulem"
- (lambda ()
- (TeX-add-symbols
- '("uline" 1)
- '("uuline" 1)
- '("uwave" 1)
- '("sout" 1)
- '("xout" 1)
- '("dashuline" 1)
- '("dotuline" 1)
- ;; can be used with \renewcommand
- "ULthickness"
- ;; custom commands can be defined with these commands; see the
- ;; documentation for an example
- "ULon"
- ;; \markoverwith takes on argument
- '("markoverwith" 1)
- ;; \useunder {underline_command}{font_declaration}{font_command}
- ;; replaces occurences of font_declaration and font_command with the
- ;; underline_command
- '("useunder" TeX-arg-ulem-useunder
- TeX-arg-ulem-fontdecl TeX-arg-ulem-fontcmd))
-
- ;; \ULdepth can be changed with \setlength
- (LaTeX-add-lengths "ULdepth")
-
- ;; Fontification
- (when (and (featurep 'font-latex)
- (eq TeX-install-font-lock 'font-latex-setup))
- ;; Tell font-lock about the update.
- (font-latex-add-keywords '(("useunder" "{{{"))
- 'function)
- (font-latex-add-keywords '(("uline" "{")
- ("uuline" "{")
- ("uwave" "{")
- ("sout" "{")
- ("xout" "{")
- ("dashuline" "{")
- ("dotuline" "{"))
- 'textual)))
- TeX-dialect)
-
-(defvar LaTeX-ulem-fontdecl
- (mapcar (lambda (str) (concat "\\" str))
- '("itshape" "bfseries" "scshape"
- "ttfamily" "upshape" "mdseries"
- "rmfamily" "sffamily" "slshape"))
- "List of font declaration commands in LaTeX.")
-
-(defvar LaTeX-ulem-fontcmd
- (mapcar (lambda (str) (concat "\\" str))
- '("textit" "textbf" "textsc"
- "texttt" "textup" "textmd"
- "textrm" "textsf" "textsl"))
- "List of font commands in LaTeX")
-
-(defun TeX-arg-ulem-fontdecl (optional &optional prompt)
- "Prompt for the font-declaration un \\useunder."
- (TeX-argument-insert
- (completing-read (TeX-argument-prompt
- optional prompt "Font declaration")
- LaTeX-ulem-fontdecl nil t)
- optional))
-
-(defun TeX-arg-ulem-fontcmd (optional &optional prompt)
- "Prompt for the font-declaration un \\useunder."
- (TeX-argument-insert
- (completing-read (TeX-argument-prompt
- optional prompt "Font command")
- LaTeX-ulem-fontcmd nil t)
- optional))
-
-;; adapted from url.el: TeX-arg-urlstyle
-(defun TeX-arg-ulem-useunder (optional &optional prompt)
- "Prompt for underline command used in \\useunder."
- (TeX-argument-insert
- (completing-read (TeX-argument-prompt optional prompt "Underline command")
- (mapcar (lambda (str) (concat "\\" str))
- '("uline" "uuline"
- "uwave" "sout" "xout"
- "dashuline" "dotuline"))
- nil t)
- optional))
-
-(defvar LaTeX-ulem-package-options
- '("UWforbf" "ULforem" "normalbf" "normalem")
- "Package options for the ulem package.")
-
-;;; ulem.el ends here