diff options
Diffstat (limited to 'elpa/auctex-13.1.3/tex-site.el')
-rw-r--r-- | elpa/auctex-13.1.3/tex-site.el | 145 |
1 files changed, 145 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/tex-site.el b/elpa/auctex-13.1.3/tex-site.el new file mode 100644 index 0000000..07c8d84 --- /dev/null +++ b/elpa/auctex-13.1.3/tex-site.el @@ -0,0 +1,145 @@ +;;; tex-site.el - Site specific variables. Don't edit. -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2022 Free Software Foundation, Inc. +;; +;; completely rewritten. + +;; Author: David Kastrup <dak@gnu.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 contains startup code, autoloads and variables adapted to +;; the local site configuration. It is generated and placed by the +;; installation procedure and should not be edited by hand, nor moved +;; to a different place, as some settings may be established relative +;; to the file. + +;; All user customization should be done with +;; M-x customize-variable RET + +;;; Code: + +(when (< emacs-major-version 25) + (error "AUCTeX requires Emacs 25.1 or later")) + +(unless (or (fboundp 'TeX-modes-set) ;Avoid inf-looping. + (fboundp 'TeX-tex-mode)) ;auctex-autoloads is not loaded. + ;; Try and support the case where someone loads tex-site.el or + ;; auctex.el directly, in the old way. + (provide 'tex-site) ;Avoid (re)loading tex-site from auctex-autoloads. + (load "auctex-autoloads" 'noerror 'nomessage)) + +;; Define here in order for `M-x customize-group <RET> AUCTeX <RET>' +;; to work if the main AUCTeX files are not loaded yet. +(defgroup AUCTeX nil + "A (La)TeX environment." + :tag "AUCTeX" + :link '(custom-manual "(auctex)Top") + :link '(url-link :tag "Home Page" "https://www.gnu.org/software/auctex/") + :prefix "TeX-" + :group 'tex + :load "tex" :load "latex" :load "tex-style") + +(defvar TeX-lisp-directory + (file-name-directory load-file-name) + "The directory where most of the AUCTeX lisp files are located. +For the location of lisp files associated with +styles, see the variables TeX-style-* (hand-generated lisp) and +TeX-auto-* (automatically generated lisp).") + +(add-to-list 'load-path TeX-lisp-directory) + +(defvar TeX-data-directory + (file-name-directory load-file-name) + "The directory where the AUCTeX non-Lisp data is located.") + +(defcustom TeX-auto-global + (if (file-writable-p "/usr/local/var/auctex") "/usr/local/var/auctex" "~/.emacs.d/auctex") + "Directory containing automatically generated information. + +For storing automatic extracted information about the TeX macros +shared by all users of a site." + :group 'TeX-file + :type 'directory) + +(defconst TeX-mode-alist + '((tex-mode . tex-mode) + (plain-tex-mode . tex-mode) + (texinfo-mode . texinfo) + (latex-mode . tex-mode) + (doctex-mode . tex-mode)) + "Alist of built-in TeX modes and their load files.") + +(defalias 'TeX-load-hack #'ignore) + +(add-hook 'tex-site-unload-hook + (lambda () + (TeX-modes-set 'TeX-modes nil) + (setq load-path (delq TeX-lisp-directory load-path)))) + +(defun TeX-modes-set (var value &optional _ignored) + "Set VAR (which should be `TeX-modes') to VALUE. + +This places either the standard or the AUCTeX versions of +functions into the respective function cell of the mode." + (custom-set-default var value) + (let ((list TeX-mode-alist) elt) + (while list + (setq elt (car (pop list))) + (let ((dst (intern (concat "TeX-" (symbol-name elt))))) + (if (memq elt value) + (advice-add elt :override dst) + (advice-remove elt dst)))))) + +(defcustom TeX-modes + (mapcar #'car TeX-mode-alist) + "List of modes provided by AUCTeX. + +This variable can't be set normally; use customize for that, or +set it with `TeX-modes-set'." + :type (cons 'set + (mapcar (lambda(x) (list 'const (car x))) TeX-mode-alist)) + :set #'TeX-modes-set + :initialize #'custom-initialize-reset) + +(defconst AUCTeX-version "13.1.3" + "AUCTeX version. +If not a regular release, the date of the last change.") + +(defconst AUCTeX-date "2022-04-16" + "AUCTeX release date using the ISO 8601 format, yyyy-mm-dd.") + +;; Store bibitems when saving a BibTeX buffer +(add-hook 'bibtex-mode-hook #'BibTeX-auto-store) + +;;; Code specific to ELPA packaging: + +;; From preview-latex.el: + +(defvar preview-TeX-style-dir + (expand-file-name "latex" (file-name-directory load-file-name))) + +;;; Ensure that loading the autoloads file also loads this file. +;;;###autoload (require 'tex-site) + +(provide 'tex-site) +;;; tex-site.el ends here |