;;; latex.el --- Support for LaTeX documents. ;; ;; Maintainer: Per Abrahamsen ;; Version: 9.6m ;; Keywords: wp ;; X-URL: http://sunsite.auc.dk/auctex ;; Copyright 1991 Kresten Krab Thorup ;; Copyright 1993, 1994, 1995, 1996 Per Abrahamsen ;; ;; This program 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 1, or (at your option) ;; any later version. ;; ;; This program 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 this program; if not, write to the Free Software ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Code: (require 'tex) ;;; Syntax (defvar LaTeX-optop "[" "The LaTeX optional argument opening character.") (make-variable-buffer-local 'LaTeX-optop) (defvar LaTeX-optcl "]" "The LaTeX optional argument closeing character.") (make-variable-buffer-local 'LaTeX-optcl) ;;; Style (defvar LaTeX-default-style "article" "*Default when creating new documents.") (make-variable-buffer-local 'LaTeX-default-style) (defvar LaTeX-default-options nil "*Default options to documentstyle. A list of strings.") (make-variable-buffer-local 'LaTeX-default-options) ;;; Syntax Table (defvar LaTeX-mode-syntax-table (copy-syntax-table TeX-mode-syntax-table) "Syntax table used in LaTeX mode.") (progn ; set [] to match for LaTeX. (modify-syntax-entry (string-to-char LaTeX-optop) (concat "(" LaTeX-optcl) LaTeX-mode-syntax-table) (modify-syntax-entry (string-to-char LaTeX-optcl) (concat ")" LaTeX-optop) LaTeX-mode-syntax-table)) ;;; Sections (defun LaTeX-section (arg) "Insert a template for a LaTeX section. Determinate the type of section to be inserted, by the argument ARG. If ARG is nil or missing, use the current level. If ARG is a list (selected by C-u), go downward one level. If ARG is negative, go up that many levels. If ARG is positive or zero, use absolute level: 0 : part 1 : chapter 2 : section 3 : subsection 4 : subsubsection 5 : paragraph 6 : subparagraph The following variables can be set to customize: LaTeX-section-hook Hooks to run when inserting a section. LaTeX-section-label Prefix to all section labels." (interactive "*P") (let* ((val (prefix-numeric-value arg)) (level (cond ((null arg) (LaTeX-current-section)) ((listp arg) (LaTeX-down-section)) ((< val 0) (LaTeX-up-section (- val))) (t val))) (name (LaTeX-section-name level)) (toc nil) (title "") (done-mark (make-marker))) (newline) (run-hooks 'LaTeX-section-hook) (newline) (if (marker-position done-mark) (goto-char (marker-position done-mark))) (set-marker done-mark nil))) (defun LaTeX-current-section () "Return the level of the section that contain point. See also LaTeX-section for description of levels." (save-excursion (max (LaTeX-largest-level) (if (re-search-backward (LaTeX-outline-regexp) nil t) (- (LaTeX-outline-level) (LaTeX-outline-offset)) (LaTeX-largest-level))))) (defun LaTeX-down-section () "Return the value of a section one level under the current. Tries to find what kind of section that have been used earlier in the text, If this fail, it will just return one less than the current section." (save-excursion (let ((current (LaTeX-current-section)) (next nil) (regexp (LaTeX-outline-regexp))) (if (not (re-search-backward regexp nil t)) (1+ current) (while (not next) (cond ((eq (LaTeX-current-section) current) (if (re-search-forward regexp nil t) (if (<= (setq next (LaTeX-current-section)) current) ;Wow! (setq next (1+ current))) (setq next (1+ current)))) ((not (re-search-backward regexp nil t)) (setq next (1+ current))))) next)))) (defun LaTeX-up-section (arg) "Return the value of the section ARG levels above this one." (save-excursion (if (zerop arg) (LaTeX-current-section) (let ((current (LaTeX-current-section))) (while (and (>= (LaTeX-current-section) current) (re-search-backward (LaTeX-outline-regexp) nil t))) (LaTeX-up-section (1- arg)))))) (defvar LaTeX-section-list '(("part" 0) ("chapter" 1) ("section" 2) ("subsection" 3) ("subsubsection" 4) ("paragraph" 5) ("subparagraph" 6)) "List which elements is the names of the sections used by LaTeX.") (defun LaTeX-section-name (level) "Return the name of the section corresponding to LEVEL." (let ((entry (TeX-member level LaTeX-section-list (function (lambda (a b) (equal a (nth 1 b))))))) (if entry (nth 0 entry) nil))) (defun LaTeX-section-level (name) "Return the level of the section NAME." (let ((entry (TeX-member name LaTeX-section-list (function (lambda (a b) (equal a (nth 0 b))))))) (if entry (nth 1 entry) nil))) (defvar TeX-outline-extra nil "*List of extra TeX outline levels. Each element is a list with two entries. The first entry is the regular expression matching a header, and the second is the level of the header. See LaTeX-section-list for existing header levels.") (defun LaTeX-outline-regexp (&optional anywhere) "Return regexp for LaTeX sections. If optional argument ANYWHERE is not nil, do not require that the header is at the start of a line." (concat (if anywhere "" "^") "[ \t]*" (regexp-quote TeX-esc) "\\(appendix\\|documentstyle\\|documentclass\\|" (mapconcat 'car LaTeX-section-list "\\|") "\\)\\b" (if TeX-outline-extra "\\|" "") (mapconcat 'car TeX-outline-extra "\\|") "\\|" TeX-header-end "\\|" TeX-trailer-start)) (defvar LaTeX-largest-level nil "Largest sectioning level with current document style") (make-variable-buffer-local 'LaTeX-largest-level) (defun LaTeX-largest-level () (TeX-update-style) LaTeX-largest-level) (defun LaTeX-outline-offset () "Offset to add to LaTeX-section-list levels to get outline level." (- 2 (LaTeX-largest-level))) (defun TeX-look-at (list) "Check if we are looking at the first element of a member of LIST. If so, return the second element, otherwise return nil." (while (and list (not (looking-at (nth 0 (car list))))) (setq list (cdr list))) (if list (nth 1 (car list)) nil)) (defun LaTeX-outline-level () "Find the level of current outline heading in an LaTeX document." (cond ((looking-at LaTeX-header-end) 1) ((looking-at LaTeX-trailer-start) 1) ((TeX-look-at TeX-outline-extra) (max 1 (+ (TeX-look-at TeX-outline-extra) (LaTeX-outline-offset)))) (t (save-excursion (skip-chars-forward " \t") (forward-char 1) (cond ((looking-at "appendix") 1) ((looking-at "documentstyle") 1) ((looking-at "documentclass") 1) ((TeX-look-at LaTeX-section-list) (max 1 (+ (TeX-look-at LaTeX-section-list) (LaTeX-outline-offset)))) (t (error "Unrecognized header"))))))) (add-hook 'TeX-remove-style-hook (function (lambda () (setq LaTeX-largest-level nil)))) (defvar LaTeX-section-hook '(LaTeX-section-heading LaTeX-section-title ;; LaTeX-section-toc ; Most people won't want this LaTeX-section-section LaTeX-section-label) "*List of hooks to run when a new section is inserted. The following variables are set before the hooks are run level - numeric section level, see the documentation of `LaTeX-section'. name - name of the sectioning command, derived from `level'. title - The title of the section, default to an empty string. toc - Entry for the table of contents list, default nil. done-mark - Position of point afterwards, default nil (meaning end). The following standard hook exist - LaTeX-section-heading: Query the user about the name of the sectioning command. Modifies `level' and `name'. LaTeX-section-title: Query the user about the title of the section. Modifies `title'. LaTeX-section-toc: Query the user for the toc entry. Modifies `toc'. LaTeX-section-section: Insert LaTeX section command according to `name', `title', and `toc'. If `toc' is nil, no toc entry is enserted. If `toc' or `title' are empty strings, `done-mark' will be placed at the point they should be inserted. LaTeX-section-label: Insert a label after the section command. Controled by the variable `LaTeX-section-label'. To get a full featured LaTeX-section command, insert (setq LaTeX-section-hook '(LaTeX-section-heading LaTeX-section-title LaTeX-section-toc LaTeX-section-section LaTeX-section-label)) in your .emacs file.") (defvar LaTeX-section-label '(("chapter" . "cha:") ("section" . "sec:") ("subsection" . "sec:")) "*Default prefix when asking for a label. If it is a string, it it used unchanged for all kinds of sections. If it is nil, no label is inserted. If it is a list, the list is searched for a member whose car is equal to the name of the sectioning command being inserted. The cdr is then used as the prefix. If the name is not found, or if the cdr is nil, no label is inserted.") ;;; Section Hooks. (defun LaTeX-section-heading () "Hook to prompt for LaTeX section name. Insert this hook into LaTeX-section-hook to allow the user to change the name of the sectioning command inserted with M-x LaTeX-section." (let ((string (completing-read (concat "Select level: (default " name ") ") LaTeX-section-list nil nil nil))) ; Update name (if (not (zerop (length string))) (setq name string)) ; Update level (setq level (LaTeX-section-level name)))) (defun LaTeX-section-title () "Hook to prompt for LaTeX section title. Insert this hook into LaTeX-section-hook to allow the user to change the title of the section inserted with M-x LaTeX-section." (setq title (read-string "What title: "))) (defun LaTeX-section-toc () "Hook to prompt for the LaTeX section entry in the table of content . Insert this hook into LaTeX-section-hook to allow the user to insert a different entry for the section in the table of content." (setq toc (read-string "Toc Entry: ")) (if (zerop (length toc)) (setq toc nil))) (defun LaTeX-section-section () "Hook to insert LaTeX section command into the file. Insert this hook into LaTeX-section-hook after those hooks which sets the `name', `title', and `toc' variables, but before those hooks which assumes the section already is inserted." (insert TeX-esc name) (cond ((null toc)) ((zerop (length toc)) (insert LaTeX-optop) (set-marker done-mark (point)) (insert LaTeX-optcl)) (t (insert LaTeX-optop toc LaTeX-optcl))) (insert TeX-grop) (if (zerop (length title)) (set-marker done-mark (point))) (insert title TeX-grcl) (newline)) (defun LaTeX-section-label () "Hook to insert a label after the sectioning command. Insert this hook into LaTeX-section-hook to prompt for a label to be inserted after the sectioning command. The beaviour of this hook is controled by LaTeX-section-label." (let ((prefix (cond ((null LaTeX-section-label) nil) ((stringp LaTeX-section-label) LaTeX-section-label) ((assoc level LaTeX-section-label) (cdr (assoc level LaTeX-section-label))) ((assoc name LaTeX-section-label) (cdr (assoc name LaTeX-section-label)))))) (if prefix (let ((label (read-string "What label: " prefix))) (if (string-equal prefix label) () ; Done - no label entered (insert TeX-esc "label" TeX-grop label TeX-grcl) (LaTeX-add-labels label) (newline)))))) ;;; Environments (defvar LaTeX-default-environment "itemize" "*The default environment when creating new ones with LaTeX-environment.") (make-variable-buffer-local 'LaTeX-default-environment) (defun LaTeX-environment (arg) "Make LaTeX environment (\\begin{...}-\\end{...} pair). With optional ARG, modify current environment. It may be customized with the following variables: LaTeX-default-environment Your favorite environment. LaTeX-default-style Your favorite document style. LaTeX-default-options Your favorite document style options. LaTeX-float Where you want figures and tables to float. LaTeX-table-label Your prefix to labels in tables. LaTeX-figure-label Your prefix to labels in figures. LaTeX-default-format Format for array and tabular. LaTeX-default-position Position for array and tabular." (interactive "*P") (let ((environment (completing-read (concat "Environment type: (default " (if (TeX-near-bobp) "document" LaTeX-default-environment) ") ") (LaTeX-environment-list)))) ;; Get default (cond ((and (zerop (length environment)) (TeX-near-bobp)) (setq environment "document")) ((zerop (length environment)) (setq environment LaTeX-default-environment)) (t (setq LaTeX-default-environment environment))) (let ((entry (assoc environment (LaTeX-environment-list)))) (if (null entry) (LaTeX-add-environments (list environment))) (if arg (LaTeX-modify-environment environment) (LaTeX-environment-menu environment))))) (defun LaTeX-environment-menu (environment) ;; Insert ENVIRONMENT around point or region. (let ((entry (assoc environment (LaTeX-environment-list)))) (cond ((not (and entry (nth 1 entry))) (LaTeX-insert-environment environment)) ((numberp (nth 1 entry)) (let ((count (nth 1 entry)) (args "")) (while (> count 0) (setq args (concat args TeX-grop TeX-grcl)) (setq count (- count 1))) (LaTeX-insert-environment environment args))) ((stringp (nth 1 entry)) (let ((prompts (cdr entry)) (args "")) (while prompts (setq args (concat args TeX-grop (read-from-minibuffer (concat (car prompts) ": ")) TeX-grcl)) (setq prompts (cdr prompts))) (LaTeX-insert-environment environment args))) (t (apply (nth 1 entry) environment (nthcdr 2 entry)))))) (defun LaTeX-close-environment () "Creates an \\end{...} to match the current environment." (interactive "*") (if (> (point) (save-excursion (beginning-of-line) (skip-chars-forward " \t") (point))) (insert "\n")) (insert "\\end{" (LaTeX-current-environment 1) "}") (LaTeX-indent-line) (if (not (looking-at "[ \t]*$")) (insert "\n") (let ((next-line-add-newlines t)) (next-line 1) (beginning-of-line))) (LaTeX-indent-line)) (autoload 'outline-flag-region "outline") (defun LaTeX-hide-environment () "Hide current LaTeX environment using selective display." (interactive) (outline-flag-region (save-excursion (LaTeX-find-matching-begin) (point)) (save-excursion (LaTeX-find-matching-end) (point)) ?\r)) (defun LaTeX-show-environment () "Show current LaTeX environment." (interactive) (outline-flag-region (save-excursion (LaTeX-find-matching-begin) (point)) (save-excursion (LaTeX-find-matching-end) (point)) ?\n)) (defun LaTeX-insert-environment (environment &optional extra) "Insert environment of type ENV, with optional argument EXTRA." (if (and (TeX-active-mark) (not (eq (mark) (point)))) (progn (if (< (mark) (point)) (exchange-point-and-mark)) (or (TeX-looking-at-backward "^[ \t]*") (newline)) (insert TeX-esc "begin" TeX-grop environment TeX-grcl) (LaTeX-indent-line) (if extra (insert extra)) (newline) (goto-char (mark)) (or (TeX-looking-at-backward "^[ \t]*") (newline)) (insert TeX-esc "end" TeX-grop environment TeX-grcl) (or (looking-at "[ \t]*$") (save-excursion (newline-and-indent))) (LaTeX-indent-line) (end-of-line 0) (or (assoc environment LaTeX-indent-environment-list) (LaTeX-fill-environment nil))) (or (TeX-looking-at-backward "^[ \t]*") (newline)) (insert TeX-esc "begin" TeX-grop environment TeX-grcl) (LaTeX-indent-line) (if extra (insert extra)) (newline-and-indent) (newline) (insert TeX-esc "end" TeX-grop environment TeX-grcl) (or (looking-at "[ \t]*$") (save-excursion (newline-and-indent))) (LaTeX-indent-line) (end-of-line 0))) (defun LaTeX-modify-environment (environment) ;; Modify current environment. (save-excursion (LaTeX-find-matching-end) (re-search-backward (concat (regexp-quote TeX-esc) "end" (regexp-quote TeX-grop) " *\\([a-zA-Z*]*\\)" (regexp-quote TeX-grcl)) (save-excursion (beginning-of-line 1) (point))) (replace-match (concat TeX-esc "end" TeX-grop environment TeX-grcl) t t) (beginning-of-line 1) (LaTeX-find-matching-begin) (re-search-forward (concat (regexp-quote TeX-esc) "begin" (regexp-quote TeX-grop) " *\\([a-zA-Z*]*\\)" (regexp-quote TeX-grcl)) (save-excursion (end-of-line 1) (point))) (replace-match (concat TeX-esc "begin" TeX-grop environment TeX-grcl) t t))) (defun LaTeX-current-environment (&optional arg) "Return the name (a string) of the enclosing LaTeX environment. With optional ARG>=1, find that outer level." (setq arg (if arg (if (< arg 1) 1 arg) 1)) (save-excursion (while (and (/= arg 0) (re-search-backward (concat (regexp-quote TeX-esc) "begin" (regexp-quote TeX-grop) "\\|" (regexp-quote TeX-esc) "end" (regexp-quote TeX-grop)) nil t 1)) (cond ((TeX-in-comment) (beginning-of-line 1)) ((looking-at (concat (regexp-quote TeX-esc) "end" (regexp-quote TeX-grop))) (setq arg (1+ arg))) (t (setq arg (1- arg))))) (if (/= arg 0) "document" (search-forward TeX-grop) (let ((beg (point))) (search-forward TeX-grcl) (backward-char 1) (buffer-substring beg (point)))))) (defun TeX-near-bobp () ;; Return t iff there's nothing but whitespace between (bob) and (point). (save-excursion (skip-chars-backward " \t\n") (bobp))) ;;; Environment Hooks (defvar LaTeX-document-style-hook nil "List of hooks to run when inserting a document style environment. To insert a hook here, you must insert it in the appropiate style file.") (defun LaTeX-env-document (&optional ignore) "Create new LaTeX document." (TeX-insert-macro (if (string-equal LaTeX-version "2") "documentstyle" "documentclass")) (newline 3) (end-of-line 0) (LaTeX-insert-environment "document") (run-hooks 'LaTeX-document-style-hook) (setq LaTeX-document-style-hook nil)) (defvar LaTeX-float "htbp" "*Default float when creating figure and table environments. Set to nil if you don't want any float.") (make-variable-buffer-local 'LaTeX-float) (defvar LaTeX-figure-label "fig:" "*Default prefix to figure labels.") (make-variable-buffer-local 'LaTeX-figure-label) (defvar LaTeX-table-label "tab:" "*Default prefix to table labels.") (make-variable-buffer-local 'LaTeX-table-label) (defvar LaTeX-default-format "" "Specifies the default format string for array and tabular environments.") (make-variable-buffer-local 'LaTeX-default-format) (defvar LaTeX-default-position "" "Specifies the default position string for array and tabular environments.") (make-variable-buffer-local 'LaTeX-default-position) (defun LaTeX-env-item (environment) "Insert ENVIRONMENT and the first item." (LaTeX-insert-environment environment) (if (TeX-active-mark) (progn (LaTeX-find-matching-begin) (end-of-line 1)) (end-of-line 0)) (delete-char 1) (delete-horizontal-space) (LaTeX-insert-item)) (defun LaTeX-env-figure (environment) "Create ENVIRONMENT with \\label and \\caption commands." (let ((float (read-string "Float to: " LaTeX-float)) (caption (read-string "Caption: ")) (label (completing-read "Label: " (LaTeX-label-list) nil nil (cond ((string= "figure" environment) LaTeX-figure-label) ((string= "table" environment) LaTeX-table-label) (t nil)))) (center (y-or-n-p "Center: "))) (setq LaTeX-float (if (zerop (length float)) LaTeX-float float)) (LaTeX-insert-environment environment (and LaTeX-float (concat LaTeX-optop LaTeX-float LaTeX-optcl))) (if center (progn (LaTeX-insert-environment "center") (insert "\\leavevmode") (newline-and-indent))) (if (or (zerop (length label)) (and (string= "figure" environment) (equal LaTeX-figure-label label)) (and (string= "table" environment) (equal LaTeX-table-label label))) () (newline-and-indent) (insert TeX-esc "label" TeX-grop label TeX-grcl) (LaTeX-add-labels label) (end-of-line 0) (LaTeX-indent-line)) (if (zerop (length caption)) () ;; NOTE: Caption is _inside_ center because that looks best typeset. (newline-and-indent) (insert TeX-esc "caption" TeX-grop caption TeX-grcl) (end-of-line 0) (LaTeX-indent-line)) (if (string= environment "table") (LaTeX-env-array "tabular")))) (defun LaTeX-env-array (environment) "Insert ENVIRONMENT with position and column specifications like array and tabular." (let ((pos (read-string "Position: ")) (fmt (read-string "Format: " LaTeX-default-format))) (setq LaTeX-default-position pos) (setq LaTeX-default-format fmt) (LaTeX-insert-environment environment (concat (if (not (zerop (length pos))) (format "[%s]" pos)) (format "{%s}" fmt))) (end-of-line 0) (next-line 1) (delete-horizontal-space))) (defun LaTeX-env-label (environment) "Insert ENVIRONMENT and prompt for label." (let ((label (completing-read "Label: " (LaTeX-label-list)))) (LaTeX-insert-environment environment) (if (not (zerop (length label))) (progn (insert TeX-esc "label" TeX-grop label TeX-grcl) (LaTeX-add-labels label) (newline-and-indent))))) (defun LaTeX-env-list (environment) "Insert ENVIRONMENT and the first item." (let ((label (read-string "Default Label: "))) (LaTeX-insert-environment environment (format "{%s}{}" label)) (end-of-line 0) (delete-char 1) (delete-horizontal-space)) (LaTeX-insert-item)) (defun LaTeX-env-minipage (environment) "Create new LaTeX minipage." (let ((pos (read-string "Position: " LaTeX-default-position)) (width (read-string "Width: "))) (setq LaTeX-default-position pos) (if (zerop (length width)) (setq width "4cm")) (LaTeX-insert-environment environment (concat (if (not (zerop (length pos))) (format "[%s]" pos)) (format "{%s}" width))) (end-of-line 0) (next-line 1) (delete-horizontal-space))) (defun LaTeX-env-tabular* (environment) "Insert ENVIRONMENT with width, position and column specifications." (let ((width (read-string "Width: ")) (pos (read-string "Position: " LaTeX-default-position)) (fmt (read-string "Format: " LaTeX-default-format))) (setq LaTeX-default-position pos) (setq LaTeX-default-format fmt) (LaTeX-insert-environment environment (concat (if (not (zerop (length width))) (format "{%s}" width)) (if (not (zerop (length pos))) (format "[%s]" pos)) (format "{%s}" fmt))) (end-of-line 0) (next-line 1) (delete-horizontal-space))) (defun LaTeX-env-picture (environment) "Insert ENVIRONMENT with width, height specifications." (let ((width (read-string "Width: ")) (height (read-string "Height: ")) (x-offset (read-string "X Offset: ")) (y-offset (read-string "Y Offset: "))) (if (zerop (length x-offset)) (setq x-offset "0")) (if (zerop (length y-offset)) (setq y-offset "0")) (LaTeX-insert-environment environment (concat (format "(%s,%s)" width height) (if (not (and (string= x-offset "0") (string= y-offset "0"))) (format "(%s,%s)" x-offset y-offset)))) (end-of-line 0) (next-line 1) (delete-horizontal-space))) (defun LaTeX-env-bib (environment) "Insert ENVIRONMENT with label for bibitem." (LaTeX-insert-environment environment (concat TeX-grop (read-string "Label for BibItem: " "99") TeX-grcl)) (end-of-line 0) (delete-char 1) (delete-horizontal-space) (LaTeX-insert-item)) ;;; Item hooks (defvar LaTeX-item-list nil "An list of environments where items have a special syntax. The cdr is the name of the function, used to insert this kind of items.") (defun LaTeX-insert-item () "Insert a new item in an environment. You may use LaTeX-item-list to change the routines used to insert the item." (interactive "*") (let ((environment (LaTeX-current-environment))) (newline) (if (assoc environment LaTeX-item-list) (funcall (cdr (assoc environment LaTeX-item-list))) (TeX-insert-macro "item")) (LaTeX-indent-line))) (defun LaTeX-item-argument () "Insert a new item with an optional argument." (let ((TeX-arg-item-label-p t)) (TeX-insert-macro "item"))) (defun LaTeX-item-bib () "Insert a new bibitem." (TeX-insert-macro "bibitem")) ;;; Parser (defvar LaTeX-auto-minimal-regexp-list '(("\\\\document\\(style\\|class\\)\ \\(\\[\\(\\([^#\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)\\]\\)?\ {\\([^#\\\\\\.\n\r]+\\)}" (3 5 1) LaTeX-auto-style)) "Minimal list of regular expressions matching LaTeX macro definitions.") (defvar LaTeX-auto-label-regexp-list '(("\\\\label{\\([^\n\r%\\{}]+\\)}" 1 LaTeX-auto-label)) "List of regular expression matching LaTeX labels only.") (defvar LaTeX-auto-regexp-list (append '(("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]\ \\[\\([^\]\\\\\n\r]+\\)\\]" (1 2 3) LaTeX-auto-optional) ("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]" (1 2) LaTeX-auto-arguments) ("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?" 1 TeX-auto-symbol) ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]\\[" 1 LaTeX-auto-environment) ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]" (1 2) LaTeX-auto-env-args) ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?" 1 LaTeX-auto-environment) ("\\\\newtheorem{\\([a-zA-Z]+\\)}" 1 LaTeX-auto-environment) ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}" 1 TeX-auto-file) ("\\\\include{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}" 1 TeX-auto-file) ("\\\\usepackage\\(\\[[^\]\\\\]*\\]\\)?\ {\\(\\([^#}\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)}" (2) LaTeX-auto-style) ("\\\\bibitem{\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)}" 1 LaTeX-auto-bibitem) ("\\\\bibitem\\[[^][\n\r]+\\]{\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)}" 1 LaTeX-auto-bibitem) ("\\\\bibliography{\\([^#}\\\\\n\r]+\\)}" 1 LaTeX-auto-bibliography)) LaTeX-auto-label-regexp-list LaTeX-auto-minimal-regexp-list) "List of regular expression matching common LaTeX macro definitions.") (defun LaTeX-auto-prepare () ;; Prepare for LaTeX parsing. (setq LaTeX-auto-arguments nil LaTeX-auto-optional nil LaTeX-auto-env-args nil LaTeX-auto-style nil LaTeX-auto-end-symbol nil)) (add-hook 'TeX-auto-prepare-hook 'LaTeX-auto-prepare) (defun LaTeX-auto-cleanup () ;; Cleanup after LaTeX parsing. ;; Cleanup BibTeX files (setq LaTeX-auto-bibliography (apply 'append (mapcar (function (lambda (arg) (TeX-split-string "," arg))) LaTeX-auto-bibliography))) ;; Cleanup document styles and packages (if (null LaTeX-auto-style) () (while LaTeX-auto-style (let* ((entry (car LaTeX-auto-style)) (options (nth 0 entry)) (style (nth 1 entry)) (class (nth 2 entry))) ;; Next document style. (setq LaTeX-auto-style (cdr LaTeX-auto-style)) ;; Get the options. (setq options (TeX-split-string "\\([ \t\r\n]\\|%[^\n\r]*[\n\r]\\|,\\)+" options)) ;; Strip empty options. (if (string-equal (car options) "") (setq options (cdr options))) (let ((index options)) (while (cdr-safe index) (if (string-equal (car (cdr index)) "") (setcdr index (cdr (cdr index))) (setq index (cdr index))))) ;; Add them, to the style list. (setq TeX-auto-file (append options TeX-auto-file)) ;; The second argument if present is a normal style file. (if (null style) () (setq TeX-auto-file (cons style TeX-auto-file)) ;; And a special "art10" style file combining style and size. (setq TeX-auto-file (cons (concat (cond ((string-equal "article" style) "art") ((string-equal "book" style) "bk") ((string-equal "report" style) "rep") ((string-equal "jarticle" style) "jart") ((string-equal "jbook" style) "jbk") ((string-equal "jreport" style) "jrep") ((string-equal "j-article" style) "j-art") ((string-equal "j-book" style) "j-bk") ((string-equal "j-report" style ) "j-rep") (t style)) (cond ((member "11pt" options) "11") ((member "12pt" options) "12") (t "10"))) TeX-auto-file))) ;; The third argument if "class" indicates LaTeX2e features. (cond ((equal class "class") (setq TeX-auto-file (cons "latex2e" TeX-auto-file))) ((equal class "style") (setq TeX-auto-file (cons "latex2" TeX-auto-file))))))) ;; Cleanup optional arguments (mapcar (function (lambda (entry) (setq TeX-auto-symbol (cons (list (nth 0 entry) (string-to-int (nth 1 entry))) TeX-auto-symbol)))) LaTeX-auto-arguments) ;; Cleanup default optional arguments (mapcar (function (lambda (entry) (setq TeX-auto-symbol (cons (list (nth 0 entry) (vector "argument") (1- (string-to-int (nth 1 entry)))) TeX-auto-symbol)))) LaTeX-auto-optional) ;; Cleanup environments arguments (mapcar (function (lambda (entry) (setq LaTeX-auto-environment (cons (list (nth 0 entry) (string-to-int (nth 1 entry))) LaTeX-auto-environment)))) LaTeX-auto-env-args) ;; Cleanup use of def to add environments ;; NOTE: This uses an O(N^2) algorithm, while an O(N log N) ;; algorithm is possible. (mapcar (function (lambda (symbol) (if (not (TeX-member symbol TeX-auto-symbol 'equal)) ;; No matching symbol, insert in list (setq TeX-auto-symbol (cons (concat "end" symbol) TeX-auto-symbol)) ;; Matching symbol found, remove from list (if (equal (car TeX-auto-symbol) symbol) ;; Is it the first symbol? (setq TeX-auto-symbol (cdr TeX-auto-symbol)) ;; Nope! Travel the list (let ((list TeX-auto-symbol)) (while (consp (cdr list)) ;; Until we find it. (if (equal (car (cdr list)) symbol) ;; Then remove it. (setcdr list (cdr (cdr list)))) (setq list (cdr list))))) ;; and add the symbol as an environment. (setq LaTeX-auto-environment (cons symbol LaTeX-auto-environment))))) LaTeX-auto-end-symbol)) (add-hook 'TeX-auto-cleanup-hook 'LaTeX-auto-cleanup) (TeX-auto-add-type "label" "LaTeX") (TeX-auto-add-type "bibitem" "LaTeX") (TeX-auto-add-type "environment" "LaTeX") (TeX-auto-add-type "bibliography" "LaTeX" "bibliographies") (fset 'LaTeX-add-bibliographies-auto (symbol-function 'LaTeX-add-bibliographies)) (defun LaTeX-add-bibliographies (&rest bibliographies) "Add BIBLIOGRAPHIES to the list of known bibliographies and style files." (apply 'LaTeX-add-bibliographies-auto bibliographies) (apply 'TeX-run-style-hooks bibliographies)) (fset 'LaTeX-add-environments-auto (symbol-function 'LaTeX-add-environments)) (defun LaTeX-add-environments (&rest environments) "Add ENVIRONMENTS to the list of known environments." (apply 'LaTeX-add-environments-auto environments) (setq LaTeX-menu-changed t)) ;;; BibTeX ;;;###autoload (defun BibTeX-auto-store () "This function should be called from bibtex-mode-hook. It will setup BibTeX to store keys in an auto file." ;; We want this to be early in the list, so we do not ;; add it before we enter BibTeX mode the first time. (if (boundp 'local-write-file-hooks) (add-hook 'local-write-file-hooks 'TeX-safe-auto-write) (add-hook 'write-file-hooks 'TeX-safe-auto-write)) (make-local-variable 'TeX-auto-update) (setq TeX-auto-update 'BibTeX) (make-local-variable 'TeX-auto-untabify) (setq TeX-auto-untabify nil) (make-local-variable 'TeX-auto-parse-length) (setq TeX-auto-parse-length 999999) (make-local-variable 'TeX-auto-regexp-list) (setq TeX-auto-regexp-list BibTeX-auto-regexp-list)) (defvar BibTeX-auto-regexp-list '(("@[Ss][Tt][Rr][Ii][Nn][Gg]" 1 ignore) ("@[a-zA-Z]+[{(][ \t]*\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)" 1 LaTeX-auto-bibitem)) "List of regexp-list expressions matching BibTeX items.") ;;; Macro Argument Hooks (defun TeX-arg-conditional (optional expr then else) "Implement if EXPR THEN ELSE. If EXPR evaluate to true, parse THEN as an argument list, else parse ELSE as an argument list." (TeX-parse-arguments (if (eval expr) then else))) (defun TeX-arg-free (optional &optional &rest args) "Parse its arguments but use no braces when they are inserted." (let ((< "") (> "")) (if (equal (length args) 1) (TeX-parse-argument optional (car args)) (TeX-parse-argument optional args)))) (defun TeX-arg-literal (optional &optional &rest args) "Insert its arguments into the buffer. Used for specifying extra syntax for a macro." (apply 'insert args)) (defun TeX-arg-eval (optional &rest args) "Evaluate args and insert value in buffer." (TeX-argument-insert (eval args) optional)) (defun TeX-arg-label (optional &optional prompt definition) "Prompt for a label completing with known labels." (let ((label (completing-read (TeX-argument-prompt optional prompt "Key") (LaTeX-label-list)))) (if (and definition (not (string-equal "" label))) (LaTeX-add-labels label)) (TeX-argument-insert label optional optional))) (defun TeX-arg-macro (optional &optional prompt definition) "Prompt for a TeX macro with completion." (let ((macro (completing-read (TeX-argument-prompt optional prompt (concat "Macro: " TeX-esc) t) (TeX-symbol-list)))) (if (and definition (not (string-equal "" macro))) (TeX-add-symbols macro)) (TeX-argument-insert macro optional TeX-esc))) (defun TeX-arg-environment (optional &optional prompt definition) "Prompt for a LaTeX environment with completion." (let ((environment (completing-read (TeX-argument-prompt optional prompt "Environment") (TeX-symbol-list)))) (if (and definition (not (string-equal "" environment))) (LaTeX-add-environments environment)) (TeX-argument-insert environment optional))) (defun TeX-arg-cite (optional &optional prompt definition) "Prompt for a BibTeX citation with completion." (setq prompt (concat (if optional "(Optional) " "") (if prompt prompt "Add key") ": (default none) ")) (let ((items (multi-prompt "," t prompt (LaTeX-bibitem-list)))) (apply 'LaTeX-add-bibitems items) (TeX-argument-insert (mapconcat 'identity items ",") optional optional))) (defun TeX-arg-counter (optional &optional prompt definition) "Prompt for a LaTeX counter." ;; Completion not implemented yet. (TeX-argument-insert (read-string (TeX-argument-prompt optional prompt "Counter")) optional)) (defun TeX-arg-savebox (optional &optional prompt definition) "Prompt for a LaTeX savebox." ;; Completion not implemented yet. (TeX-argument-insert (read-string (TeX-argument-prompt optional prompt (concat "Savebox: " TeX-esc) t)) optional TeX-esc)) (defun TeX-arg-file (optional &optional prompt) "Prompt for a filename in the current directory." (TeX-argument-insert (read-file-name (TeX-argument-prompt optional prompt "File") "" "" nil) optional)) (defun TeX-arg-define-label (optional &optional prompt) "Prompt for a label completing with known labels." (TeX-arg-label optional prompt t)) (defun TeX-arg-define-macro (optional &optional prompt) "Prompt for a TeX macro with completion." (TeX-arg-macro optional prompt t)) (defun TeX-arg-define-environment (optional &optional prompt) "Prompt for a LaTeX environment with completion." (TeX-arg-environment optional prompt t)) (defun TeX-arg-define-cite (optional &optional prompt) "Prompt for a BibTeX citation." (TeX-arg-cite optional prompt t)) (defun TeX-arg-define-counter (optional &optional prompt) "Prompt for a LaTeX counter." (TeX-arg-counter optional prompt t)) (defun TeX-arg-define-savebox (optional &optional prompt) "Prompt for a LaTeX savebox." (TeX-arg-savebox optional prompt t)) (defvar LaTeX-style-list '(("book") ("article") ("letter") ("slides") ("report")) "*List of document styles.") (make-variable-buffer-local 'LaTeX-style-list) (defun TeX-arg-document (optional &optional ignore) "Insert arguments to documentstyle and documentclass." (let ((style (completing-read (concat "Document style: (default " LaTeX-default-style ") ") LaTeX-style-list)) (options (read-string "Options: " (if (stringp LaTeX-default-options) LaTeX-default-options (mapconcat 'identity LaTeX-default-options ","))))) (if (zerop (length style)) (setq style LaTeX-default-style)) (if (not (zerop (length options))) (insert LaTeX-optop options LaTeX-optcl)) (insert TeX-grop style TeX-grcl)) ;; remove old information (TeX-remove-style) ;; defined in individual style hooks (TeX-update-style)) (defvar TeX-global-input-files nil "*List of the non-local TeX input files. Initialized once at the first time you prompt for an input file. May be reset with `C-u \\[TeX-normal-mode]'.") (defun TeX-arg-input-file (optionel &optional prompt local) "Prompt for a tex or sty file. First optional argument is the promt, the second is a flag. If the flag is set, only complete with local files." (if (or TeX-global-input-files local) () (message "Searching for files...") (setq TeX-global-input-files (mapcar 'list (TeX-search-files (append TeX-macro-private TeX-macro-global) TeX-file-extensions t t)))) (let ((file (if TeX-check-path (completing-read (TeX-argument-prompt optionel prompt "File") (append (mapcar 'list (TeX-search-files '(".") TeX-file-extensions t t)) (if local nil TeX-global-input-files))) (read-file-name (TeX-argument-prompt optionel prompt "File"))))) (if (null file) (setq file "")) (if (not (string-equal "" file)) (TeX-run-style-hooks file)) (TeX-argument-insert file optionel))) (defvar BibTeX-global-style-files nil "*Association list of BibTeX style files. Initialized once at the first time you prompt for an input file. May be reset with `C-u \\[TeX-normal-mode]'.") (defun TeX-arg-bibstyle (optional &optional prompt) "Prompt for a BibTeX style file." (message "Searching for BibTeX styles...") (or BibTeX-global-style-files (setq BibTeX-global-style-files (mapcar 'list (TeX-search-files (append TeX-macro-private TeX-macro-global) BibTeX-style-extensions t t)))) (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "BibTeX style") (append (mapcar 'list (TeX-search-files '(".") BibTeX-style-extensions t t)) BibTeX-global-style-files)) optional)) (defvar BibTeX-global-files nil "*Association list of BibTeX files. Initialized once at the first time you prompt for an BibTeX file. May be reset with `C-u \\[TeX-normal-mode]'.") (defun TeX-arg-bibliography (optional &optional prompt) "Prompt for a BibTeX database file." (message "Searching for BibTeX files...") (or BibTeX-global-files (setq BibTeX-global-files (mapcar 'list (TeX-search-files nil BibTeX-file-extensions t t)))) (let ((styles (multi-prompt "," t (TeX-argument-prompt optional prompt "BibTeX files") (append (mapcar 'list (TeX-search-files '(".") BibTeX-file-extensions t t)) BibTeX-global-files)))) (apply 'LaTeX-add-bibliographies styles) (TeX-argument-insert (mapconcat 'identity styles ",") optional))) (defun TeX-arg-corner (optional &optional prompt) "Prompt for a LaTeX side or corner position with completion." (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "Position") '(("") ("l") ("r") ("t") ("b") ("tl") ("tr") ("bl") ("br")) nil t) optional)) (defun TeX-arg-lr (optional &optional prompt) "Prompt for a LaTeX side with completion." (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "Position") '(("") ("l") ("r")) nil t) optional)) (defun TeX-arg-tb (optional &optional prompt) "Prompt for a LaTeX side with completion." (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "Position") '(("") ("t") ("b")) nil t) optional)) (defun TeX-arg-pagestyle (optional &optional prompt) "Prompt for a LaTeX pagestyle with completion." (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "Pagestyle") '(("plain") ("empty") ("headings") ("myheadings"))) optional)) (defun TeX-arg-verb (optional &optional ignore) "Prompt for delimiter and text." (let ((del (read-quoted-char "Delimiter: ")) (text (read-from-minibuffer "Text: "))) (insert del text del))) (defun TeX-arg-pair (optional first second) "Insert a pair of number, prompted by FIRST and SECOND. The numbers are surounded by parenthesizes and separated with a comma." (insert "(" (read-string (concat first ": ")) "," (read-string (concat second ": ")) ")")) (defun TeX-arg-size (optional) "Insert width and height as a pair." (TeX-arg-pair optional "Width" "Height")) (defun TeX-arg-coordinate (optional) "Insert x and y coordinate as a pair." (TeX-arg-pair optional "X position" "Y position")) (defconst TeX-braces-default-association '(("[" . "]") ("\\{" . "\\}") ("(" . ")") ("|" . "|") ("\\|" . "\\|") ("/" . "/") ("\\backslash" . "\\backslash") ("\\lfloor" . "\\rfloor") ("\\lceil" . "\\rceil") ("\\langle" . "\\rangle"))) (defvar TeX-braces-user-association nil "A list of your personal association of brace symbols for \\left and \\right The car of each entry is the brace used with \\left, the cdr is the brace used with \\right.") (defvar TeX-braces-association (append TeX-braces-user-association TeX-braces-default-association) "A list of association of brace symbols for \\left and \\right. The car of each entry is the brace used with \\left, the cdr is the brace used with \\right.") (defvar TeX-left-right-braces '(("[") ("]") ("\\{") ("\\}") ("(") (")") ("|") ("\\|") ("/") ("\\backslash") ("\\lfloor") ("\\rfloor") ("\\lceil") ("\\rceil") ("\\langle") ("\\rangle") ("\\uparrow") ("\\Uparrow") ("\\downarrow") ("\\Downarrow") ("\\updownarrow") ("\\Updownarrow") (".")) "List of symbols which can follow the \\left or \\right command") (defun TeX-arg-insert-braces (optional &optional prompt) (save-excursion (backward-word 1) (backward-char) (newline-and-indent) (beginning-of-line 0) (if (looking-at "^[ \t]*$") (progn (delete-horizontal-space) (delete-char 1)))) (let ((left-brace (completing-read (TeX-argument-prompt optional prompt "Which brace") TeX-left-right-braces))) (insert left-brace) (newline-and-indent) (save-excursion (let ((right-brace (cdr (assoc left-brace TeX-braces-association)))) (newline) (insert TeX-esc "right") (if (and TeX-arg-right-insert-p right-brace) (insert right-brace) (insert (completing-read (TeX-argument-prompt optional prompt "Which brace") TeX-left-right-braces))) (LaTeX-indent-line))))) ;;; Indentation (defvar LaTeX-indent-level 2 "*Indentation of begin-end blocks in LaTeX.") (defvar LaTeX-item-indent (- LaTeX-indent-level) "*Extra indentation for lines beginning with an item.") (defvar LaTeX-item-regexp "\\(bib\\)?item\\b" "*Regular expression matching macros considered items.") (defun LaTeX-indent-line () "Indent the line containing point, as LaTeX source. Add LaTeX-indent-level indentation in each \\begin{ - \\end{ block. Lines starting with an item is given an extra indentation of LaTeX-item-indent." (interactive) (let ((indent (LaTeX-indent-calculate))) (save-excursion (if (/= (current-indentation) indent) (let ((beg (progn (beginning-of-line) (point)))) (back-to-indentation) (delete-region beg (point)) (indent-to indent)))) (if (< (current-column) indent) (back-to-indentation)))) (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag) "Fill region as one paragraph: break lines to fit fill-column, but leave all lines ending with \\\\ (plus its optional argument) alone. Prefix arg means justify too. From program, pass args FROM, TO and JUSTIFY-FLAG." (interactive "*r\nP") (or (assoc (LaTeX-current-environment) LaTeX-indent-environment-list) (save-restriction (narrow-to-region from to) (goto-char from) (while (not (eobp)) (LaTeX-indent-line) (forward-line)) (goto-char from) (while (not (eobp)) (if (re-search-forward (concat "^.*" (regexp-quote TeX-esc) (regexp-quote TeX-esc) "\\(\\s-*\\*\\)?" "\\(\\s-*\\[[^]]*\\]\\)?\\s-*$") nil t) (progn (goto-char (match-end 0)) (delete-horizontal-space) ;; I doubt very much if we want justify - ;; this is a line with \\ ;; if you think otherwise - uncomment the next line ;; (and justify-flag (justify-current-line)) (forward-char) ;; keep our position in a buffer (save-excursion (LaTeX-fill-region-as-para-do from (match-beginning 0) justify-flag)) (setq from (point))) ;; ELSE part follows - loop termination relies on a fact ;; that (LaTeX-fill-region-as-para-do) moves point past ;; the filled region (LaTeX-fill-region-as-para-do from to justify-flag))) ;; the following four lines are clearly optional, but I like my ;; LaTeX code that way (goto-char (point-min)) (while (search-forward "$$ " nil t) (replace-match "$$\n" t t) (LaTeX-indent-line))))) (defun LaTeX-fill-region-as-para-do (from to justify-flag) "Fill region as one paragraph: break lines to fit fill-column." (if (< from to) (progn ;; (save-restriction) here is likely not needed because ;; it was done by a caller, but I am not sure - mj (save-restriction (goto-char from) (skip-chars-forward " \n") (LaTeX-indent-line) (beginning-of-line) (narrow-to-region (point) to) (setq from (point)) ;; from is now before the text to fill, ;; but after any fill prefix on the first line. ;; Make sure sentences ending at end of line get an extra space. (goto-char from) (while (re-search-forward "[.?!][]})\"']*$" nil t) (insert ? )) ;; The change all newlines to spaces. (subst-char-in-region from (point-max) ?\n ?\ ) ;; Flush excess spaces, except in the paragraph indentation. (goto-char from) (skip-chars-forward " \t") (while (re-search-forward " *" nil t) (delete-region (+ (match-beginning 0) (if (save-excursion (skip-chars-backward " ]})\"'") (memq (preceding-char) '(?. ?? ?!))) 2 1)) (match-end 0))) (goto-char (point-max)) (delete-horizontal-space) (insert " ") (goto-char (point-min)) (let ((prefixcol 0)) (while (not (eobp)) (move-to-column (1+ fill-column)) (if (eobp) nil (skip-chars-backward "^ \n") (if (if (zerop prefixcol) (bolp) (>= prefixcol (current-column))) (skip-chars-forward "^ \n") (forward-char -1))) (delete-horizontal-space) (if (equal (preceding-char) ?\\) (insert ? )) (insert ?\n) (LaTeX-indent-line) (setq prefixcol (current-column)) (and justify-flag (not (eobp)) (progn (forward-line -1) (justify-current-line) (forward-line 1))) ) (goto-char (point-max)) (delete-horizontal-space)))))) (defun LaTeX-fill-paragraph (prefix) "Fill and indent paragraph at or after point. Prefix arg means justify as well." (interactive "*P") (save-excursion (beginning-of-line) (if (looking-at "[ \t]*%]") (re-search-forward "^[ \t]*[^% \t\n]")) (forward-paragraph) (or (bolp) (newline 1)) (and (eobp) (open-line 1)) (let ((end (point-marker)) (start (progn (backward-paragraph) (point)))) (LaTeX-fill-region-as-paragraph start end prefix)))) (defun LaTeX-fill-region (from to &optional justify what) "Fill and indent each of the paragraphs in the region as LaTeX text. Prefix arg (non-nil third arg, if called from program) means justify as well. Fourth arg WHAT is a word to be displayed when formatting." (interactive "*r\nP") (save-restriction (save-excursion (let ((length (- to from)) (to (set-marker (make-marker) to))) (goto-char from) (beginning-of-line) (while (< (point) to) (message "Formatting%s ... %d%%" (if (not what) "" what) (/ (* 100 (- (point) from)) length)) (save-excursion (LaTeX-fill-paragraph justify)) (forward-paragraph 2) (if (not (eobp)) (backward-paragraph))) (set-marker to nil))) (message "Finished"))) (defun LaTeX-find-matching-end () "Move point to the \\end of the current environment" (interactive) (let ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b")) (level 1)) (beginning-of-line 1) (if (looking-at (concat " *" (regexp-quote TeX-esc) "begin\\b")) (end-of-line 1)) (while (and (> level 0) (re-search-forward regexp nil t)) (if (= (char-after (1+ (match-beginning 0))) ?b);;begin (setq level (1+ level)) (setq level (1- level)))) (if (= level 0) (search-forward "}") (error "Can't locate end of current environment")))) (defun LaTeX-find-matching-begin () "Move point to the \\begin of the current environment" (interactive) (let ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b")) (level 1)) (beginning-of-line 1) (if (looking-at (concat " *" (regexp-quote TeX-esc) "begin\\b")) (end-of-line 1)) (while (and (> level 0) (re-search-backward regexp nil t)) (if (= (char-after (1+ (match-beginning 0))) ?e);;end (setq level (1+ level)) (setq level (1- level)))) (or (= level 0) (error "Can't locate beginning of current environment")))) (defun LaTeX-mark-environment () "Set mark to end of current environment and point to the matching begin will not work properly if there are unbalanced begin-end pairs in comments and verbatim environments" (interactive) (let ((cur (point))) (LaTeX-find-matching-end) (beginning-of-line 2) (set-mark (point)) (goto-char cur) (LaTeX-find-matching-begin) (TeX-activate-region))) (defun LaTeX-fill-environment (justify) "Fill and indent current environment as LaTeX text." (interactive "*P") (save-excursion (LaTeX-mark-environment) (re-search-forward "{\\([^}]+\\)}") (LaTeX-fill-region (region-beginning) (region-end) justify (concat " environment " (TeX-match-buffer 1))))) (defun LaTeX-fill-section (justify) "Fill and indent current logical section as LaTeX text." (interactive "*P") (save-excursion (LaTeX-mark-section) (re-search-forward "{\\([^}]+\\)}") (LaTeX-fill-region (region-beginning) (region-end) justify (concat " section " (TeX-match-buffer 1))))) (defun LaTeX-mark-section () "Set mark at end of current logical section, and point at top." (interactive) (re-search-forward (concat "\\(" (LaTeX-outline-regexp) "\\|\\'\\)")) (re-search-backward "^") (set-mark (point)) (re-search-backward (concat "\\(" (LaTeX-outline-regexp) "\\|\\`\\)")) (TeX-activate-region)) (defun LaTeX-fill-buffer (justify) "Fill and indent current buffer as LaTeX text." (interactive "*P") (save-excursion (LaTeX-fill-region (point-min) (point-max) justify (concat " buffer " (buffer-name))))) (defvar LaTeX-indent-environment-list '(("verbatim" current-indentation) ("verbatim*" current-indentation) ;; The following should have there own, smart indentation function. ;; Some other day. ("alltt") ("array") ("displaymath") ("eqnarray") ("eqnarray*") ("equation") ("equation*") ("picture") ("tabbing") ("table") ("table*") ("tabular") ("tabular*")) "Alist of environments with special indentation. The second element in each entry is the function to calculate the indentation level in columns.") (defvar LaTeX-indent-environment-check t "*If non-nil, check for any special environments.") (defvar LaTeX-left-comment-regexp "%%%" "*Regexp matching comments that should be placed on the left margin.") (defvar LaTeX-right-comment-regexp "%[^%]" "*Regexp matching comments that should be placed to the right margin.") (defvar LaTeX-ignore-comment-regexp nil "*Regexp matching comments that whose indentation should not be touched.") (defun LaTeX-indent-calculate () ;; Return the correct indentation of line of LaTeX source. (I hope...) (save-excursion (back-to-indentation) (cond ((looking-at (concat (regexp-quote TeX-esc) "\\(begin\\|end\\){verbatim\\*?}")) ;; \end{verbatim} must be flush left, otherwise an unwanted ;; empty line appears in LaTeX's output. 0) ((and LaTeX-left-comment-regexp (looking-at LaTeX-left-comment-regexp)) ;; Comments to the left margin. 0) ((and LaTeX-right-comment-regexp (looking-at LaTeX-right-comment-regexp)) ;; Comments to the right margin. comment-column) ((and LaTeX-ignore-comment-regexp (looking-at LaTeX-ignore-comment-regexp)) ;; Comments best left alone. (current-indentation)) ((and LaTeX-indent-environment-check ;; Special environments. (let ((entry (assoc (LaTeX-current-environment) LaTeX-indent-environment-list))) (and entry (nth 1 entry) (funcall (nth 1 entry)))))) ((looking-at (concat (regexp-quote TeX-esc) "end\\b")) ;; Backindent at \end. (- (LaTeX-indent-calculate-last) LaTeX-indent-level)) ((looking-at (concat (regexp-quote TeX-esc) "right\\b")) ;; Backindent at \right. (- (LaTeX-indent-calculate-last) LaTeX-left-right-indent-level)) ((looking-at (concat (regexp-quote TeX-esc) LaTeX-item-regexp)) ;; Items. (+ (LaTeX-indent-calculate-last) LaTeX-item-indent)) (t (LaTeX-indent-calculate-last))))) (defvar LaTeX-left-right-indent-level LaTeX-indent-level "*The level of indentation produced by a \\left macro.") (defun LaTeX-indent-level-count () ;; Count indentation change caused by all \left, \right, \begin, and ;; \end commands in the current line. (save-excursion (save-restriction (let ((count 0)) (narrow-to-region (point) (save-excursion (re-search-forward (concat "[^" (regexp-quote TeX-esc) "]%\\|\n\\|\\'")) (backward-char) (point))) (while (search-forward TeX-esc nil t) (cond ((looking-at "left\\b") (setq count (+ count LaTeX-left-right-indent-level))) ((looking-at "right\\b") (setq count (- count LaTeX-left-right-indent-level))) ((looking-at "begin\\b") (setq count (+ count LaTeX-indent-level))) ((looking-at "end\\b") (setq count (- count LaTeX-indent-level))) ((looking-at (regexp-quote TeX-esc)) (forward-char 1)))) count)))) (defun LaTeX-indent-calculate-last () "Return the correct indentation of a normal line of text. The point is supposed to be at the beginning of the current line." (save-restriction (widen) (skip-chars-backward "\n\t ") (move-to-column (current-indentation)) ;; Ignore comments. (while (and (looking-at (regexp-quote comment-start)) (not (bobp))) (skip-chars-backward "\n\t ") (if (not (bobp)) (move-to-column (current-indentation)))) (cond ((bobp) 0) ((looking-at (concat (regexp-quote TeX-esc) "begin{document}")) ;; I dislike having all of the document indented... (current-indentation)) ((looking-at (concat (regexp-quote TeX-esc) "begin *" (regexp-quote TeX-grop) "verbatim\\*?" (regexp-quote TeX-grcl))) 0) ((looking-at (concat (regexp-quote TeX-esc) "end" (regexp-quote TeX-grop) "verbatim\\*?" (regexp-quote TeX-grcl))) ;; If I see an \end{verbatim} in the previous line I skip ;; back to the preceding \begin{verbatim}. (save-excursion (if (re-search-backward (concat (regexp-quote TeX-esc) "begin *" (regexp-quote TeX-grop) "verbatim\\*?" (regexp-quote TeX-grcl)) 0 t) (LaTeX-indent-calculate-last) 0))) (t (+ (current-indentation) (TeX-brace-count-line) (LaTeX-indent-level-count) (cond ((looking-at (concat (regexp-quote TeX-esc) "end\\b")) LaTeX-indent-level) ((looking-at (concat (regexp-quote TeX-esc) "right\\b")) LaTeX-left-right-indent-level) ((looking-at (concat (regexp-quote TeX-esc) LaTeX-item-regexp)) (- LaTeX-item-indent)) (t 0))))))) ;;; Math Minor Mode (defvar LaTeX-math-list nil "AList of your personal LaTeX math symbols. Each entry should be a list with three elements, KEY, VALUE, and MENU. KEY is the key to be redefined (under `LaTeX-math-abbrev-prefix' in math minor mode, VALUE can be a string with the name of the macro to be inserted, or a function to be called. The optional third element is the name of the submenu where the command should be added. See also `LaTeX-math-menu'.") (defconst LaTeX-math-default '((?a "alpha" "greek") (?b "beta" "greek") (?c LaTeX-math-cal "Cal-whatever") (?d "delta" "greek") (?e "epsilon" "greek") (?f "phi" "greek") (?g "gamma" "greek") (?h "eta" "greek") (?k "kappa" "greek") (?l "lambda" "greek") (?m "mu" "greek") (?N "nabla" "greek") (?n "nu" "greek") (?o "omega" "greek") (?p "pi" "greek") (?q "theta" "greek") (?r "rho" "greek") (?s "sigma" "greek") (?t "tau" "greek") (?u "upsilon" "greek") (?x "chi" "greek") (?y "psi" "greek") (?z "zeta" "greek") (?D "Delta" "Greek") (?F "Phi" "Greek") (?G "Gamma" "Greek") (?Q "Theta" "Greek") (?L "Lambda" "Greek") (?Y "Psi" "Greek") (?P "Pi" "Greek") (?S "Sigma" "Greek") (?U "Upsilon" "Greek") (?O "Omega" "Greek") (nil "pm" "Binary Op") (nil "mp" "Binary Op") (?* "times" "Binary Op") (nil "div" "Binary Op") (nil "ast" "Binary Op") (nil "star" "Binary Op") (nil "circ" "Binary Op") (nil "bullet" "Binary Op") (?. "cdot" "Binary Op") (?- "cap" "Binary Op") (?+ "cup" "Binary Op") (nil "uplus" "Binary Op") (nil "sqcap" "Binary Op") (?| "vee" "Binary Op") (?& "wedge" "Binary Op") (?\\ "setminus" "Binary Op") (nil "wr" "Binary Op") (nil "diamond" "Binary Op") (nil "bigtriangleup" "Binary Op") (nil "bigtriangledown" "Binary Op") (nil "triangleleft" "Binary Op") (nil "triangleright" "Binary Op") (nil "lhd" "Binary Op") (nil "rhd" "Binary Op") (nil "unlhd" "Binary Op") (nil "unrhd" "Binary Op") (nil "oplus" "Binary Op") (nil "ominus" "Binary Op") (nil "otimes" "Binary Op") (nil "oslash" "Binary Op") (nil "odot" "Binary Op") (nil "bigcirc" "Binary Op") (nil "dagger" "Binary Op") (nil "ddagger" "Binary Op") (nil "amalg" "Binary Op") (?< "leq" "Relational") (?> "geq" "Relational") (nil "qed" "Relational") (nil "equiv" "Relational") (nil "models" "Relational") (nil "prec" "Relational") (nil "succ" "Relational") (nil "sim" "Relational") (nil "perp" "Relational") (nil "preceq" "Relational") (nil "succeq" "Relational") (nil "simeq" "Relational") (nil "mid" "Relational") (nil "ll" "Relational") (nil "gg" "Relational") (nil "asymp" "Relational") (nil "parallel" "Relational") (?{ "subset" "Relational") (?} "supset" "Relational") (nil "approx" "Relational") (nil "bowtie" "Relational") (?\[ "subseteq" "Relational") (?\] "supseteq" "Relational") (nil "cong" "Relational") (nil "Join" "Relational") (nil "sqsubset" "Relational") (nil "sqsupset" "Relational") (nil "neq" "Relational") (nil "smile" "Relational") (nil "sqsubseteq" "Relational") (nil "sqsupseteq" "Relational") (nil "doteq" "Relational") (nil "frown" "Relational") (?i "in" "Relational") (nil "ni" "Relational") (nil "propto" "Relational") (nil "vdash" "Relational") (nil "dashv" "Relational") (?\C-b "leftarrow" "Arrows") (nil "Leftarrow" "Arrows") (?\C-f "rightarrow" "Arrows") (nil "Rightarrow" "Arrows") (nil "leftrightarrow" "Arrows") (nil "Leftrightarrow" "Arrows") (nil "mapsto" "Arrows") (nil "hookleftarrow" "Arrows") (nil "leftharpoonup" "Arrows") (nil "leftharpoondown" "Arrows") (nil "longleftarrow" "Arrows") (nil "Longleftarrow" "Arrows") (nil "longrightarrow" "Arrows") (nil "Longrightarrow" "Arrows") (nil "longleftrightarrow" "Arrows") (nil "Longleftrightarrow" "Arrows") (nil "longmapsto" "Arrows") (nil "hookrightarrow" "Arrows") (nil "rightharpoonup" "Arrows") (nil "rightharpoondown" "Arrows") (?\C-p "uparow" "Arrows") (nil "Uparrow" "Arrows") (?\C-n "downarrow" "Arrows") (nil "Downarrow" "Arrows") (nil "updownarrow" "Arrows") (nil "Updownarrow" "Arrows") (nil "nearrow" "Arrows") (nil "searrow" "Arrows") (nil "swarrow" "Arrows") (nil "nwarrow" "Arrows") (nil "ldots" "Misc Symbol") (nil "cdots" "Misc Symbol") (nil "vdots" "Misc Symbol") (nil "ddots" "Misc Symbol") (nil "aleph" "Misc Symbol") (nil "prime" "Misc Symbol") (?A "forall" "Misc Symbol") (?I "infty" "Misc Symbol") (nil "hbar" "Misc Symbol") (?0 "emptyset" "Misc Symbol") (?E "exists" "Misc Symbol") (nil "nabla" "Misc Symbol") (nil "surd" "Misc Symbol") (nil "Box" "Misc Symbol") (nil "triangle" "Misc Symbol") (nil "Diamond" "Misc Symbol") (nil "imath" "Misc Symbol") (nil "jmath" "Misc Symbol") (nil "ell" "Misc Symbol") (nil "neg" "Misc Symbol") (?/ "not" "Misc Symbol") (nil "top" "Misc Symbol") (nil "flat" "Misc Symbol") (nil "natural" "Misc Symbol") (nil "sharp" "Misc Symbol") (nil "wp" "Misc Symbol") (nil "bot" "Misc Symbol") (nil "clubsuit" "Misc Symbol") (nil "diamondsuit" "Misc Symbol") (nil "heartsuit" "Misc Symbol") (nil "spadesuit" "Misc Symbol") (nil "mho" "Misc Symbol") (nil "Re" "Misc Symbol") (nil "Im" "Misc Symbol") (nil "angle" "Misc Symbol") (nil "partial" "Misc Symbol") (nil "sum" "Var Symbol") (nil "prod" "Var Symbol") (nil "coprod" "Var Symbol") (nil "int" "Var Symbol") (nil "oint" "Var Symbol") (nil "bigcap" "Var Symbol") (nil "bigcup" "Var Symbol") (nil "bigsqcup" "Var Symbol") (nil "bigvee" "Var Symbol") (nil "bigwedge" "Var Symbol") (nil "bigodot" "Var Symbol") (nil "bigotimes" "Var Symbol") (nil "bigoplus" "Var Symbol") (nil "biguplus" "Var Symbol") (nil "arccos" "Log-like") (nil "arcsin" "Log-like") (nil "arctan" "Log-like") (nil "arg" "Log-like") (?\C-c "cos" "Log-like") (nil "cosh" "Log-like") (nil "cot" "Log-like") (nil "coth" "Log-like") (nil "csc" "Log-like") (nil "deg" "Log-like") (?\C-d "det" "Log-like") (nil "dim" "Log-like") (?\C-e "exp" "Log-like") (nil "gcd" "Log-like") (nil "hom" "Log-like") (?\C-_ "inf" "Log-like") (nil "ker" "Log-like") (nil "lg" "Log-like") (?\C-l "lim" "Log-like") (nil "liminf" "Log-like") (nil "limsup" "Log-like") (nil "ln" "Log-like") (nil "log" "Log-like") (nil "max" "Log-like") (nil "min" "Log-like") (nil "Pr" "Log-like") (nil "sec" "Log-like") (?\C-s "sin" "Log-like") (nil "sinh" "Log-like") (?\C-^ "sup" "Log-like") (?\C-t "tan" "Log-like") (nil "tanh" "Log-like") (nil "uparrow" "delimiters") (nil "Uparrow" "delimiters") (nil "downarrow" "delimiters") (nil "Downarrow" "delimiters") (nil "{" "delimiters") (nil "}" "delimiters") (nil "updownarrow" "delimiters") (nil "Updownarrow" "delimiters") (nil "lfloor" "delimiters") (nil "rfloor" "delimiters") (nil "lceil" "delimiters") (nil "rceil" "delimiters") (?\( "langle" "delimiters") (?\) "rangle" "delimiters") (nil "backslash" "delimiters") (nil "|" "delimiters") (nil "rmoustache" "Delimiters") (nil "lmoustache" "Delimiters") (nil "rgroup" "Delimiters") (nil "lgroup" "Delimiters") (nil "arrowvert" "Delimiters") (nil "Arrowvert" "Delimiters") (nil "bracevert" "Delimiters") (nil "widetilde" "Constructs") (nil "widehat" "Constructs") (nil "overleftarrow" "Constructs") (nil "overrightarrow" "Constructs") (nil "overline" "Constructs") (nil "underline" "Constructs") (nil "overbrace" "Constructs") (nil "underbrace" "Constructs") (nil "sqrt" "Constructs") (nil "frac" "Constructs") (?^ "hat" "Accents") (nil "acute" "Accents") (nil "bar" "Accents") (nil "dot" "Accents") (nil "breve" "Accents") (nil "check" "Accents") (nil "grave" "Accents") (nil "vec" "Accents") (nil "ddot" "Accents") (?~ "tilde" "Accents") (nil "ulcorner" ("AMS" "Hebrew")) (nil "urcorner" ("AMS" "Hebrew")) (nil "llcorner" ("AMS" "Hebrew")) (nil "lrcorner" ("AMS" "Hebrew")) (nil "dashrightarrow" ("AMS" "Arrows")) (nil "dashleftarrow" ("AMS" "Arrows")) (nil "leftleftarrows" ("AMS" "Arrows")) (nil "leftrightarrows" ("AMS" "Arrows")) (nil "Lleftarrow" ("AMS" "Arrows")) (nil "twoheadleftarrow" ("AMS" "Arrows")) (nil "leftarrowtail" ("AMS" "Arrows")) (nil "looparrowleft" ("AMS" "Arrows")) (nil "leftrightharpoons" ("AMS" "Arrows")) (nil "curvearrowleft" ("AMS" "Arrows")) (nil "circlearrowleft" ("AMS" "Arrows")) (nil "Lsh" ("AMS" "Arrows")) (nil "upuparrows" ("AMS" "Arrows")) (nil "upharpoonleft" ("AMS" "Arrows")) (nil "downharpoonleft" ("AMS" "Arrows")) (nil "multimap" ("AMS" "Arrows")) (nil "leftrightsquigarrow" ("AMS" "Arrows")) (nil "looparrowright" ("AMS" "Arrows")) (nil "rightleftharpoons" ("AMS" "Arrows")) (nil "curvearrowright" ("AMS" "Arrows")) (nil "circlearrowright" ("AMS" "Arrows")) (nil "Rsh" ("AMS" "Arrows")) (nil "downdownarrows" ("AMS" "Arrows")) (nil "upharpoonright" ("AMS" "Arrows")) (nil "downharpoonright" ("AMS" "Arrows")) (nil "rightsquigarrow" ("AMS" "Arrows")) (nil "nleftarrow" ("AMS" "Neg Arrows")) (nil "nrightarrow" ("AMS" "Neg Arrows")) (nil "nLeftarrow" ("AMS" "Neg Arrows")) (nil "nRightarrow" ("AMS" "Neg Arrows")) (nil "nleftrightarrow" ("AMS" "Neg Arrows")) (nil "nLeftrightarrow" ("AMS" "Neg Arrows")) (nil "leqq" ("AMS" "Relational I")) (nil "leqslant" ("AMS" "Relational I")) (nil "eqslantless" ("AMS" "Relational I")) (nil "lesssim" ("AMS" "Relational I")) (nil "lessapprox" ("AMS" "Relational I")) (nil "approxeq" ("AMS" "Relational I")) (nil "lessdot" ("AMS" "Relational I")) (nil "lll" ("AMS" "Relational I")) (nil "lessgtr" ("AMS" "Relational I")) (nil "lesseqgtr" ("AMS" "Relational I")) (nil "lesseqqgtr" ("AMS" "Relational I")) (nil "doteqdot" ("AMS" "Relational I")) (nil "risingdotseq" ("AMS" "Relational I")) (nil "fallingdotseq" ("AMS" "Relational I")) (nil "backsim" ("AMS" "Relational I")) (nil "backsimeq" ("AMS" "Relational I")) (nil "subseteqq" ("AMS" "Relational I")) (nil "Subset" ("AMS" "Relational I")) (nil "sqsubset" ("AMS" "Relational I")) (nil "preccurlyeq" ("AMS" "Relational I")) (nil "curlyeqprec" ("AMS" "Relational I")) (nil "precsim" ("AMS" "Relational I")) (nil "precapprox" ("AMS" "Relational I")) (nil "vartriangleleft" ("AMS" "Relational I")) (nil "trianglelefteq" ("AMS" "Relational I")) (nil "vDash" ("AMS" "Relational I")) (nil "Vvdash" ("AMS" "Relational I")) (nil "smallsmile" ("AMS" "Relational I")) (nil "smallfrown" ("AMS" "Relational I")) (nil "bumpeq" ("AMS" "Relational I")) (nil "Bumpeq" ("AMS" "Relational I")) (nil "geqq" ("AMS" "Relational II")) (nil "geqslant" ("AMS" "Relational II")) (nil "eqslantgtr" ("AMS" "Relational II")) (nil "gtrsim" ("AMS" "Relational II")) (nil "gtrapprox" ("AMS" "Relational II")) (nil "gtrdot" ("AMS" "Relational II")) (nil "ggg" ("AMS" "Relational II")) (nil "gtrless" ("AMS" "Relational II")) (nil "gtreqless" ("AMS" "Relational II")) (nil "gtreqqless" ("AMS" "Relational II")) (nil "eqcirc" ("AMS" "Relational II")) (nil "circeq" ("AMS" "Relational II")) (nil "triangleq" ("AMS" "Relational II")) (nil "thicksim" ("AMS" "Relational II")) (nil "thickapprox" ("AMS" "Relational II")) (nil "supseteqq" ("AMS" "Relational II")) (nil "Supset" ("AMS" "Relational II")) (nil "sqsupset" ("AMS" "Relational II")) (nil "succcurlyeq" ("AMS" "Relational II")) (nil "curlyeqsucc" ("AMS" "Relational II")) (nil "succsim" ("AMS" "Relational II")) (nil "succapprox" ("AMS" "Relational II")) (nil "vartriangleright" ("AMS" "Relational II")) (nil "trianglerighteq" ("AMS" "Relational II")) (nil "Vdash" ("AMS" "Relational II")) (nil "shortmid" ("AMS" "Relational II")) (nil "shortparallel" ("AMS" "Relational II")) (nil "between" ("AMS" "Relational II")) (nil "pitchfork" ("AMS" "Relational II")) (nil "varpropto" ("AMS" "Relational II")) (nil "blacktriangleleft" ("AMS" "Relational II")) (nil "therefore" ("AMS" "Relational II")) (nil "backepsilon" ("AMS" "Relational II")) (nil "blacktriangleright" ("AMS" "Relational II")) (nil "because" ("AMS" "Relational II")) (nil "nless" ("AMS" "Neg Rel I")) (nil "nleq" ("AMS" "Neg Rel I")) (nil "nleqslant" ("AMS" "Neg Rel I")) (nil "nleqq" ("AMS" "Neg Rel I")) (nil "lneq" ("AMS" "Neg Rel I")) (nil "lneqq" ("AMS" "Neg Rel I")) (nil "lvertneqq" ("AMS" "Neg Rel I")) (nil "lnsim" ("AMS" "Neg Rel I")) (nil "lnapprox" ("AMS" "Neg Rel I")) (nil "nprec" ("AMS" "Neg Rel I")) (nil "npreceq" ("AMS" "Neg Rel I")) (nil "precnsim" ("AMS" "Neg Rel I")) (nil "precnapprox" ("AMS" "Neg Rel I")) (nil "nsim" ("AMS" "Neg Rel I")) (nil "nshortmid" ("AMS" "Neg Rel I")) (nil "nmid" ("AMS" "Neg Rel I")) (nil "nvdash" ("AMS" "Neg Rel I")) (nil "nvDash" ("AMS" "Neg Rel I")) (nil "ntriangleleft" ("AMS" "Neg Rel I")) (nil "ntrianglelefteq" ("AMS" "Neg Rel I")) (nil "nsubseteq" ("AMS" "Neg Rel I")) (nil "subsetneq" ("AMS" "Neg Rel I")) (nil "varsubsetneq" ("AMS" "Neg Rel I")) (nil "subsetneqq" ("AMS" "Neg Rel I")) (nil "varsubsetneqq" ("AMS" "Neg Rel I")) (nil "ngtr" ("AMS" "Neg Rel II")) (nil "ngeq" ("AMS" "Neg Rel II")) (nil "ngeqslant" ("AMS" "Neg Rel II")) (nil "ngeqq" ("AMS" "Neg Rel II")) (nil "gneq" ("AMS" "Neg Rel II")) (nil "gneqq" ("AMS" "Neg Rel II")) (nil "gvertneqq" ("AMS" "Neg Rel II")) (nil "gnsim" ("AMS" "Neg Rel II")) (nil "gnapprox" ("AMS" "Neg Rel II")) (nil "nsucc" ("AMS" "Neg Rel II")) (nil "nsucceq" ("AMS" "Neg Rel II")) (nil "succnsim" ("AMS" "Neg Rel II")) (nil "succnapprox" ("AMS" "Neg Rel II")) (nil "ncong" ("AMS" "Neg Rel II")) (nil "nshortparallel" ("AMS" "Neg Rel II")) (nil "nparallel" ("AMS" "Neg Rel II")) (nil "nvDash" ("AMS" "Neg Rel II")) (nil "nVDash" ("AMS" "Neg Rel II")) (nil "ntriangleright" ("AMS" "Neg Rel II")) (nil "ntrianglerighteq" ("AMS" "Neg Rel II")) (nil "nsupseteq" ("AMS" "Neg Rel II")) (nil "nsupseteqq" ("AMS" "Neg Rel II")) (nil "supsetneq" ("AMS" "Neg Rel II")) (nil "varsupsetneq" ("AMS" "Neg Rel II")) (nil "supsetneqq" ("AMS" "Neg Rel II")) (nil "varsupsetneqq" ("AMS" "Neg Rel II")) (nil "dotplus" ("AMS" "Binary Op")) (nil "smallsetminus" ("AMS" "Binary Op")) (nil "Cap" ("AMS" "Binary Op")) (nil "Cup" ("AMS" "Binary Op")) (nil "barwedge" ("AMS" "Binary Op")) (nil "veebar" ("AMS" "Binary Op")) (nil "doublebarwedge" ("AMS" "Binary Op")) (nil "boxminus" ("AMS" "Binary Op")) (nil "boxtimes" ("AMS" "Binary Op")) (nil "boxdot" ("AMS" "Binary Op")) (nil "boxplus" ("AMS" "Binary Op")) (nil "divideontimes" ("AMS" "Binary Op")) (nil "ltimes" ("AMS" "Binary Op")) (nil "rtimes" ("AMS" "Binary Op")) (nil "leftthreetimes" ("AMS" "Binary Op")) (nil "rightthreetimes" ("AMS" "Binary Op")) (nil "curlywedge" ("AMS" "Binary Op")) (nil "curlyvee" ("AMS" "Binary Op")) (nil "circleddash" ("AMS" "Binary Op")) (nil "circledast" ("AMS" "Binary Op")) (nil "circledcirc" ("AMS" "Binary Op")) (nil "centerdot" ("AMS" "Binary Op")) (nil "intercal" ("AMS" "Binary Op")) (nil "hbar" ("AMS" "Misc")) (nil "hslash" ("AMS" "Misc")) (nil "vartriangle" ("AMS" "Misc")) (nil "triangledown" ("AMS" "Misc")) (nil "square" ("AMS" "Misc")) (nil "lozenge" ("AMS" "Misc")) (nil "circledS" ("AMS" "Misc")) (nil "angle" ("AMS" "Misc")) (nil "measuredangle" ("AMS" "Misc")) (nil "nexists" ("AMS" "Misc")) (nil "mho" ("AMS" "Misc")) (nil "Finv" ("AMS" "Misc")) (nil "Game" ("AMS" "Misc")) (nil "Bbbk" ("AMS" "Misc")) (nil "backprime" ("AMS" "Misc")) (nil "varnothing" ("AMS" "Misc")) (nil "blacktriangle" ("AMS" "Misc")) (nil "blacktriangledown" ("AMS" "Misc")) (nil "blacksquare" ("AMS" "Misc")) (nil "blacklozenge" ("AMS" "Misc")) (nil "bigstar" ("AMS" "Misc")) (nil "sphericalangle" ("AMS" "Misc")) (nil "complement" ("AMS" "Misc")) (nil "eth" ("AMS" "Misc")) (nil "diagup" ("AMS" "Misc")) (nil "diagdown" ("AMS" "Misc")) (nil "Hat" ("AMS" "Accents")) (nil "Check" ("AMS" "Accents")) (nil "Tilde" ("AMS" "Accents")) (nil "Acute" ("AMS" "Accents")) (nil "Grave" ("AMS" "Accents")) (nil "Dot" ("AMS" "Accents")) (nil "Ddot" ("AMS" "Accents")) (nil "Breve" ("AMS" "Accents")) (nil "Bar" ("AMS" "Accents")) (nil "Vec" ("AMS" "Accents")) (nil "dddot" ("AMS" "Accents")) (nil "ddddot" ("AMS" "Accents")) (nil "bigl" ("AMS" "Delimiters")) (nil "bigr" ("AMS" "Delimiters")) (nil "Bigl" ("AMS" "Delimiters")) (nil "Bigr" ("AMS" "Delimiters")) (nil "biggl" ("AMS" "Delimiters")) (nil "biggr" ("AMS" "Delimiters")) (nil "Biggl" ("AMS" "Delimiters")) (nil "Biggr" ("AMS" "Delimiters")) (nil "lvert" ("AMS" "Delimiters")) (nil "rvert" ("AMS" "Delimiters")) (nil "lVert" ("AMS" "Delimiters")) (nil "rVert" ("AMS" "Delimiters")) (nil "nobreakdash" ("AMS" "Special")) (nil "leftroot" ("AMS" "Special")) (nil "uproot" ("AMS" "Special")) (nil "accentedsymbol" ("AMS" "Special")) (nil "xleftarrow" ("AMS" "Special")) (nil "xrightarrow" ("AMS" "Special")) (nil "overset" ("AMS" "Special")) (nil "underset" ("AMS" "Special")) (nil "dfrac" ("AMS" "Special")) (nil "genfrac" ("AMS" "Special")) (nil "tfrac" ("AMS" "Special")) (nil "binom" ("AMS" "Special")) (nil "dbinom" ("AMS" "Special")) (nil "tbinom" ("AMS" "Special")) (nil "smash" ("AMS" "Special")) (nil "eucal" ("AMS" "Special")) (nil "boldsymbol" ("AMS" "Special")) (nil "text" ("AMS" "Special")) (nil "intertext" ("AMS" "Special")) (nil "substack" ("AMS" "Special")) (nil "subarray" ("AMS" "Special")) (nil "sideset" ("AMS" "Special")))) (defvar LaTeX-math-abbrev-prefix "`" "Prefix key for use in LaTeX-math-mode.") (defvar LaTeX-math-keymap (make-sparse-keymap) "Keymap used for LaTeX-math-mode commands.") (defvar LaTeX-math-menu '("Math" ("Greek") ("greek") ("Binary Op") ("Relational") ("Arrows") ("Misc Symbol") ("Var Symbol") ("Log-like") ("delimiters") ("Delimiters") ("Constructs") ("Accents") ("AMS")) "Menu containing LaTeX math commands. The menu entries will be generated dynamically, but you can specify the sequence by initializing this variable.") (define-key LaTeX-math-keymap (concat LaTeX-math-abbrev-prefix LaTeX-math-abbrev-prefix) 'LaTeX-math-insert-prefix) (let ((math (reverse (append LaTeX-math-list LaTeX-math-default))) (map (lookup-key LaTeX-math-keymap LaTeX-math-abbrev-prefix))) (while math (let* ((entry (car math)) (key (nth 0 entry)) value menu name) (setq math (cdr math)) (if (listp (cdr entry)) (setq value (nth 1 entry) menu (nth 2 entry)) (setq value (cdr entry) menu nil)) (if (stringp value) (progn (setq name (intern (concat "LaTeX-math-" value))) (fset name (list 'lambda (list 'arg) (list 'interactive "*P") (list 'LaTeX-math-insert value 'arg)))) (setq name value)) (if key (progn (setq key (if (numberp key) (char-to-string key) (vector key))) (define-key map key name))) (if menu (let ((parent LaTeX-math-menu)) (if (listp menu) (progn (while (cdr menu) (let ((sub (assoc (car menu) LaTeX-math-menu))) (if sub (setq parent sub) (setcdr parent (cons (list (car menu)) (cdr parent)))) (setq menu (cdr menu)))) (setq menu (car menu)))) (let ((sub (assoc menu parent))) (if sub (if (stringp value) (setcdr sub (cons (vector value name t) (cdr sub))) (error "Cannot have multiple special math menu items")) (setcdr parent (cons (if (stringp value) (list menu (vector value name t)) (vector menu name t)) (cdr parent)))))))))) (easy-menu-define LaTeX-math-mode-menu LaTeX-math-keymap "Menu used in math minor mode." LaTeX-math-menu) (defvar LaTeX-math-mode nil "Is LaTeX-math-mode on or off? non nil means on.") (make-variable-buffer-local 'LaTeX-math-mode) (or (assoc 'LaTeX-math-mode minor-mode-alist) (setq minor-mode-alist (cons '(LaTeX-math-mode " Math") minor-mode-alist))) (or (assoc 'LaTeX-math-mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons 'LaTeX-math-mode LaTeX-math-keymap) minor-mode-map-alist))) (defun LaTeX-math-mode (&optional arg) "A minor mode with easy acces to TeX math macros. Easy insertion of LaTeX math symbols. If you give a prefix argument, the symbols will be surrounded by dollar signs. The following commands are defined: \\{LaTeX-math-keymap}" (interactive "P") (setq LaTeX-math-mode (not (or (and (null arg) LaTeX-math-mode) (<= (prefix-numeric-value arg) 0)))) (if LaTeX-math-mode (easy-menu-add LaTeX-math-mode-menu LaTeX-math-keymap) (easy-menu-remove LaTeX-math-mode-menu)) (set-buffer-modified-p (buffer-modified-p))) (fset 'latex-math-mode 'LaTeX-math-mode) (defun LaTeX-math-insert-prefix () "Insert the value of `LaTeX-math-abbrev-prefix'." (interactive "*") (let (LaTeX-math-mode) (call-interactively (key-binding LaTeX-math-abbrev-prefix)))) (defun LaTeX-math-insert (string dollar) ;; Inserts \STRING{}. If DOLLAR is non-nil, put $'s around it. (if dollar (insert "$")) (TeX-insert-macro string) (if dollar (insert "$"))) (defun LaTeX-math-cal (char dollar) "Inserts a {\\cal CHAR}. If DOLLAR is non-nil, put $'s around it." (interactive "*c\nP") (if dollar (insert "$")) (if (member "latex2e" (TeX-style-list)) (insert "\\mathcal{" (char-to-string char) "}") (insert "{\\cal " (char-to-string char) "}")) (if dollar (insert "$"))) (provide 'latex) ;;; Keymap (defvar LaTeX-mode-map (let ((map (copy-keymap TeX-mode-map))) ;; Standard (define-key map "\n" 'reindent-then-newline-and-indent) ;; From latex.el (define-key map "\t" 'LaTeX-indent-line) (define-key map "\eq" 'LaTeX-fill-paragraph) ;*** Alias ;; This key is now used by Emacs for face settings. ;; (define-key map "\eg" 'LaTeX-fill-region) ;*** Alias (define-key map "\e\C-e" 'LaTeX-find-matching-end) (define-key map "\e\C-a" 'LaTeX-find-matching-begin) (define-key map "\C-c\C-q\C-p" 'LaTeX-fill-paragraph) (define-key map "\C-c\C-q\C-r" 'LaTeX-fill-region) (define-key map "\C-c\C-q\C-s" 'LaTeX-fill-section) (define-key map "\C-c\C-q\C-e" 'LaTeX-fill-environment) (define-key map "\C-c." 'LaTeX-mark-environment) ;*** Dubious (define-key map "\C-c*" 'LaTeX-mark-section) ;*** Dubious (define-key map "\C-c\C-e" 'LaTeX-environment) (define-key map "\C-c\n" 'LaTeX-insert-item) (or (key-binding "\e\r") (define-key map "\e\r" 'LaTeX-insert-item)) ;*** Alias (define-key map "\C-c]" 'LaTeX-close-environment) (define-key map "\C-c\C-s" 'LaTeX-section) ;; Outline commands... ;; We want to use the right prefix, if possible. (let ((outline (cond ((not (boundp 'outline-minor-mode-prefix)) (lookup-key map "\C-c")) ((keymapp (lookup-key map outline-minor-mode-prefix)) (lookup-key map outline-minor-mode-prefix)) (t (define-key map outline-minor-mode-prefix (make-sparse-keymap)) (lookup-key map outline-minor-mode-prefix))))) (define-key outline "\C-z" 'LaTeX-hide-environment) (define-key outline "\C-x" 'LaTeX-show-environment)) (define-key map "\C-c~" 'LaTeX-math-mode) ;*** Dubious map) "Keymap used in LaTeX-mode.") (defvar LaTeX-environment-menu-name "Insert Environment (C-c C-e)") (defun LaTeX-environment-menu-entry (entry) ;; Create an entry for the environment menu. (vector (car entry) (list 'LaTeX-environment-menu (car entry)) t)) (defvar LaTeX-environment-modify-menu-name "Change Environment (C-u C-c C-e)") (defun LaTeX-environment-modify-menu-entry (entry) ;; Create an entry for the change environment menu. (vector (car entry) (list 'LaTeX-modify-environment (car entry)) t)) (defun LaTeX-section-enable-symbol (LEVEL) ;; Symbol used to enable section LEVEL in the menu bar. (intern (concat "LaTeX-section-" (int-to-string (nth 1 entry)) "-enable"))) (defun LaTeX-section-enable (entry) ;; Enable or disable section ENTRY from LaTeX-section-list. (let ((level (nth 1 entry))) (set (LaTeX-section-enable-symbol level) (>= level LaTeX-largest-level)))) (defun LaTeX-section-menu (level) ;; Insert section from menu. (let ((LaTeX-section-hook (delq 'LaTeX-section-heading (copy-sequence LaTeX-section-hook)))) (LaTeX-section level))) (defun LaTeX-section-menu-entry (entry) ;; Create an entry for the section menu. (let ((enable (LaTeX-section-enable-symbol (nth 1 entry)))) (set enable t) (vector (car entry) (list 'LaTeX-section-menu (nth 1 entry)) enable))) (defun LaTeX-section-menu-create () ;; Create a menu over LaTeX sections. (append '("Section (C-c C-s)") (mapcar 'LaTeX-section-menu-entry LaTeX-section-list))) (defvar LaTeX-menu-changed nil) ;; Need to update LaTeX menu. (make-variable-buffer-local 'LaTeX-menu-changed) (defun LaTeX-menu-update () ;; Update entries on AUC TeX menu. (or (not (eq major-mode 'latex-mode)) (null LaTeX-menu-changed) (not (fboundp 'easy-menu-change)) (progn (TeX-update-style) (setq LaTeX-menu-changed nil) (message "Updating section menu...") (mapcar 'LaTeX-section-enable LaTeX-section-list) (message "Updating environment menu...") (easy-menu-change '("LaTeX") LaTeX-environment-menu-name (mapcar 'LaTeX-environment-menu-entry (LaTeX-environment-list))) (message "Updating modify environment menu...") (easy-menu-change '("LaTeX") LaTeX-environment-modify-menu-name (mapcar 'LaTeX-environment-modify-menu-entry (LaTeX-environment-list))) (message "Updating...done")))) (add-hook 'activate-menubar-hook 'LaTeX-menu-update) (easy-menu-define LaTeX-mode-menu LaTeX-mode-map "Menu used in LaTeX mode." (list "LaTeX" (list LaTeX-environment-menu-name "Bug.") (list LaTeX-environment-modify-menu-name "Bug.") (LaTeX-section-menu-create) ["Macro..." TeX-insert-macro t] ["Complete" TeX-complete-symbol t] ["Item" LaTeX-insert-item t] (list "Insert Font" ["Emphasize" (TeX-font nil ?\C-e) :keys "C-c C-f C-e"] ["Bold" (TeX-font nil ?\C-b) :keys "C-c C-f C-b"] ["Typewriter" (TeX-font nil ?\C-t) :keys "C-c C-f C-t"] ["Small Caps" (TeX-font nil ?\C-c) :keys "C-c C-f C-c"] ["Italic" (TeX-font nil ?\C-i) :keys "C-c C-f C-i"] ["Slanted" (TeX-font nil ?\C-s) :keys "C-c C-f C-s"] ["Roman" (TeX-font nil ?\C-r) :keys "C-c C-f C-r"]) (list "Change Font" ["Emphasize" (TeX-font t ?\C-e) :keys "C-u C-c C-f C-e"] ["Bold" (TeX-font t ?\C-b) :keys "C-u C-c C-f C-b"] ["Typewriter" (TeX-font t ?\C-t) :keys "C-u C-c C-f C-t"] ["Small Caps" (TeX-font t ?\C-c) :keys "C-u C-c C-f C-c"] ["Italic" (TeX-font t ?\C-i) :keys "C-u C-c C-f C-i"] ["Slanted" (TeX-font t ?\C-s) :keys "C-u C-c C-f C-s"] ["Roman" (TeX-font t ?\C-r) :keys "C-u C-c C-f C-r"]) ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"] "-" ["Next Error" TeX-next-error t] (list "TeX Output" ["Kill Job" TeX-kill-job t] ["Debug Bad Boxes" TeX-toggle-debug-boxes :style toggle :selected TeX-debug-bad-boxes ] ["Switch to Original File" TeX-home-buffer t] ["Recenter Output Buffer" TeX-recenter-output-buffer t]) (list "Formatting and Marking" ["Format Environment" LaTeX-fill-environment t] ["Format Paragraph" LaTeX-fill-paragraph t] ["Format Region" LaTeX-fill-region t] ["Format Section" LaTeX-fill-section t] ["Mark Environment" LaTeX-mark-environment t] ["Mark Section" LaTeX-mark-section t] ["Beginning of Environment" LaTeX-find-matching-begin t] ["End of Environment" LaTeX-find-matching-end t] ["Hide Environment" LaTeX-hide-environment t] ["Show Environment" LaTeX-show-environment t]) (list "Miscellaneous" ["Uncomment Region" TeX-un-comment-region t] ["Comment Region" TeX-comment-region t] ["Switch to Master file" TeX-home-buffer t] ["Save Document" TeX-save-document t] ["Math Mode" LaTeX-math-mode :style toggle :selected LaTeX-math-mode ] ["Documentation" TeX-goto-info-page t] ["Submit bug report" TeX-submit-bug-report t] [ "Convert 209 to 2e" LaTeX-209-to-2e :active (member "latex2" (TeX-style-list)) ] ["Reset Buffer" TeX-normal-mode t] ["Reset AUC TeX" (TeX-normal-mode t) :keys "C-u C-c C-n"]))) (defvar LaTeX-font-list '((?\C-b "\\textbf{" "}") (?\C-c "\\textsc{" "}") (?\C-e "\\emph{" "}") (?\C-f "\\textsf{" "}") (?\C-i "\\textit{" "}") (?\C-m "\\textmd{" "}") (?\C-n "\\textnormal{" "}") (?\C-r "\\textrm{" "}") (?\C-s "\\textsl{" "}") (?\C-t "\\texttt{" "}") (?\C-u "\\textup{" "}") (?\C-d "" "" t)) "Font commands used with LaTeX2e. See `TeX-font-list'.") ;;; Mode (defvar TeX-arg-cite-note-p nil "*If non-nil, ask for optional note in citations.") (defvar TeX-arg-footnote-number-p nil "*If non-nil, ask for optional number in footnotes.") (defvar TeX-arg-item-label-p nil "*If non-nil, always ask for optional label in items. Otherwise, only ask in description environments.") (defvar TeX-arg-right-insert-p t "*If non-nil, always insert automatically the corresponding \\right if \\left is inserted.") (defvar LaTeX-paragraph-commands (concat "\\[\\|\\]\\|" ; display math delimitors "begin\\b\\|end\\b\\|part\\b\\|chapter\\b\\|label\\b\\|" "caption\\b\\|section\\b\\|subsection\\b\\|subsubsection\\b\\|" "par\\b\\|noindent\\b\\|paragraph\\b\\|include\\b\\|" "includeonly\\b\\|tableofcontents\\b\\|appendix\\b") "Regexp matching names of LaTeX macros that should have their own line.") ;;;###autoload (defun latex-mode () "Major mode for editing files of input for LaTeX. See info under AUC TeX for full documentation. Special commands: \\{LaTeX-mode-map} Entering LaTeX mode calls the value of text-mode-hook, then the value of TeX-mode-hook, and then the value of LaTeX-mode-hook." (interactive) (LaTeX-common-initialization) (setq mode-name "LaTeX") (setq major-mode 'latex-mode) (setq TeX-command-default "LaTeX") (run-hooks 'text-mode-hook 'TeX-mode-hook 'LaTeX-mode-hook) ;; Defeat filladapt if auto-fill-mode is set in text-mode-hook. (and (boundp 'filladapt-function-table) (boundp 'auto-fill-function) (eq auto-fill-function 'do-auto-fill) (setq auto-fill-function (cdr (assoc 'do-auto-fill filladapt-function-table))))) (defvar LaTeX-header-end (concat (regexp-quote TeX-esc) "begin *" TeX-grop "document" TeX-grcl) "Default end of header marker for LaTeX documents.") (defvar LaTeX-trailer-start (concat (regexp-quote TeX-esc) "end *" TeX-grop "document" TeX-grcl) "Default start of trailer marker for LaTeX documents.") (defun LaTeX2e-font-replace (start end) "Replace LaTeX2e font specification around point with START and END." (save-excursion (catch 'done (while t (if (/= ?\\ (following-char)) (skip-chars-backward "a-zA-Z ")) (skip-chars-backward "\\\\") (if (looking-at "\\\\\\(emph\\|text[a-z]+\\){") (throw 'done t) (up-list -1)))) (forward-sexp 2) (save-excursion (replace-match start t t)) (delete-backward-char 1) (insert end))) (defun LaTeX-common-initialization () ;; Common initialization for LaTeX derived modes. (VirTeX-common-initialization) (set-syntax-table LaTeX-mode-syntax-table) (make-local-variable 'indent-line-function) (setq indent-line-function 'LaTeX-indent-line) (use-local-map LaTeX-mode-map) (easy-menu-add TeX-mode-menu LaTeX-mode-map) (easy-menu-add LaTeX-mode-menu LaTeX-mode-map) (or LaTeX-largest-level (setq LaTeX-largest-level (LaTeX-section-level "section"))) (setq TeX-header-end LaTeX-header-end TeX-trailer-start LaTeX-trailer-start) (require 'outline) (make-local-variable 'outline-level) (setq outline-level 'LaTeX-outline-level) (make-local-variable 'outline-regexp) (setq outline-regexp (LaTeX-outline-regexp t)) (make-local-variable 'TeX-auto-full-regexp-list) (setq TeX-auto-full-regexp-list (append LaTeX-auto-regexp-list plain-TeX-auto-regexp-list)) (setq paragraph-start (concat "\\(" "^.*[^" TeX-esc "\n]%.*$\\|" "^%.*$\\|" "^[ \t]*$\\|" "^[ \t]*" (regexp-quote TeX-esc) "\\(" LaTeX-paragraph-commands "\\|item\\b" "\\)" "\\|" "^[ \t]*\\$\\$" ; display math delimitor "\\)" )) (setq paragraph-separate (concat "\\(" "^.*[^" TeX-esc "\n]%.*$\\|" "^%.*$\\|" "^[ \t]*$\\|" "^[ \t]*" (regexp-quote TeX-esc) "\\(" LaTeX-paragraph-commands "\\)" "\\)")) (setq selective-display t) (make-local-variable 'LaTeX-item-list) (setq LaTeX-item-list '(("description" . LaTeX-item-argument) ("thebibliography" . LaTeX-item-bib))) (setq TeX-complete-list (append '(("\\\\cite\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-bibitem-list "}") ("\\\\cite{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-bibitem-list "}") ("\\\\cite{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)" 2 LaTeX-bibitem-list) ("\\\\nocite{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-bibitem-list "}") ("\\\\nocite{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)" 2 LaTeX-bibitem-list) ("\\\\ref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") ("\\\\eqref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") ("\\\\pageref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") ("\\\\begin{\\([A-Za-z]*\\)" 1 LaTeX-environment-list "}") ("\\\\end{\\([A-Za-z]*\\)" 1 LaTeX-environment-list "}") ("\\\\renewcommand{\\\\\\([A-Za-z]*\\)" 1 LaTeX-symbol-list "}") ("\\\\renewenvironment{\\([A-Za-z]*\\)" 1 LaTeX-environment-list "}")) TeX-complete-list)) (LaTeX-add-environments '("document" LaTeX-env-document) '("enumerate" LaTeX-env-item) '("itemize" LaTeX-env-item) '("list" LaTeX-env-list) '("trivlist" LaTeX-env-item) '("picture" LaTeX-env-picture) '("tabular" LaTeX-env-array) '("tabular*" LaTeX-env-array) '("array" LaTeX-env-array) '("eqnarray" LaTeX-env-label) '("equation" LaTeX-env-label) '("minipage" LaTeX-env-minipage) ;; The following have no special support, but are included in ;; case the auto files are missing. "sloppypar" "picture" "tabbing" "verbatim" "verbatim*" "flushright" "flushleft" "displaymath" "math" "quote" "quotation" "abstract" "center" "titlepage" "verse" "eqnarray*" ;; The following are not defined in latex.el, but in a number of ;; other style files. I'm to lazy to copy them to all the ;; corresponding .el files right now. ;; This means that AUC TeX will complete e.g. ;; ``thebibliography'' in a letter, but I guess we can live with ;; that. '("description" LaTeX-env-item) '("figure" LaTeX-env-figure) '("figure*" LaTeX-env-figure) '("table" LaTeX-env-figure) '("table*" LaTeX-env-figure) '("thebibliography" LaTeX-env-bib) '("theindex" LaTeX-env-item)) (TeX-add-symbols '("addtocounter" TeX-arg-counter "Value") '("alph" TeX-arg-counter) '("arabic" TeX-arg-counter) '("fnsymbol" TeX-arg-define-counter) '("newcounter" TeX-arg-define-counter [ TeX-arg-counter "Within counter" ]) '("roman" TeX-arg-counter) '("setcounter" TeX-arg-counter "Value") '("usecounter" TeX-arg-counter) '("value" TeX-arg-counter) '("stepcounter" TeX-arg-counter) '("refstepcounter" TeX-arg-counter) '("label" TeX-arg-define-label) '("pageref" TeX-arg-label) '("ref" TeX-arg-label) '("newcommand" TeX-arg-define-macro [ "Number of arguments" ] t) '("renewcommand" TeX-arg-macro [ "Number of arguments" ] t) '("newenvironment" TeX-arg-define-environment [ "Number of arguments"] t t) '("renewenvironment" TeX-arg-environment [ "Number of arguments"] t t) '("newtheorem" TeX-arg-define-environment [ TeX-arg-environment "Numbered like" ] t [ (TeX-arg-eval progn (if (eq (save-excursion (backward-char 2) (preceding-char)) ?\]) () (TeX-arg-counter t "Within counter")) "") ]) '("newfont" TeX-arg-define-macro t) '("circle" "Diameter") '("circle*" "Diameter") '("dashbox" "Dash Length" TeX-arg-size [ TeX-arg-corner ] t) '("frame" t) '("framebox" (TeX-arg-conditional (string-equal (LaTeX-current-environment) "picture") (TeX-arg-size [ TeX-arg-corner ] t) ([ "Length" ] [ TeX-arg-lr ] t))) '("line" (TeX-arg-pair "X slope" "Y slope") "Length") '("linethickness" "Dimension") '("makebox" (TeX-arg-conditional (string-equal (LaTeX-current-environment) "picture") (TeX-arg-size [ TeX-arg-corner ] t) ([ "Length" ] [ TeX-arg-lr ] t))) '("multiput" TeX-arg-coordinate (TeX-arg-pair "X delta" "Y delta") "Number of copies" t) '("oval" TeX-arg-size [ TeX-arg-corner "Portion" ]) '("put" TeX-arg-coordinate t) '("savebox" TeX-arg-define-savebox (TeX-arg-conditional (string-equal (LaTeX-current-environment) "picture") (TeX-arg-size [ TeX-arg-corner ] t) ([ "Length" ] [ TeX-arg-lr ] t))) '("shortstack" [ TeX-arg-lr ] t) '("vector" (TeX-arg-pair "X slope" "Y slope") "Length") '("cline" "Span `i-j'") '("multicolumn" "Columns" "Position" t) '("item" (TeX-arg-conditional (or TeX-arg-item-label-p (string-equal (LaTeX-current-environment) "description")) ([ "Item label" ]) ()) (TeX-arg-literal " ")) '("bibitem" [ "Bibitem label" ] TeX-arg-define-cite) '("cite" (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) ()) TeX-arg-cite) '("nocite" TeX-arg-cite) '("bibliographystyle" TeX-arg-bibstyle) '("bibliography" TeX-arg-bibliography) '("footnote" (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) t) '("footnotetext" (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) t) '("footnotemark" (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil)) '("newlength" TeX-arg-define-macro) '("setlength" TeX-arg-macro "Length") '("addtolength" TeX-arg-macro "Length") '("settowidth" TeX-arg-macro t) '("\\" [ "Space" ]) '("\\*" [ "Space" ]) '("hyphenation" t) '("linebreak" [ "How much [0 - 4]" ]) '("nolinebreak" [ "How much [0 - 4]" ]) '("nopagebreak" [ "How much [0 - 4]" ]) '("pagebreak" [ "How much [0 - 4]" ]) '("stackrel" t nil) '("frac" t nil) '("lefteqn" t) '("overbrace" t) '("overline" t) '("sqrt" [ "Root" ] t) '("underbrace" t) '("underline" t) '("author" t) '("date" t) '("thanks" t) '("title" t) '("pagenumbering" (TeX-arg-eval completing-read "Numbering style: " '(("arabic") ("roman") ("Roman") ("alph") ("Alph")))) '("pagestyle" TeX-arg-pagestyle) '("markboth" t nil) '("markright" t) '("thispagestyle" TeX-arg-pagestyle) '("addvspace" "Length") '("fbox" t) '("hspace*" "Length") '("hspace" "Length") '("mbox" t) '("newsavebox" TeX-arg-define-savebox) '("parbox" [ TeX-arg-tb] "Width" t) '("raisebox" "Raise" [ "Height above" ] [ "Depth below" ] t) '("rule" [ "Raise" ] "Width" "Thickness") '("sbox" TeX-arg-define-savebox t) '("usebox" TeX-arg-savebox) '("vspace*" "Length") '("vspace" "Length") '("documentstyle" TeX-arg-document) '("include" (TeX-arg-input-file "File" t)) '("includeonly" t) '("input" TeX-arg-input-file) '("addcontentsline" TeX-arg-file (TeX-arg-eval completing-read "Numbering style: " LaTeX-section-list) t) '("addtocontents" TeX-arg-file t) '("typeout" t) '("typein" [ TeX-arg-define-macro ] t) '("verb" TeX-arg-verb) '("verb*" TeX-arg-verb) '("extracolsep" t) '("index" t) '("glossary" t) '("numberline" "Section number" "Heading") '("caption" t) '("marginpar" [ "Left margin text" ] "Text") '("left" TeX-arg-insert-braces) ;; These have no special support, but are included in case the ;; auto files are missing. "LaTeX" "SLiTeX" "samepage" "newline" "smallskip" "medskip" "bigskip" "stretch" "nonumber" "centering" "raggedright" "raggedleft" "kill" "pushtabs" "poptabs" "protect" "arraystretch" "hline" "vline" "cline" "thinlines" "thicklines" "and" "makeindex" "makeglossary" "reversemarginpar" "normalmarginpar" "raggedbottom" "flushbottom" "sloppy" "fussy" "newpage" "clearpage" "cleardoublepage" "twocolumn" "onecolumn") (TeX-run-style-hooks "LATEX") (make-local-variable 'TeX-font-list) (make-local-variable 'TeX-font-replace-function) (if (string-equal LaTeX-version "2") () (setq TeX-font-list LaTeX-font-list) (setq TeX-font-replace-function 'LaTeX2e-font-replace) (TeX-add-symbols '("newcommand" TeX-arg-define-macro [ "Number of arguments" ] [ "Default value for first argument" ] t) '("renewcommand" TeX-arg-macro [ "Number of arguments" ] [ "Default value for first argument" ] t) '("usepackage" [ "Options" ] (TeX-arg-input-file "Package")) '("documentclass" TeX-arg-document))) (TeX-add-style-hook "latex2e" ;; Use new fonts for `\documentclass' documents. (function (lambda () (setq TeX-font-list LaTeX-font-list) (setq TeX-font-replace-function 'LaTeX2e-font-replace) (if (equal LaTeX-version "2") (setq TeX-command-default "LaTeX2e")) (run-hooks 'LaTeX2e-hook)))) (TeX-add-style-hook "latex2" ;; Use old fonts for `\documentstyle' documents. (function (lambda () (setq TeX-font-list (default-value 'TeX-font-list)) (setq TeX-font-replace-function (default-value 'TeX-font-replace-function)) (run-hooks 'LaTeX2-hook))))) (defvar LaTeX-builtin-opts '("12pt" "11pt" "10pt" "twocolumn" "twoside" "draft") "Built in options for LaTeX standard styles") (defun LaTeX-209-to-2e () "Make a stab at changing 2.09 doc header to 2e style." (interactive) (TeX-home-buffer) (let (optstr optlist 2eoptlist 2epackages docline docstyle) (goto-char (point-min)) (if (search-forward-regexp "\\documentstyle\\[\\([^]]*\\)\\]{\\([^}]*\\)}" (point-max) t) (setq optstr (buffer-substring (match-beginning 1) (match-end 1)) docstyle (buffer-substring (match-beginning 2) (match-end 2)) optlist (TeX-split-string "," optstr)) (if (search-forward-regexp "\\documentstyle{\\([^}]*\\)}" (point-max) t) (setq docstyle (buffer-substring (match-beginning 1) (match-end 1))) (error "No documentstyle defined"))) (beginning-of-line 1) (setq docline (point)) (insert "%%%") (while optlist (if (member (car optlist) LaTeX-builtin-opts) (setq 2eoptlist (cons (car optlist) 2eoptlist)) (setq 2epackages (cons (car optlist) 2epackages))) (setq optlist (cdr optlist))) ;;(message (format "%S %S" 2eoptlist 2epackages)) (goto-char docline) (next-line 1) (insert "\\documentclass") (if 2eoptlist (insert "[" (mapconcat (function (lambda (x) x)) (nreverse 2eoptlist) ",") "]")) (insert "{" docstyle "}\n") (if 2epackages (insert "\\usepackage{" (mapconcat (function (lambda (x) x)) (nreverse 2epackages) "}\n\\usepackage{") "}\n")) (if (equal docstyle "slides") (progn (goto-char (point-min)) (while (re-search-forward "\\\\blackandwhite{" nil t) (replace-match "\\\\input{" nil nil))))) (TeX-normal-mode nil)) ;;; latex.el ends here