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/inputenc.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/inputenc.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/inputenc.el | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/elpa/auctex-13.1.3/style/inputenc.el b/elpa/auctex-13.1.3/style/inputenc.el deleted file mode 100644 index 14ff61c..0000000 --- a/elpa/auctex-13.1.3/style/inputenc.el +++ /dev/null @@ -1,89 +0,0 @@ -;;; inputenc.el --- AUCTeX style for `inputenc.sty' -*- lexical-binding: t; -*- - -;; Copyright (C) 2005-2021 Free Software Foundation, Inc. - -;; Author: Arne Jørgensen <arne@arnested.dk> -;; 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 Street, Fifth Floor, Boston, -;; MA 02110-1301, USA. - -;;; Commentary: - -;; This file adds support for `inputenc.sty'. - -;;; Code: - -(require 'tex) - -(defun LaTeX-inputenc-package-options nil - "Prompt for package options for the inputenc package." - ;; separate the condition in three to silence the byte compiler - (if (boundp 'latex-inputenc-coding-alist) - (when (fboundp 'latexenc-coding-system-to-inputenc) - (when (fboundp 'latexenc-inputenc-to-coding-system) - (let ((default (latexenc-coding-system-to-inputenc - (or coding-system-for-write - buffer-file-coding-system))) - (selected 'undecided)) - (setq selected (completing-read - (if default - (format "Input encoding (default %s): " default) - "Input encoding: ") - (mapcar #'car latex-inputenc-coding-alist) - nil - nil - nil - nil - default)) - - ;; if necessary offer to set the coding system for saving - ;; this buffer based on the selected input encoding - (when (and (null - (coding-system-equal - (coding-system-base - (or coding-system-for-write - buffer-file-coding-system)) - (coding-system-base - (latexenc-inputenc-to-coding-system selected)))) - (y-or-n-p "Set coding system for saving this buffer? ") - (set-buffer-file-coding-system - (coding-system-base - (latexenc-inputenc-to-coding-system selected))) - (message nil))) - - ;; return selected input encoding - selected))) - (TeX-read-string "Input encoding: "))) - -(defun LaTeX-arg-inputenc-inputenc (_optional) - "Prompt for input encoding." - (TeX-argument-insert (LaTeX-inputenc-package-options) nil)) - -(TeX-add-style-hook - "inputenc" - (lambda () - ;; New symbols - (TeX-add-symbols - '("inputencoding" LaTeX-arg-inputenc-inputenc))) - TeX-dialect) - -;; Local Variables: -;; coding: utf-8 -;; End: - -;;; inputenc.el ends here |