--- /dev/null
+;;; latex.el --- Support for LaTeX documents.
+
+;; Copyright (C) 1991, 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2003,
+;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+
+;; Maintainer: auctex-devel@gnu.org
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file provides AUCTeX support for LaTeX.
+
+;;; Code:
+
+(require 'tex)
+(require 'tex-style)
+
+;;; Syntax
+
+(defvar LaTeX-optop "["
+ "The LaTeX optional argument opening character.")
+
+(defvar LaTeX-optcl "]"
+ "The LaTeX optional argument closeing character.")
+
+;;; Style
+
+(defcustom LaTeX-default-style "article"
+ "*Default when creating new documents."
+ :group 'LaTeX-environment
+ :type 'string)
+
+(defcustom LaTeX-default-options nil
+ "Default options to documentstyle.
+A list of strings."
+ :group 'LaTeX-environment
+ :type '(repeat (string :format "%v")))
+
+(make-variable-buffer-local 'LaTeX-default-options)
+
+(defcustom LaTeX-insert-into-comments t
+ "*Whether insertion commands stay in comments.
+This allows using the insertion commands even when
+the lines are outcommented, like in dtx files."
+ :group 'LaTeX-environment
+ :type 'boolean)
+
+(defun LaTeX-newline ()
+ "Start a new line potentially staying within comments.
+This depends on `LaTeX-insert-into-comments'."
+ (if LaTeX-insert-into-comments
+ (cond ((and (save-excursion (skip-chars-backward " \t") (bolp))
+ (save-excursion
+ (skip-chars-forward " \t")
+ (looking-at (concat TeX-comment-start-regexp "+"))))
+ (beginning-of-line)
+ (insert (buffer-substring-no-properties
+ (line-beginning-position) (match-end 0)))
+ (newline))
+ ((and (not (bolp))
+ (save-excursion
+ (skip-chars-forward " \t") (not (TeX-escaped-p)))
+ (looking-at
+ (concat "[ \t]*" TeX-comment-start-regexp "+[ \t]*")))
+ (delete-region (match-beginning 0) (match-end 0))
+ (indent-new-comment-line))
+ (t
+ (indent-new-comment-line)))
+ (newline)))
+
+
+;;; 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.
+Determine 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 \\[universal-argument]), 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 (if (TeX-active-mark)
+ (buffer-substring (region-beginning)
+ (region-end))
+ ""))
+ (done-mark (make-marker)))
+ (run-hooks 'LaTeX-section-hook)
+ (LaTeX-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-list-add-locally (sections &optional clean)
+ "Add SECTIONS to `LaTeX-section-list'.
+SECTIONS can be a single list containing the section macro name
+as a string and the the level as an integer or a list of such
+lists.
+
+If optional argument CLEAN is non-nil, remove any existing
+entries from `LaTeX-section-list' before adding the new ones.
+
+The function will make `LaTeX-section-list' buffer-local and
+invalidate the section submenu in order to let the menu filter
+regenerate it. It is mainly a convenience function which can be
+used in style files."
+ (when (stringp (car sections))
+ (setq sections (list sections)))
+ (make-local-variable 'LaTeX-section-list)
+ (when clean (setq LaTeX-section-list nil))
+ (dolist (elt sections) (add-to-list 'LaTeX-section-list elt t))
+ (setq LaTeX-section-list
+ (sort (copy-sequence LaTeX-section-list)
+ (lambda (a b) (< (nth 1 a) (nth 1 b)))))
+ (setq LaTeX-section-menu nil))
+
+(defun LaTeX-section-name (level)
+ "Return the name of the section corresponding to LEVEL."
+ (let ((entry (TeX-member level LaTeX-section-list
+ (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
+ (lambda (a b) (equal a (nth 0 b))))))
+
+ (if entry
+ (nth 1 entry)
+ nil)))
+
+(defcustom 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."
+ :group 'LaTeX
+ :type '(repeat (group (regexp :tag "Match")
+ (integer :tag "Level"))))
+
+(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 class.")
+
+(make-variable-buffer-local 'LaTeX-largest-level)
+
+(defun LaTeX-largest-level ()
+ "Return largest sectioning level with current document class.
+Run style hooks before it has not been done."
+ (TeX-update-style)
+ LaTeX-largest-level)
+
+(defun LaTeX-largest-level-set (section)
+ "Set `LaTeX-largest-level' to the level of SECTION.
+SECTION has to be a string contained in `LaTeX-section-list'.
+Additionally the function will invalidate the section submenu in
+order to let the menu filter regenerate it."
+ (setq LaTeX-largest-level (LaTeX-section-level section))
+ (setq LaTeX-section-menu nil))
+
+(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")))))))
+
+(defun LaTeX-outline-name ()
+ "Guess a name for the current header line."
+ (save-excursion
+ (if (re-search-forward "{\\([^\}]*\\)}" (+ (point) fill-column 10) t)
+ (match-string 1)
+ (buffer-substring (point) (min (point-max) (+ 20 (point)))))))
+
+(add-hook 'TeX-remove-style-hook
+ (lambda () (setq LaTeX-largest-level nil)))
+
+(defcustom 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
+inserted. 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."
+ :group 'LaTeX-macro
+ :type 'hook
+ :options '(LaTeX-section-heading
+ LaTeX-section-title
+ LaTeX-section-toc
+ LaTeX-section-section
+ LaTeX-section-label))
+
+
+(defcustom LaTeX-section-label
+ '(("part" . "part:")
+ ("chapter" . "chap:")
+ ("section" . "sec:")
+ ("subsection" . "sec:")
+ ("subsubsection" . "sec:"))
+ "Default prefix when asking for a label.
+
+Some LaTeX packages \(such as `fancyref'\) look at the prefix to generate some
+text around cross-references automatically. When using those packages, you
+should not change this variable.
+
+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."
+ :group 'LaTeX-label
+ :type '(choice (const :tag "none" nil)
+ (string :format "%v" :tag "Common")
+ (repeat :menu-tag "Level specific"
+ :format "\n%v%i"
+ (cons :format "%v"
+ (string :tag "Type")
+ (choice :tag "Prefix"
+ (const :tag "none" nil)
+ (string :format "%v"))))))
+
+;;; 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 `\\[LaTeX-section]'."
+ (let ((string (completing-read
+ (concat "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 `\\[LaTeX-section]."
+ (setq title (read-string "Title: " title))
+ (let ((region (and (TeX-active-mark)
+ (cons (region-beginning) (region-end)))))
+ (when region (delete-region (car region) (cdr region)))))
+
+(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 that set
+the `name', `title', and `toc' variables, but before those hooks that
+assume that the section is already inserted."
+ ;; insert a new line if the current line and the previous line are
+ ;; not empty (except for whitespace), with one exception: do not
+ ;; insert a new line if the previous (or current, sigh) line starts
+ ;; an environment (i.e., starts with `[optional whitespace]\begin')
+ (unless (save-excursion
+ (re-search-backward
+ (concat "^\\s-*\n\\s-*\\=\\|^\\s-*" (regexp-quote TeX-esc)
+ "begin")
+ (line-beginning-position 0) t))
+ (LaTeX-newline))
+ (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)
+ (LaTeX-newline)
+ ;; If RefTeX is available, tell it that we've just made a new section
+ (and (fboundp 'reftex-notice-new-section)
+ (reftex-notice-new-section)))
+
+(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 behaviour of this hook is controlled by variable `LaTeX-section-label'."
+ (and (LaTeX-label name)
+ (LaTeX-newline)))
+
+;;; Environments
+
+(defgroup LaTeX-environment nil
+ "Environments in AUCTeX."
+ :group 'LaTeX-macro)
+
+(defcustom LaTeX-default-environment "itemize"
+ "*The default environment when creating new ones with `LaTeX-environment'."
+ :group 'LaTeX-environment
+ :type 'string)
+ (make-variable-buffer-local 'LaTeX-default-environment)
+
+(defvar LaTeX-environment-history nil)
+
+;; Variable used to cache the current environment, e.g. for repeated
+;; tasks in an environment, like indenting each line in a paragraph to
+;; be filled. It must not have a non-nil value in general. That
+;; means it is usually let-bound for such operations.
+(defvar LaTeX-current-environment nil)
+
+(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 class.
+`LaTeX-default-options' Your favorite document class 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-width' Width for minipage 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)
+ nil nil nil
+ 'LaTeX-environment-history)))
+ ;; 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)))
+ ((or (stringp (nth 1 entry)) (vectorp (nth 1 entry)))
+ (let ((prompts (cdr entry))
+ (args ""))
+ (dolist (elt prompts)
+ (let* ((optional (vectorp elt))
+ (elt (if optional (elt elt 0) elt))
+ (arg (read-string (concat (when optional "(Optional) ")
+ elt ": "))))
+ (setq args (concat args
+ (cond ((and optional (> (length arg) 0))
+ (concat LaTeX-optop arg LaTeX-optcl))
+ ((not optional)
+ (concat TeX-grop arg TeX-grcl)))))))
+ (LaTeX-insert-environment environment args)))
+ (t
+ (apply (nth 1 entry) environment (nthcdr 2 entry))))))
+
+(defun LaTeX-close-environment (&optional reopen)
+ "Create an \\end{...} to match the current environment.
+With prefix-argument, reopen environment afterwards."
+ (interactive "*P")
+ (if (> (point)
+ (save-excursion
+ (beginning-of-line)
+ (when LaTeX-insert-into-comments
+ (if (looking-at comment-start-skip)
+ (goto-char (match-end 0))))
+ (skip-chars-forward " \t")
+ (point)))
+ (LaTeX-newline))
+ (let ((environment (LaTeX-current-environment 1)) marker)
+ (insert "\\end{" environment "}")
+ (indent-according-to-mode)
+ (if (or (not (looking-at "[ \t]*$"))
+ (and (TeX-in-commented-line)
+ (save-excursion (beginning-of-line 2)
+ (not (TeX-in-commented-line)))))
+ (LaTeX-newline)
+ (let ((next-line-add-newlines t))
+ (next-line 1)
+ (beginning-of-line)))
+ (indent-according-to-mode)
+ (when reopen
+ (save-excursion
+ (setq marker (point-marker))
+ (set-marker-insertion-type marker t)
+ (LaTeX-environment-menu environment)
+ (delete-region (point)
+ (if (save-excursion (goto-char marker)
+ (bolp))
+ (1- marker)
+ marker))
+ (move-marker marker nil)))))
+
+(defvar LaTeX-after-insert-env-hooks nil
+ "List of functions to be run at the end of `LaTeX-insert-environment'.
+Each function is called with three arguments: the name of the
+environment just inserted, the buffer position just before
+\\begin and the position just before \\end.")
+
+(defun LaTeX-insert-environment (environment &optional extra)
+ "Insert LaTeX ENVIRONMENT with optional argument EXTRA."
+ (let ((active-mark (and (TeX-active-mark) (not (eq (mark) (point)))))
+ prefix content-start env-start env-end)
+ (when (and active-mark (< (mark) (point))) (exchange-point-and-mark))
+ ;; Compute the prefix.
+ (when (and LaTeX-insert-into-comments (TeX-in-commented-line))
+ (save-excursion
+ (beginning-of-line)
+ (looking-at
+ (concat "^\\([ \t]*" TeX-comment-start-regexp "+\\)+[ \t]*"))
+ (setq prefix (match-string 0))))
+ ;; What to do with the line containing point.
+ (cond ((save-excursion (beginning-of-line)
+ (looking-at (concat prefix "[ \t]*$")))
+ (delete-region (match-beginning 0) (match-end 0)))
+ ((TeX-looking-at-backward (concat "^" prefix "[ \t]*")
+ (line-beginning-position))
+ (beginning-of-line)
+ (newline)
+ (beginning-of-line 0))
+ ((bolp)
+ (delete-horizontal-space)
+ (newline)
+ (beginning-of-line 0))
+ (t
+ (delete-horizontal-space)
+ (newline 2)
+ (when prefix (insert prefix))
+ (beginning-of-line 0)))
+ ;; What to do with the line containing mark.
+ (when active-mark
+ (save-excursion
+ (goto-char (mark))
+ (cond ((save-excursion (beginning-of-line)
+ (or (looking-at (concat prefix "[ \t]*$"))
+ (looking-at "[ \t]*$")))
+ (delete-region (match-beginning 0) (match-end 0)))
+ ((TeX-looking-at-backward (concat "^" prefix "[ \t]*")
+ (line-beginning-position))
+ (beginning-of-line)
+ (newline)
+ (beginning-of-line 0))
+ (t
+ (delete-horizontal-space)
+ (insert-before-markers "\n")
+ (newline)
+ (when prefix (insert prefix))))))
+ ;; Now insert the environment.
+ (when prefix (insert prefix))
+ (setq env-start (point))
+ (insert TeX-esc "begin" TeX-grop environment TeX-grcl)
+ (indent-according-to-mode)
+ (when extra (insert extra))
+ (setq content-start (line-beginning-position 2))
+ (unless active-mark
+ (newline)
+ (when prefix (insert prefix))
+ (newline))
+ (when active-mark (goto-char (mark)))
+ (when prefix (insert prefix))
+ (setq env-end (point))
+ (insert TeX-esc "end" TeX-grop environment TeX-grcl)
+ (end-of-line 0)
+ (if active-mark
+ (progn
+ (or (assoc environment LaTeX-indent-environment-list)
+ (LaTeX-fill-region content-start (line-beginning-position 2)))
+ (set-mark content-start))
+ (indent-according-to-mode))
+ (save-excursion (beginning-of-line 2) (indent-according-to-mode))
+ (TeX-math-input-method-off)
+ (run-hook-with-args 'LaTeX-after-insert-env-hooks
+ environment env-start env-end)))
+
+(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.
+
+If function is called inside a comment and
+`LaTeX-syntactic-comments' is enabled, try to find the
+environment in commented regions with the same comment prefix.
+
+The functions `LaTeX-find-matching-begin' and `LaTeX-find-matching-end'
+work analogously."
+ (setq arg (if arg (if (< arg 1) 1 arg) 1))
+ (let* ((in-comment (TeX-in-commented-line))
+ (comment-prefix (and in-comment (TeX-comment-prefix))))
+ (save-excursion
+ (while (and (/= arg 0)
+ (re-search-backward
+ "\\\\\\(begin\\|end\\) *{ *\\([A-Za-z*]+\\) *}" nil t))
+ (when (or (and LaTeX-syntactic-comments
+ (eq in-comment (TeX-in-commented-line))
+ (or (not in-comment)
+ ;; Consider only matching prefixes in the
+ ;; commented case.
+ (string= comment-prefix (TeX-comment-prefix))))
+ (and (not LaTeX-syntactic-comments)
+ (not (TeX-in-commented-line))))
+ (setq arg (if (string= (match-string 1) "end") (1+ arg) (1- arg)))))
+ (if (/= arg 0)
+ "document"
+ (match-string-no-properties 2)))))
+
+(defun docTeX-in-macrocode-p ()
+ "Determine if point is inside a macrocode environment."
+ (save-excursion
+ (re-search-backward
+ (concat "^% " (regexp-quote TeX-esc)
+ "\\(begin\\|end\\)[ \t]*{macrocode\\*?}") nil 'move)
+ (not (or (bobp)
+ (= (char-after (match-beginning 1)) ?e)))))
+
+
+;;; Environment Hooks
+
+(defvar LaTeX-document-style-hook nil
+ "List of hooks to run when inserting a document 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.
+The compatibility argument IGNORE is ignored."
+ (TeX-insert-macro "documentclass")
+ (LaTeX-newline)
+ (LaTeX-newline)
+ (LaTeX-newline)
+ (end-of-line 0)
+ (LaTeX-insert-environment "document")
+ (run-hooks 'LaTeX-document-style-hook)
+ (setq LaTeX-document-style-hook nil))
+
+(defcustom LaTeX-float ""
+ "Default float position for figures and tables.
+If nil, act like the empty string is given, but do not prompt.
+\(The standard LaTeX classes use [tbp] as float position if the
+optional argument is omitted.)"
+ :group 'LaTeX-environment
+ :type '(choice (const :tag "Do not prompt" nil)
+ (const :tag "Empty" "")
+ (string :format "%v")))
+(make-variable-buffer-local 'LaTeX-float)
+
+(defcustom LaTeX-top-caption-list nil
+ "*List of float environments with top caption."
+ :group 'LaTeX-environment
+ :type '(repeat (string :format "%v")))
+
+(defgroup LaTeX-label nil
+ "Adding labels for LaTeX commands in AUCTeX."
+ :group 'LaTeX)
+
+(defcustom LaTeX-label-function nil
+ "*A function inserting a label at point.
+Sole argument of the function is the environment. The function has to return
+the label inserted, or nil if no label was inserted."
+ :group 'LaTeX-label
+ :type 'function)
+
+(defcustom LaTeX-figure-label "fig:"
+ "*Default prefix to figure labels."
+ :group 'LaTeX-label
+ :group 'LaTeX-environment
+ :type 'string)
+
+(defcustom LaTeX-table-label "tab:"
+ "*Default prefix to table labels."
+ :group 'LaTeX-label
+ :group 'LaTeX-environment
+ :type 'string)
+
+(defcustom LaTeX-default-format ""
+ "Default format for array and tabular environments."
+ :group 'LaTeX-environment
+ :type 'string)
+(make-variable-buffer-local 'LaTeX-default-format)
+
+(defcustom LaTeX-default-width "1.0\\linewidth"
+ "Default width for minipage and tabular* environments."
+ :group 'LaTeX-environment
+ :type 'string)
+(make-variable-buffer-local 'LaTeX-default-width)
+
+(defcustom LaTeX-default-position ""
+ "Default position for array and tabular environments.
+If nil, act like the empty string is given, but do not prompt."
+ :group 'LaTeX-environment
+ :type '(choice (const :tag "Do not prompt" nil)
+ (const :tag "Empty" "")
+ string))
+(make-variable-buffer-local 'LaTeX-default-position)
+
+(defcustom LaTeX-equation-label "eq:"
+ "*Default prefix to equation labels."
+ :group 'LaTeX-label
+ :type 'string)
+
+(defcustom LaTeX-eqnarray-label LaTeX-equation-label
+ "*Default prefix to eqnarray labels."
+ :group 'LaTeX-label
+ :type 'string)
+
+(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)
+ (when (looking-at (concat "^[ \t]+$\\|"
+ "^[ \t]*" TeX-comment-start-regexp "+[ \t]*$"))
+ (delete-region (point) (line-end-position)))
+ (delete-horizontal-space)
+ ;; Deactivate the mark here in order to prevent `TeX-parse-macro'
+ ;; from swapping point and mark and the \item ending up right after
+ ;; \begin{...}.
+ (TeX-deactivate-mark)
+ (LaTeX-insert-item)
+ ;; The inserted \item may have outdented the first line to the
+ ;; right. Fill it, if appropriate.
+ (when (and (not (looking-at "$"))
+ (not (assoc environment LaTeX-indent-environment-list))
+ (> (- (line-end-position) (line-beginning-position))
+ (current-fill-column)))
+ (LaTeX-fill-paragraph nil)))
+
+(defcustom LaTeX-label-alist
+ '(("figure" . LaTeX-figure-label)
+ ("table" . LaTeX-table-label)
+ ("figure*" . LaTeX-figure-label)
+ ("table*" . LaTeX-table-label)
+ ("equation" . LaTeX-equation-label)
+ ("eqnarray" . LaTeX-eqnarray-label))
+ "Lookup prefixes for labels.
+An alist where the CAR is the environment name, and the CDR
+either the prefix or a symbol referring to one."
+ :group 'LaTeX-label
+ :type '(repeat (cons (string :tag "Environment")
+ (choice (string :tag "Label prefix")
+ (symbol :tag "Label prefix symbol")))))
+
+(make-variable-buffer-local 'LaTeX-label-alist)
+
+(defun LaTeX-label (environment)
+ "Insert a label for ENVIRONMENT at point.
+If `LaTeX-label-function' is a valid function, LaTeX label will transfer the
+job to this function."
+ (let (label)
+ (if (and (boundp 'LaTeX-label-function)
+ LaTeX-label-function
+ (fboundp LaTeX-label-function))
+
+ (setq label (funcall LaTeX-label-function environment))
+ (let ((prefix
+ (or (cdr (assoc environment LaTeX-label-alist))
+ (if (assoc environment LaTeX-section-list)
+ (if (stringp LaTeX-section-label)
+ LaTeX-section-label
+ (and (listp LaTeX-section-label)
+ (cdr (assoc environment LaTeX-section-label))))
+ ""))))
+ (when prefix
+ (when (symbolp prefix)
+ (setq prefix (symbol-value prefix)))
+ ;; Use completing-read as we do with `C-c C-m \label RET'
+ (setq label (completing-read
+ (TeX-argument-prompt t nil "What label")
+ (LaTeX-label-list) nil nil prefix))
+ ;; No label or empty string entered?
+ (if (or (string= prefix label)
+ (string= "" label))
+ (setq label nil)
+ (insert TeX-esc "label" TeX-grop label TeX-grcl))))
+ (if label
+ (progn
+ (LaTeX-add-labels label)
+ label)
+ nil))))
+
+(defun LaTeX-env-figure (environment)
+ "Create ENVIRONMENT with \\caption and \\label commands."
+ (let ((float (and LaTeX-float ; LaTeX-float can be nil, i.e.
+ ; do not prompt
+ (read-string "(Optional) Float position: " LaTeX-float)))
+ (caption (read-string "Caption: "))
+ (center (y-or-n-p "Center? "))
+ (active-mark (and (TeX-active-mark)
+ (not (eq (mark) (point)))))
+ start-marker end-marker)
+ (when active-mark
+ (if (< (mark) (point))
+ (exchange-point-and-mark))
+ (setq start-marker (point-marker))
+ (set-marker-insertion-type start-marker t)
+ (setq end-marker (copy-marker (mark))))
+ (setq LaTeX-float float)
+ (LaTeX-insert-environment environment
+ (unless (zerop (length float))
+ (concat LaTeX-optop float
+ LaTeX-optcl)))
+ (when active-mark (goto-char start-marker))
+ (when center
+ (insert TeX-esc "centering")
+ (indent-according-to-mode)
+ (LaTeX-newline))
+ (if (member environment LaTeX-top-caption-list)
+ ;; top caption -- do nothing if user skips caption
+ (unless (zerop (length caption))
+ (insert TeX-esc "caption" TeX-grop caption TeX-grcl)
+ (LaTeX-newline)
+ (indent-according-to-mode)
+ ;; ask for a label and insert a new line only if a label is
+ ;; actually inserted
+ (when (LaTeX-label environment)
+ (LaTeX-newline)
+ (indent-according-to-mode)))
+ ;; bottom caption (default) -- do nothing if user skips caption
+ (unless (zerop (length caption))
+ (when active-mark (goto-char end-marker))
+ (LaTeX-newline)
+ (indent-according-to-mode)
+ (insert TeX-esc "caption" TeX-grop caption TeX-grcl)
+ (LaTeX-newline)
+ (indent-according-to-mode)
+ ;; ask for a label -- if user skips label, remove the last new
+ ;; line again
+ (if (LaTeX-label environment)
+ (progn
+ (unless (looking-at "[ \t]*$")
+ (LaTeX-newline)
+ (end-of-line 0)))
+ (delete-blank-lines)
+ (end-of-line 0))
+ ;; if there is a caption or a label, move point upwards again
+ ;; so that it is placed above the caption or the label (or
+ ;; both) -- search the current line (even long captions are
+ ;; inserted on a single line, even if auto-fill is turned on,
+ ;; so it is enough to search the current line) for \label or
+ ;; \caption and go one line upwards if any of them is found
+ (while (re-search-backward
+ (concat "^\\s-*" (regexp-quote TeX-esc)
+ "\\(label\\|caption\\)")
+ (line-beginning-position) t)
+ (end-of-line 0)
+ (indent-according-to-mode))))
+ (when (and (member environment '("table" "table*"))
+ ;; Suppose an existing tabular environment should just
+ ;; be wrapped into a table if there is an active region.
+ (not active-mark))
+ (LaTeX-env-array "tabular"))))
+
+(defun LaTeX-env-array (environment)
+ "Insert ENVIRONMENT with position and column specifications.
+Just like array and tabular."
+ (let ((pos (and LaTeX-default-position ; LaTeX-default-position can
+ ; be nil, i.e. do not prompt
+ (read-string "(Optional) 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
+ (unless (zerop (length pos))
+ (concat LaTeX-optop pos LaTeX-optcl))
+ (concat TeX-grop fmt TeX-grcl)))))
+
+(defun LaTeX-env-label (environment)
+ "Insert ENVIRONMENT and prompt for label."
+ (LaTeX-insert-environment environment)
+ (when (LaTeX-label environment)
+ (LaTeX-newline)
+ (indent-according-to-mode)))
+
+(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 or minipage-like ENVIRONMENT."
+ (let ((pos (and LaTeX-default-position ; LaTeX-default-position can
+ ; be nil, i.e. do not prompt
+ (read-string "(Optional) Position: " LaTeX-default-position)))
+ (width (read-string "Width: " LaTeX-default-width)))
+ (setq LaTeX-default-position pos)
+ (setq LaTeX-default-width width)
+ (LaTeX-insert-environment environment
+ (concat
+ (unless (zerop (length pos))
+ (concat LaTeX-optop pos LaTeX-optcl))
+ (concat TeX-grop width TeX-grcl)))))
+
+(defun LaTeX-env-tabular* (environment)
+ "Insert ENVIRONMENT with width, position and column specifications."
+ (let ((width (read-string "Width: " LaTeX-default-width))
+ (pos (and LaTeX-default-position ; LaTeX-default-position can
+ ; be nil, i.e. do not prompt
+ (read-string "(Optional) Position: " LaTeX-default-position)))
+ (fmt (read-string "Format: " LaTeX-default-format)))
+ (setq LaTeX-default-width width)
+ (setq LaTeX-default-position pos)
+ (setq LaTeX-default-format fmt)
+ (LaTeX-insert-environment environment
+ (concat
+ (concat TeX-grop width TeX-grcl) ;; not optional!
+ (unless (zerop (length pos))
+ (concat LaTeX-optop pos LaTeX-optcl))
+ (concat TeX-grop fmt TeX-grcl)))))
+
+(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))))))
+
+(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))
+
+(defun LaTeX-env-contents (environment)
+ "Insert ENVIRONMENT with filename for contents."
+ (save-excursion
+ (when (re-search-backward "^\\\\documentclass.*{" nil t)
+ (error "Put %s environment before \\documentclass" environment)))
+ (LaTeX-insert-environment environment
+ (concat TeX-grop
+ (read-string "File: ")
+ TeX-grcl))
+ (delete-horizontal-space))
+
+(defun LaTeX-env-args (environment &rest args)
+ "Insert ENVIRONMENT and arguments defined by ARGS."
+ (LaTeX-insert-environment environment)
+ (let ((pos (point-marker)))
+ (end-of-line 0)
+ (TeX-parse-arguments args)
+ (goto-char pos)))
+
+;;; Item hooks
+
+(defvar LaTeX-item-list nil
+ "A 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)))
+ (when (and (TeX-active-mark)
+ (> (point) (mark)))
+ (exchange-point-and-mark))
+ (unless (bolp) (LaTeX-newline))
+ (if (assoc environment LaTeX-item-list)
+ (funcall (cdr (assoc environment LaTeX-item-list)))
+ (TeX-insert-macro "item"))
+ (indent-according-to-mode)))
+
+(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)
+ ("\\\\use\\(package\\)\\(\\[\\([^\]\\]*\\)\\]\\)?\
+{\\(\\([^#}\\.%]\\|%[^\n\r]*[\n\r]\\)+?\\)}"
+ (3 4 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-index-regexp-list
+ '(("\\\\\\(index\\|glossary\\){\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*}[^}{]*\\)*}[^}{]*\\)*\\)}"
+ 2 LaTeX-auto-index-entry))
+ "List of regular expression matching LaTeX index/glossary entries only.
+Regexp allows for up to 3 levels of parenthesis inside the index argument.
+This is necessary since index entries may contain commands and stuff.")
+
+(defvar LaTeX-auto-class-regexp-list
+ '(;; \RequirePackage[<options>]{<package>}[<date>]
+ ("\\\\Require\\(Package\\)\\(\\[\\([^#\\.%]*?\\)\\]\\)?\
+{\\([^#\\.\n\r]+?\\)}"
+ (3 4 1) LaTeX-auto-style)
+ ;; \RequirePackageWithOptions{<package>}[<date>],
+ ("\\\\Require\\(Package\\)WithOptions\\(\\){\\([^#\\.\n\r]+?\\)}"
+ (2 3 1) LaTeX-auto-style)
+ ;; \LoadClass[<options>]{<package>}[<date>]
+ ("\\\\Load\\(Class\\)\\(\\[\\([^#\\.%]*?\\)\\]\\)?{\\([^#\\.\n\r]+?\\)}"
+ (3 4 1) LaTeX-auto-style)
+ ;; \LoadClassWithOptions{<package>}[<date>]
+ ("\\\\Load\\(Class\\)WithOptions\\(\\){\\([^#\\.\n\r]+?\\)}"
+ (2 3 1) LaTeX-auto-style)
+ ;; \DeclareRobustCommand{<cmd>}[<num>][<default>]{<definition>},
+ ;; \DeclareRobustCommand*{<cmd>}[<num>][<default>]{<definition>}
+ ("\\\\DeclareRobustCommand\\*?{?\\\\\\([A-Za-z]+\\)}?\
+\\[\\([0-9]+\\)\\]\\[\\([^\n\r]*?\\)\\]"
+ (1 2 3) LaTeX-auto-optional)
+ ("\\\\DeclareRobustCommand\\*?{?\\\\\\([A-Za-z]+\\)}?\\[\\([0-9]+\\)\\]"
+ (1 2) LaTeX-auto-arguments)
+ ("\\\\DeclareRobustCommand\\*?{?\\\\\\([A-Za-z]+\\)}?"
+ 1 TeX-auto-symbol)
+ ;; Patterns for commands described in "LaTeX2e font selection" (fntguide)
+ ("\\\\DeclareMath\\(?:Symbol\\|Delimiter\\|Accent\\|Radical\\)\
+{?\\\\\\([A-Za-z]+\\)}?"
+ 1 TeX-auto-symbol)
+ ("\\\\\\(Declare\\|Provide\\)Text\
+\\(?:Command\\|Symbol\\|Accent\\|Composite\\){?\\\\\\([A-Za-z]+\\)}?"
+ 1 TeX-auto-symbol)
+ ("\\\\Declare\\(?:Text\\|Old\\)FontCommand{?\\\\\\([A-Za-z]+\\)}?"
+ 1 TeX-auto-symbol))
+ "List of regular expressions matching macros in LaTeX classes and packages.")
+
+(defvar LaTeX-auto-regexp-list
+ (append
+ (let ((token TeX-token-char))
+ `((,(concat "\\\\\\(?:new\\|provide\\)command\\*?{?\\\\\\(" token "+\\)}?\\[\\([0-9]+\\)\\]\\[\\([^\n\r]*\\)\\]")
+ (1 2 3) LaTeX-auto-optional)
+ (,(concat "\\\\\\(?:new\\|provide\\)command\\*?{?\\\\\\(" token "+\\)}?\\[\\([0-9]+\\)\\]")
+ (1 2) LaTeX-auto-arguments)
+ (,(concat "\\\\\\(?:new\\|provide\\)command\\*?{?\\\\\\(" token "+\\)}?") 1 TeX-auto-symbol)
+ (,(concat "\\\\newenvironment\\*?{?\\(" token "+\\)}?\\[\\([0-9]+\\)\\]\\[")
+ 1 LaTeX-auto-environment)
+ (,(concat "\\\\newenvironment\\*?{?\\(" token "+\\)}?\\[\\([0-9]+\\)\\]")
+ (1 2) LaTeX-auto-env-args)
+ (,(concat "\\\\newenvironment\\*?{?\\(" token "+\\)}?") 1 LaTeX-auto-environment)
+ (,(concat "\\\\newtheorem{\\(" token "+\\)}") 1 LaTeX-auto-environment)
+ ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
+ 1 TeX-auto-file)
+ ("\\\\include{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
+ 1 TeX-auto-file)
+ (, (concat "\\\\bibitem{\\(" token "[^, \n\r\t%\"#'()={}]*\\)}") 1 LaTeX-auto-bibitem)
+ (, (concat "\\\\bibitem\\[[^][\n\r]+\\]{\\(" token "[^, \n\r\t%\"#'()={}]*\\)}")
+ 1 LaTeX-auto-bibitem)
+ ("\\\\bibliography{\\([^#}\\\\\n\r]+\\)}" 1 LaTeX-auto-bibliography)))
+ LaTeX-auto-class-regexp-list
+ LaTeX-auto-label-regexp-list
+ LaTeX-auto-index-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-listify-package-options (options)
+ "Return a list from a comma-separated string of package OPTIONS.
+The input string may include LaTeX comments and newlines."
+ ;; FIXME: Parse key=value options like "pdftitle={A Perfect
+ ;; Day},colorlinks=false" correctly. When this works, the check for
+ ;; "=" can be removed again.
+ (let (opts)
+ (dolist (elt (TeX-split-string "\\(,\\|%[^\n\r]*[\n\r]\\)+"
+ options))
+ (unless (string-match "=" elt)
+ ;; Strip whitespace.
+ (dolist (item (TeX-split-string "[ \t\r\n]+" elt))
+ (unless (string= item "")
+ (add-to-list 'opts item)))))
+ opts))
+
+(defun LaTeX-auto-cleanup ()
+ "Cleanup after LaTeX parsing."
+
+ ;; Cleanup BibTeX files
+ (setq LaTeX-auto-bibliography
+ (apply 'append (mapcar (lambda (arg)
+ (TeX-split-string "," arg))
+ LaTeX-auto-bibliography)))
+
+ ;; Cleanup document classes and packages
+ (unless (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 (LaTeX-listify-package-options options))
+
+ ;; Add them, to the style list.
+ (dolist (elt options)
+ (add-to-list 'TeX-auto-file elt))
+
+ ;; Treat documentclass/documentstyle specially.
+ (if (or (string-equal "package" class)
+ (string-equal "Package" class))
+ (dolist (elt (TeX-split-string
+ "\\([ \t\r\n]\\|%[^\n\r]*[\n\r]\\|,\\)+" style))
+ (add-to-list 'TeX-auto-file elt))
+ ;; And a special "art10" style file combining style and size.
+ (add-to-list 'TeX-auto-file style)
+ (add-to-list 'TeX-auto-file
+ (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")))))
+
+ ;; The third argument if "class" indicates LaTeX2e features.
+ (cond ((equal class "class")
+ (add-to-list 'TeX-auto-file "latex2e"))
+ ((equal class "style")
+ (add-to-list 'TeX-auto-file "latex2"))))))
+
+ ;; Cleanup optional arguments
+ (mapc (lambda (entry)
+ (add-to-list 'TeX-auto-symbol
+ (list (nth 0 entry)
+ (string-to-number (nth 1 entry)))))
+ LaTeX-auto-arguments)
+
+ ;; Cleanup default optional arguments
+ (mapc (lambda (entry)
+ (add-to-list 'TeX-auto-symbol
+ (list (nth 0 entry)
+ (vector "argument")
+ (1- (string-to-number (nth 1 entry))))))
+ LaTeX-auto-optional)
+
+ ;; Cleanup environments arguments
+ (mapc (lambda (entry)
+ (add-to-list 'LaTeX-auto-environment
+ (list (nth 0 entry)
+ (string-to-number (nth 1 entry)))))
+ 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.
+ (mapc (lambda (symbol)
+ (if (not (TeX-member symbol TeX-auto-symbol 'equal))
+ ;; No matching symbol, insert in list
+ (add-to-list 'TeX-auto-symbol (concat "end" 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.
+ (add-to-list 'LaTeX-auto-environment symbol)))
+ 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")
+(TeX-auto-add-type "index-entry" "LaTeX" "index-entries")
+
+(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.
+Additionally invalidate the environment submenus to let them be
+regenerated by the respective menu filter."
+ (apply 'LaTeX-add-environments-auto environments)
+ (setq LaTeX-environment-menu nil)
+ (setq LaTeX-environment-modify-menu nil))
+
+;;; 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)
+ (make-local-variable 'TeX-master)
+ (setq TeX-master t))
+
+(defvar BibTeX-auto-regexp-list
+ `(("@[Ss][Tt][Rr][Ii][Nn][Gg]" 1 ignore)
+ (,(concat "@[a-zA-Z]+[{(][ \t]*\\(" TeX-token-char "[^, \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 OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one.
+
+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-eval (optional &rest args)
+ "Evaluate ARGS and insert value in buffer.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one."
+ (TeX-argument-insert (eval args) optional))
+
+(defun TeX-arg-label (optional &optional prompt definition)
+ "Prompt for a label completing with known labels.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. If DEFINITION is non-nil, add the chosen label to the
+list of defined 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)))
+
+(defalias 'TeX-arg-ref 'TeX-arg-label)
+
+(defun TeX-arg-index-tag (optional &optional prompt &rest args)
+ "Prompt for an index tag.
+This is the name of an index, not the entry.
+
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. ARGS is unused."
+ (let (tag)
+ (setq prompt (concat (if optional "(Optional) " "")
+ (if prompt prompt "Index tag")
+ ": (default none) "))
+ (setq tag (read-string prompt))
+ (TeX-argument-insert tag optional)))
+
+(defun TeX-arg-index (optional &optional prompt &rest args)
+ "Prompt for an index entry completing with known entries.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. ARGS is unused."
+ (let ((entry (completing-read (TeX-argument-prompt optional prompt "Key")
+ (LaTeX-index-entry-list))))
+ (if (and (not (string-equal "" entry))
+ (not (member (list entry) (LaTeX-index-entry-list))))
+ (LaTeX-add-index-entries entry))
+ (TeX-argument-insert entry optional optional)))
+
+(defalias 'TeX-arg-define-index 'TeX-arg-index)
+
+(defun TeX-arg-macro (optional &optional prompt definition)
+ "Prompt for a TeX macro with completion.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. If DEFINITION is non-nil, add the chosen macro to the
+list of defined macros."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. If DEFINITION is non-nil, add the chosen environment to
+the list of defined environments."
+ (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)))
+
+;; Why is DEFINITION unused?
+(defun TeX-arg-cite (optional &optional prompt definition)
+ "Prompt for a BibTeX citation with completion.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. DEFINITION is unused."
+ (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)))
+
+;; Why is DEFINITION unused?
+(defun TeX-arg-counter (optional &optional prompt definition)
+ "Prompt for a LaTeX counter.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. DEFINITION is unused."
+ ;; Completion not implemented yet.
+ (TeX-argument-insert
+ (read-string (TeX-argument-prompt optional prompt "Counter"))
+ optional))
+
+;; Why is DEFINITION unused?
+(defun TeX-arg-savebox (optional &optional prompt definition)
+ "Prompt for a LaTeX savebox.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string. DEFINITION is unused."
+ ;; 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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-label optional prompt t))
+
+(defun TeX-arg-define-macro (optional &optional prompt)
+ "Prompt for a TeX macro with completion.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-macro optional prompt t))
+
+(defun TeX-arg-define-environment (optional &optional prompt)
+ "Prompt for a LaTeX environment with completion.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-environment optional prompt t))
+
+(defun TeX-arg-define-cite (optional &optional prompt)
+ "Prompt for a BibTeX citation.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-cite optional prompt t))
+
+(defun TeX-arg-define-counter (optional &optional prompt)
+ "Prompt for a LaTeX counter.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-counter optional prompt t))
+
+(defun TeX-arg-define-savebox (optional &optional prompt)
+ "Prompt for a LaTeX savebox.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-arg-savebox optional prompt t))
+
+(defcustom LaTeX-style-list '(("amsart")
+ ("amsbook")
+ ("article")
+ ("beamer")
+ ("book")
+ ("dinbrief")
+ ("foils")
+ ("letter")
+ ("minimal")
+ ("prosper")
+ ("report")
+ ("scrartcl")
+ ("scrbook")
+ ("scrlttr2")
+ ("scrreprt")
+ ("slides"))
+ "List of document classes offered when inserting a document environment."
+ :group 'LaTeX-environment
+ :type '(repeat (group (string :format "%v"))))
+
+(defun TeX-arg-document (optional &optional ignore)
+ "Insert arguments to documentclass.
+OPTIONAL and IGNORE are ignored."
+ (let ((style (completing-read
+ (concat "Document class: (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))
+
+(defun LaTeX-arg-usepackage (optional)
+ "Insert arguments to usepackage.
+OPTIONAL is ignored."
+ (let ((TeX-file-extensions '("sty")))
+ (TeX-arg-input-file nil "Package")
+ (save-excursion
+ (search-backward-regexp "{\\(.*\\)}")
+ (let* ((package (match-string 1))
+ (var (intern (format "LaTeX-%s-package-options" package)))
+ (crm-separator ",")
+ (TeX-arg-opening-brace LaTeX-optop)
+ (TeX-arg-closing-brace LaTeX-optcl)
+ options)
+ (if (or (and (boundp var)
+ (listp (symbol-value var)))
+ (fboundp var))
+ (if (functionp var)
+ (setq options (funcall var))
+ (when (symbol-value var)
+ (setq options
+ (mapconcat 'identity
+ (TeX-completing-read-multiple
+ "Options: " (mapcar 'list (symbol-value var)))
+ ","))))
+ (setq options (read-string "Options: ")))
+ (when options
+ ;; XXX: The following statement will add the options
+ ;; supplied to the LaTeX package to the style list. This is
+ ;; consistent with the way the parser works (see
+ ;; `LaTeX-auto-cleanup'). But in a revamped style system
+ ;; such options should be associated with their LaTeX
+ ;; package to avoid confusion. For example a `german' entry
+ ;; in the style list can come from documentclass options and
+ ;; does not necessarily mean that the babel-related
+ ;; extensions should be activated.
+ (mapc 'TeX-run-style-hooks (LaTeX-listify-package-options options))
+ (TeX-argument-insert options t))))))
+
+(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 `\\[universal-argument] \\[TeX-normal-mode]'.")
+
+(defun TeX-arg-input-file (optional &optional prompt local)
+ "Prompt for a tex or sty file.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. PROMPT is the prompt,
+LOCAL is a flag. If the flag is set, only complete with local
+files."
+ (unless (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 optional prompt "File")
+ (TeX-delete-dups-by-car
+ (append (mapcar 'list
+ (TeX-search-files '("./")
+ TeX-file-extensions
+ t t))
+ (unless local
+ TeX-global-input-files))))
+ (read-file-name
+ (TeX-argument-prompt optional prompt "File")))))
+ (if (null file)
+ (setq file ""))
+ (if (not (string-equal "" file))
+ (TeX-run-style-hooks file))
+ (TeX-argument-insert file optional)))
+
+(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 `\\[universal-argument] \\[TeX-normal-mode]'.")
+
+(defun TeX-arg-bibstyle (optional &optional prompt)
+ "Prompt for a BibTeX style file.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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 `\\[universal-argument] \\[TeX-normal-mode]'.")
+
+(defun TeX-arg-bibliography (optional &optional prompt)
+ "Prompt for a BibTeX database file.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (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.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (TeX-argument-insert
+ (completing-read (TeX-argument-prompt optional prompt "Pagestyle")
+ '(("plain") ("empty") ("headings") ("myheadings")))
+ optional))
+
+(defcustom LaTeX-default-verb-delimiter ?|
+ "Default delimiter for `\\verb' macros."
+ :group 'LaTeX-macro
+ :type 'character)
+
+(defun TeX-arg-verb (optional &optional ignore)
+ "Prompt for delimiter and text.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. IGNORE is ignored."
+ (let ((del (read-quoted-char
+ (concat "Delimiter: (default "
+ (char-to-string LaTeX-default-verb-delimiter) ") "))))
+ (when (<= del ?\ ) (setq del LaTeX-default-verb-delimiter))
+ (if (TeX-active-mark)
+ (progn
+ (insert del)
+ (goto-char (mark))
+ (insert del))
+ (insert del (read-from-minibuffer "Text: ") del))
+ (setq LaTeX-default-verb-delimiter 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.
+
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one."
+ (insert "(" (read-string (concat first ": ")) ","
+ (read-string (concat second ": ")) ")"))
+
+(defun TeX-arg-size (optional)
+ "Insert width and height as a pair.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one."
+ (TeX-arg-pair optional "Width" "Height"))
+
+(defun TeX-arg-coordinate (optional)
+ "Insert x and y coordinate as a pair.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one."
+ (TeX-arg-pair optional "X position" "Y position"))
+
+(defconst TeX-braces-default-association
+ '(("[" . "]")
+ ("\\{" . "\\}")
+ ("(" . ")")
+ ("|" . "|")
+ ("\\|" . "\\|")
+ ("/" . "/")
+ ("\\backslash" . "\\backslash")
+ ("\\lfloor" . "\\rfloor")
+ ("\\lceil" . "\\rceil")
+ ("\\langle" . "\\rangle")))
+
+(defcustom TeX-braces-user-association nil
+ "A list of your personal association of brace symbols.
+These are used for \\left and \\right.
+
+The car of each entry is the brace used with \\left,
+the cdr is the brace used with \\right."
+ :group 'LaTeX-macro
+ :group 'LaTeX-math
+ :type '(repeat (cons :format "%v"
+ (string :tag "Left")
+ (string :tag "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)
+ "Prompt for a brace for \\left and insert the corresponding \\right.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one. Use PROMPT as the prompt
+string."
+ (save-excursion
+ (backward-word 1)
+ (backward-char)
+ (LaTeX-newline)
+ (indent-according-to-mode)
+ (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)
+ (LaTeX-newline)
+ (indent-according-to-mode)
+ (save-excursion
+ (let ((right-brace (cdr (assoc left-brace
+ TeX-braces-association))))
+ (LaTeX-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)))
+ (indent-according-to-mode)))))
+
+(defun TeX-arg-key-val (optional key-val-alist)
+ "Prompt for keys and values in KEY-VAL-ALIST.
+Insert the given value as a TeX macro argument. If OPTIONAL is
+non-nil, insert it as an optional argument. KEY-VAL-ALIST is an
+alist. The car of each element should be a string representing a
+key and the optional cdr should be a list with strings to be used
+as values for the key."
+ (let ((options (multi-prompt-key-value
+ (TeX-argument-prompt optional "Options" nil)
+ (if (symbolp key-val-alist)
+ (eval key-val-alist)
+ key-val-alist))))
+ (TeX-argument-insert options optional)))
+
+
+;;; Verbatim constructs
+
+(defcustom LaTeX-verbatim-macros-with-delims
+ '("verb" "verb*")
+ "Macros for inline verbatim with arguments in delimiters, like \\foo|...|.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-macros-with-delims' which returns a value
+including buffer-local keyword additions via
+`LaTeX-verbatim-macros-with-delims-local' as well."
+ :group 'LaTeX-macro
+ :type '(repeat (string)))
+
+(defvar LaTeX-verbatim-macros-with-delims-local nil
+ "Buffer-local variable for inline verbatim with args in delimiters.
+
+Style files should add constructs to this variable and not to
+`LaTeX-verbatim-macros-with-delims'.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-macros-with-delims' which returns a value
+including values of the variable
+`LaTeX-verbatim-macros-with-delims' as well.")
+(make-variable-buffer-local 'LaTeX-verbatim-macros-with-delims-local)
+
+(defcustom LaTeX-verbatim-macros-with-braces nil
+ "Macros for inline verbatim with arguments in braces, like \\foo{...}.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-macros-with-braces' which returns a value
+including buffer-local keyword additions via
+`LaTeX-verbatim-macros-with-braces-local' as well."
+ :group 'LaTeX-macro
+ :type '(repeat (string)))
+
+(defvar LaTeX-verbatim-macros-with-braces-local nil
+ "Buffer-local variable for inline verbatim with args in braces.
+
+Style files should add constructs to this variable and not to
+`LaTeX-verbatim-macros-with-braces'.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-macros-with-braces' which returns a value
+including values of the variable
+`LaTeX-verbatim-macros-with-braces' as well.")
+(make-variable-buffer-local 'LaTeX-verbatim-macros-with-braces-local)
+
+(defcustom LaTeX-verbatim-environments
+ '("verbatim" "verbatim*")
+ "Verbatim environments.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-environments' which returns a value including
+buffer-local keyword additions via
+`LaTeX-verbatim-environments-local' as well."
+ :group 'LaTeX-environment
+ :type '(repeat (string)))
+
+(defvar LaTeX-verbatim-environments-local nil
+ "Buffer-local variable for inline verbatim environments.
+
+Style files should add constructs to this variable and not to
+`LaTeX-verbatim-environments'.
+
+Programs should not use this variable directly but the function
+`LaTeX-verbatim-environments' which returns a value including
+values of the variable `LaTeX-verbatim-environments' as well.")
+(make-variable-buffer-local 'LaTeX-verbatim-environments-local)
+
+(defun LaTeX-verbatim-macros-with-delims ()
+ "Return list of verbatim macros with delimiters."
+ (append LaTeX-verbatim-macros-with-delims
+ LaTeX-verbatim-macros-with-delims-local))
+
+(defun LaTeX-verbatim-macros-with-braces ()
+ "Return list of verbatim macros with braces."
+ (append LaTeX-verbatim-macros-with-braces
+ LaTeX-verbatim-macros-with-braces-local))
+
+(defun LaTeX-verbatim-environments ()
+ "Return list of verbatim environments."
+ (append LaTeX-verbatim-environments
+ LaTeX-verbatim-environments-local))
+
+(defun LaTeX-verbatim-macro-boundaries ()
+ "Return boundaries of verbatim macro.
+Boundaries are returned as a cons cell where the car is the macro
+start and the cdr the macro end.
+
+Only macros which enclose their arguments with special
+non-parenthetical delimiters, like \\verb+foo+, are recognized."
+ (save-excursion
+ (let ((orig (point))
+ (verbatim-regexp (regexp-opt (LaTeX-verbatim-macros-with-delims) t)))
+ ;; Search backwards for the macro start, unless we are facing one
+ (unless (looking-at (concat (regexp-quote TeX-esc) verbatim-regexp))
+ (catch 'found
+ (while (progn
+ (skip-chars-backward (concat "^\n" (regexp-quote TeX-esc))
+ (line-beginning-position))
+ (when (looking-at verbatim-regexp) (throw 'found nil))
+ (or (bobp) (forward-char -1))
+ (/= (point) (line-beginning-position))))))
+ ;; Search forward for the macro end, unless we failed to find a start
+ (unless (bolp)
+ (let ((beg (1- (point))))
+ (goto-char (1+ (match-end 0)))
+ (skip-chars-forward (concat "^" (buffer-substring-no-properties
+ (1- (point)) (point))))
+ (when (<= orig (point))
+ (cons beg (1+ (point)))))))))
+
+(defun LaTeX-current-verbatim-macro ()
+ "Return name of verbatim macro containing point, nil if none is present."
+ (let ((macro-boundaries (LaTeX-verbatim-macro-boundaries)))
+ (when macro-boundaries
+ (save-excursion
+ (goto-char (car macro-boundaries))
+ (forward-char (length TeX-esc))
+ (buffer-substring-no-properties
+ (point) (progn (skip-chars-forward "@A-Za-z") (point)))))))
+
+(defun LaTeX-verbatim-p (&optional pos)
+ "Return non-nil if position POS is in a verbatim-like construct."
+ (when pos (goto-char pos))
+ (save-match-data
+ (or (when (fboundp 'font-latex-faces-present-p)
+ (font-latex-faces-present-p 'font-latex-verbatim-face))
+ (member (LaTeX-current-verbatim-macro)
+ (LaTeX-verbatim-macros-with-delims))
+ (member (TeX-current-macro) (LaTeX-verbatim-macros-with-braces))
+ (member (LaTeX-current-environment) (LaTeX-verbatim-environments)))))
+
+
+;;; Formatting
+
+(defcustom LaTeX-syntactic-comments t
+ "If non-nil comments will be handled according to LaTeX syntax.
+This variable influences, among others, the behavior of
+indentation and filling which will take LaTeX syntax into
+consideration just as is in the non-commented source code."
+ :type 'boolean
+ :group 'LaTeX)
+
+
+;;; Indentation
+
+;; We are distinguishing two different types of comments:
+;;
+;; 1) Comments starting in column one (line comments)
+;;
+;; 2) Comments starting after column one with only whitespace
+;; preceding it.
+;;
+;; (There is actually a third type: Comments preceded not only by
+;; whitespace but by some code as well; so-called code comments. But
+;; they are not relevant for the following explanations.)
+;;
+;; Additionally we are distinguishing two different types of
+;; indentation:
+;;
+;; a) Outer indentation: Indentation before the comment character(s).
+;;
+;; b) Inner indentation: Indentation after the comment character(s)
+;; (taking into account possible comment padding).
+;;
+;; Comments can be filled syntax-aware or not.
+;;
+;; In `doctex-mode' line comments should always be indented
+;; syntax-aware and the comment character has to be anchored at the
+;; first column (unless the appear in a macrocode environment). Other
+;; comments not in the documentation parts always start after the
+;; first column and can be indented syntax-aware or not. If they are
+;; indented syntax-aware both the indentation before and after the
+;; comment character(s) have to be checked and adjusted. Indentation
+;; should not move the comment character(s) to the first column. With
+;; `LaTeX-syntactic-comments' disabled, line comments should still be
+;; indented syntax-aware.
+;;
+;; In `latex-mode' comments starting in different columns don't have
+;; to be handled differently. They don't have to be anchored in
+;; column one. That means that in any case indentation before and
+;; after the comment characters has to be checked and adjusted.
+
+(defgroup LaTeX-indentation nil
+ "Indentation of LaTeX code in AUCTeX"
+ :group 'LaTeX
+ :group 'TeX-indentation)
+
+(defcustom LaTeX-indent-level 2
+ "*Indentation of begin-end blocks in LaTeX."
+ :group 'LaTeX-indentation
+ :type 'integer)
+
+(defcustom LaTeX-item-indent (- LaTeX-indent-level)
+ "*Extra indentation for lines beginning with an item."
+ :group 'LaTeX-indentation
+ :type 'integer)
+
+(defcustom LaTeX-item-regexp "\\(bib\\)?item\\b"
+ "*Regular expression matching macros considered items."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defcustom LaTeX-indent-environment-list
+ '(("verbatim" current-indentation)
+ ("verbatim*" current-indentation)
+ ;; The following should have there own, smart indentation function.
+ ;; Some other day.
+ ("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."
+ :group 'LaTeX-indentation
+ :type '(repeat (list (string :tag "Environment")
+ (option function))))
+
+(defcustom LaTeX-indent-environment-check t
+ "*If non-nil, check for any special environments."
+ :group 'LaTeX-indentation
+ :type 'boolean)
+
+(defcustom LaTeX-document-regexp "document"
+ "Regexp matching environments in which the indentation starts at col 0."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defcustom LaTeX-verbatim-regexp "verbatim\\*?"
+ "*Regexp matching environments with indentation at col 0 for begin/end."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defcustom LaTeX-begin-regexp "begin\\b"
+ "*Regexp matching macros considered begins."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defcustom LaTeX-end-regexp "end\\b"
+ "*Regexp matching macros considered ends."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defcustom LaTeX-left-right-indent-level LaTeX-indent-level
+ "*The level of indentation produced by a \\left macro."
+ :group 'LaTeX-indentation
+ :type 'integer)
+
+(defcustom LaTeX-indent-comment-start-regexp "%"
+ "*Regexp matching comments ending the indent level count.
+This means, we just count the LaTeX tokens \\left, \\right, \\begin,
+and \\end up to the first occurence of text matching this regexp.
+Thus, the default \"%\" stops counting the tokens at a comment. A
+value of \"%[^>]\" would allow you to alter the indentation with
+comments, e.g. with comment `%> \\begin'.
+Lines which start with `%' are not considered at all, regardless if this
+value."
+ :group 'LaTeX-indentation
+ :type 'regexp)
+
+(defvar docTeX-indent-inner-fixed
+ `((,(concat (regexp-quote TeX-esc)
+ "\\(begin\\|end\\)[ \t]*{macrocode\\*?}") 4 t)
+ (,(concat (regexp-quote TeX-esc)
+ "\\(begin\\|end\\)[ \t]*{\\(macro\\|environment\\)\\*?}") 0 nil))
+ "List of items which should have a fixed inner indentation.
+The items consist of three parts. The first is a regular
+expression which should match the respective string. The second
+is the amount of spaces to be used for indentation. The third
+toggles if comment padding is relevant or not. If t padding is
+part of the amount given, if nil the amount of spaces will be
+inserted after potential padding.")
+
+(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* ((case-fold-search nil)
+ ;; Compute a fill prefix. Whitespace after the comment
+ ;; characters will be disregarded and replaced by
+ ;; `comment-padding'.
+ (fill-prefix
+ (and (TeX-in-commented-line)
+ (save-excursion
+ (beginning-of-line)
+ (looking-at
+ (concat "\\([ \t]*" TeX-comment-start-regexp "+\\)+"))
+ (concat (match-string 0) (TeX-comment-padding-string)))))
+ (overlays (when (featurep 'xemacs)
+ ;; Isn't that fun? In Emacs an `(overlays-at
+ ;; (line-beginning-position))' would do the
+ ;; trick. How boring.
+ (extent-list
+ nil (line-beginning-position) (line-beginning-position)
+ 'all-extents-closed-open 'overlay)))
+ ol-specs)
+ ;; XEmacs' `indent-to' function (at least in version 21.4.15) has
+ ;; a bug which leads to the insertion of whitespace in front of an
+ ;; invisible overlay. So during indentation we temporarily remove
+ ;; the 'invisible property.
+ (dolist (ol overlays)
+ (when (extent-property ol 'invisible)
+ (add-to-list 'ol-specs (list ol (extent-property ol 'invisible)))
+ (set-extent-property ol 'invisible nil)))
+ (save-excursion
+ (cond ((and fill-prefix
+ (TeX-in-line-comment)
+ (eq major-mode 'doctex-mode))
+ ;; If point is in a line comment in `doctex-mode' we only
+ ;; consider the inner indentation.
+ (let ((inner-indent (LaTeX-indent-calculate 'inner)))
+ (when (/= (LaTeX-current-indentation 'inner) inner-indent)
+ (LaTeX-indent-inner-do inner-indent))))
+ ((and fill-prefix
+ LaTeX-syntactic-comments)
+ ;; In any other case of a comment we have to consider
+ ;; outer and inner indentation if we do syntax-aware
+ ;; indentation.
+ (let ((inner-indent (LaTeX-indent-calculate 'inner))
+ (outer-indent (LaTeX-indent-calculate 'outer)))
+ (when (/= (LaTeX-current-indentation 'inner) inner-indent)
+ (LaTeX-indent-inner-do inner-indent))
+ (when (/= (LaTeX-current-indentation 'outer) outer-indent)
+ (LaTeX-indent-outer-do outer-indent))))
+ (t
+ ;; The default is to adapt whitespace before any
+ ;; non-whitespace character, i.e. to do outer
+ ;; indentation.
+ (let ((outer-indent (LaTeX-indent-calculate 'outer)))
+ (when (/= (LaTeX-current-indentation 'outer) outer-indent)
+ (LaTeX-indent-outer-do outer-indent))))))
+ ;; Make the overlays invisible again.
+ (dolist (ol-spec ol-specs)
+ (set-extent-property (car ol-spec) 'invisible (cadr ol-spec)))
+ (when (< (current-column) (save-excursion
+ (LaTeX-back-to-indentation) (current-column)))
+ (LaTeX-back-to-indentation))))
+
+(defun LaTeX-indent-inner-do (inner-indent)
+ ;; Small helper function for `LaTeX-indent-line' to perform
+ ;; indentation after a comment character. It requires that
+ ;; `LaTeX-indent-line' already set the appropriate variables and
+ ;; should not be used outside of `LaTeX-indent-line'.
+ (move-to-left-margin)
+ (TeX-re-search-forward-unescaped
+ (concat "\\(" TeX-comment-start-regexp "+[ \t]*\\)+") (line-end-position) t)
+ (delete-region (line-beginning-position) (point))
+ (insert fill-prefix)
+ (indent-to (+ inner-indent (length fill-prefix))))
+
+(defun LaTeX-indent-outer-do (outer-indent)
+ ;; Small helper function for `LaTeX-indent-line' to perform
+ ;; indentation of normal lines or before a comment character in a
+ ;; commented line. It requires that `LaTeX-indent-line' already set
+ ;; the appropriate variables and should not be used outside of
+ ;; `LaTeX-indent-line'.
+ (back-to-indentation)
+ (delete-region (line-beginning-position) (point))
+ (indent-to outer-indent))
+
+(defun LaTeX-indent-calculate (&optional force-type)
+ "Return the indentation of a line of LaTeX source.
+FORCE-TYPE can be used to force the calculation of an inner or
+outer indentation in case of a commented line. The symbols
+'inner and 'outer are recognized."
+ (save-excursion
+ (LaTeX-back-to-indentation force-type)
+ (let ((i 0)
+ (list-length (safe-length docTeX-indent-inner-fixed))
+ entry
+ found)
+ (cond ((save-excursion (beginning-of-line) (bobp)) 0)
+ ((and (eq major-mode 'doctex-mode)
+ fill-prefix
+ (TeX-in-line-comment)
+ (progn
+ (while (and (< i list-length)
+ (not found))
+ (setq entry (nth i docTeX-indent-inner-fixed))
+ (when (looking-at (nth 0 entry))
+ (setq found t))
+ (setq i (1+ i)))
+ found))
+ (if (nth 2 entry)
+ (- (nth 1 entry) (if (integerp comment-padding)
+ comment-padding
+ (length comment-padding)))
+ (nth 1 entry)))
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "\\(begin\\|end\\){\\("
+ LaTeX-verbatim-regexp
+ "\\)}"))
+ ;; \end{verbatim} must be flush left, otherwise an unwanted
+ ;; empty line appears in LaTeX's output.
+ 0)
+ ((and LaTeX-indent-environment-check
+ ;; Special environments.
+ (let ((entry (assoc (or LaTeX-current-environment
+ (LaTeX-current-environment))
+ LaTeX-indent-environment-list)))
+ (and entry
+ (nth 1 entry)
+ (funcall (nth 1 entry))))))
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "\\("
+ LaTeX-end-regexp
+ "\\)"))
+ ;; Backindent at \end.
+ (- (LaTeX-indent-calculate-last force-type) LaTeX-indent-level))
+ ((looking-at (concat (regexp-quote TeX-esc) "right\\b"))
+ ;; Backindent at \right.
+ (- (LaTeX-indent-calculate-last force-type)
+ LaTeX-left-right-indent-level))
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "\\("
+ LaTeX-item-regexp
+ "\\)"))
+ ;; Items.
+ (+ (LaTeX-indent-calculate-last force-type) LaTeX-item-indent))
+ ((looking-at "}")
+ ;; End brace in the start of the line.
+ (- (LaTeX-indent-calculate-last force-type)
+ TeX-brace-indent-level))
+ (t (LaTeX-indent-calculate-last force-type))))))
+
+(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 "[^" TeX-esc "]"
+ "\\(" LaTeX-indent-comment-start-regexp
+ "\\)\\|\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 LaTeX-begin-regexp)
+ (setq count (+ count LaTeX-indent-level)))
+ ((looking-at LaTeX-end-regexp)
+ (setq count (- count LaTeX-indent-level)))
+ ((looking-at (regexp-quote TeX-esc))
+ (forward-char 1))))
+ count))))
+
+(defun LaTeX-indent-calculate-last (&optional force-type)
+ "Return the correct indentation of a normal line of text.
+The point is supposed to be at the beginning of the current line.
+FORCE-TYPE can be used to force the calculation of an inner or
+outer indentation in case of a commented line. The symbols
+'inner and 'outer are recognized."
+ (let (line-comment-current-flag
+ line-comment-last-flag
+ comment-current-flag
+ comment-last-flag)
+ (beginning-of-line)
+ (setq line-comment-current-flag (TeX-in-line-comment)
+ comment-current-flag (TeX-in-commented-line))
+ (if comment-current-flag
+ (skip-chars-backward "%\n\t ")
+ (skip-chars-backward "\n\t "))
+ (beginning-of-line)
+ ;; If we are called in a non-comment line, skip over comment
+ ;; lines. The computation of indentation should in this case
+ ;; rather take the last non-comment line into account.
+ ;; Otherwise there might arise problems with e.g. multi-line
+ ;; code comments. This behavior is not enabled in docTeX mode
+ ;; where large amounts of line comments may have to be skipped
+ ;; and indentation should not be influenced by unrelated code in
+ ;; other macrocode environments.
+ (while (and (not (eq major-mode 'doctex-mode))
+ (not comment-current-flag)
+ (TeX-in-commented-line)
+ (not (bobp)))
+ (skip-chars-backward "\n\t ")
+ (beginning-of-line))
+ (setq line-comment-last-flag (TeX-in-line-comment)
+ comment-last-flag (TeX-in-commented-line))
+ (LaTeX-back-to-indentation force-type)
+ ;; Separate line comments and other stuff (normal text/code and
+ ;; code comments). Additionally we don't want to compute inner
+ ;; indentation when a commented and a non-commented line are
+ ;; compared.
+ (cond ((or (and (eq major-mode 'doctex-mode)
+ (or (and line-comment-current-flag
+ (not line-comment-last-flag))
+ (and (not line-comment-current-flag)
+ line-comment-last-flag)))
+ (and force-type
+ (eq force-type 'inner)
+ (or (and comment-current-flag
+ (not comment-last-flag))
+ (and (not comment-current-flag)
+ comment-last-flag))))
+ 0)
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "begin *{\\("
+ LaTeX-document-regexp
+ "\\)}"))
+ ;; I dislike having all of the document indented...
+ (+ (LaTeX-current-indentation force-type)
+ ;; Some people have opening braces at the end of the
+ ;; line, e.g. in case of `\begin{letter}{%'.
+ (TeX-brace-count-line)))
+ ((and (eq major-mode 'doctex-mode)
+ (looking-at (concat (regexp-quote TeX-esc)
+ "end[ \t]*{macrocode\\*?}"))
+ fill-prefix
+ (TeX-in-line-comment))
+ ;; Reset indentation to zero after a macrocode
+ ;; environment.
+ 0)
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "begin *{\\("
+ LaTeX-verbatim-regexp
+ "\\)}"))
+ 0)
+ ((looking-at (concat (regexp-quote TeX-esc)
+ "end *{\\("
+ LaTeX-verbatim-regexp
+ "\\)}"))
+ ;; 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 *{\\("
+ LaTeX-verbatim-regexp
+ "\\)}") 0 t)
+ (LaTeX-indent-calculate-last force-type)
+ 0)))
+ (t (+ (LaTeX-current-indentation force-type)
+ (if (not (and force-type
+ (eq force-type 'outer)
+ (TeX-in-commented-line)))
+ (+ (LaTeX-indent-level-count)
+ (TeX-brace-count-line))
+ 0)
+ (cond ((looking-at (concat (regexp-quote TeX-esc)
+ "\\("
+ LaTeX-end-regexp
+ "\\)"))
+ 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))
+ ((looking-at "}")
+ TeX-brace-indent-level)
+ (t 0)))))))
+
+(defun LaTeX-current-indentation (&optional force-type)
+ "Return the indentation of a line.
+FORCE-TYPE can be used to force the calculation of an inner or
+outer indentation in case of a commented line. The symbols
+'inner and 'outer are recognized."
+ (if (and fill-prefix
+ (or (and force-type
+ (eq force-type 'inner))
+ (and (not force-type)
+ (or
+ ;; If `LaTeX-syntactic-comments' is not enabled,
+ ;; do conventional indentation
+ LaTeX-syntactic-comments
+ ;; Line comments in `doctex-mode' are always
+ ;; indented syntax-aware so we need their inner
+ ;; indentation.
+ (and (TeX-in-line-comment)
+ (eq major-mode 'doctex-mode))))))
+ ;; INNER indentation
+ (save-excursion
+ (beginning-of-line)
+ (looking-at (concat "\\(?:[ \t]*" TeX-comment-start-regexp "+\\)+"
+ "\\([ \t]*\\)"))
+ (- (length (match-string 1)) (length (TeX-comment-padding-string))))
+ ;; OUTER indentation
+ (current-indentation)))
+
+(defun LaTeX-back-to-indentation (&optional force-type)
+ "Move point to the first non-whitespace character on this line.
+If it is commented and comments are formatted syntax-aware move
+point to the first non-whitespace character after the comment
+character(s). The optional argument FORCE-TYPE can be used to
+force point being moved to the inner or outer indentation in case
+of a commented line. The symbols 'inner and 'outer are
+recognized."
+ (if (or (and force-type
+ (eq force-type 'inner))
+ (and (not force-type)
+ (or (and (TeX-in-line-comment)
+ (eq major-mode 'doctex-mode))
+ (and (TeX-in-commented-line)
+ LaTeX-syntactic-comments))))
+ (progn
+ (beginning-of-line)
+ ;; Should this be anchored at the start of the line?
+ (TeX-re-search-forward-unescaped
+ (concat "\\(?:" TeX-comment-start-regexp "+[ \t]*\\)+")
+ (line-end-position) t))
+ (back-to-indentation)))
+
+
+;;; Filling
+
+(defcustom LaTeX-fill-break-at-separators nil
+ "List of separators before or after which respectively a line
+break will be inserted if they do not fit into one line."
+ :group 'LaTeX
+ :type '(set :tag "Contents"
+ (const :tag "Opening Brace" \{)
+ (const :tag "Closing Brace" \})
+ (const :tag "Opening Bracket" \[)
+ (const :tag "Opening Inline Math Switches" \\\()
+ (const :tag "Closing Inline Math Switches" \\\))
+ (const :tag "Opening Display Math Switch" \\\[)
+ (const :tag "Closing Display Math Switch" \\\])))
+
+(defcustom LaTeX-fill-break-before-code-comments t
+ "If non-nil, a line with some code followed by a comment will
+be broken before the last non-comment word in case the comment
+does not fit into the line."
+ :group 'LaTeX
+ :type 'boolean)
+
+(defvar LaTeX-nospace-between-char-regexp
+ (if (featurep 'xemacs)
+ (if (and (boundp 'word-across-newline) word-across-newline)
+ word-across-newline
+ ;; NOTE: Ensure not to have a value of nil for such a rare case that
+ ;; somebody removes the mule test in `LaTeX-fill-delete-newlines' so that
+ ;; it could match only "\n" and this could lead to problem. XEmacs does
+ ;; not have a category `\c|' and `\ct' means `Chinese Taiwan' in XEmacs.
+ "\\(\\cj\\|\\cc\\|\\ct\\)")
+ "\\c|")
+ "Regexp matching a character where no interword space is necessary.
+Words formed by such characters can be broken across newlines.")
+
+(defvar LaTeX-fill-newline-hook nil
+ "Hook run after `LaTeX-fill-newline' inserted and indented a new line.")
+
+(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. Lines with code
+comments and lines ending with `\par' are included in filling but
+act as boundaries. Prefix arg means justify too. From program,
+pass args FROM, TO and JUSTIFY-FLAG."
+ (interactive "*r\nP")
+ (let ((end-marker (save-excursion (goto-char to) (point-marker))))
+ (if (or (assoc (LaTeX-current-environment) LaTeX-indent-environment-list)
+ ;; This could be generalized, if there are more cases where
+ ;; a special string at the start of a region to fill should
+ ;; inhibit filling.
+ (progn (save-excursion (goto-char from)
+ (looking-at (concat TeX-comment-start-regexp
+ "+[ \t]*"
+ "Local Variables:")))))
+ ;; Filling disabled, only do indentation.
+ (indent-region from to nil)
+ (save-restriction
+ (goto-char from)
+ (while (< (point) end-marker)
+ (if (re-search-forward
+ (concat "\\("
+ ;; Code comments.
+ "[^\r\n%\\]\\([ \t]\\|\\\\\\\\\\)*"
+ TeX-comment-start-regexp
+ "\\|"
+ ;; Lines ending with `\par'.
+ "\\(\\=\\|[^" TeX-esc "\n]\\)\\("
+ (regexp-quote (concat TeX-esc TeX-esc))
+ "\\)*"
+ (regexp-quote TeX-esc) "par[ \t]*"
+ "\\({[ \t]*}\\)?[ \t]*$"
+ "\\)\\|\\("
+ ;; Lines ending with `\\'.
+ (regexp-quote TeX-esc)
+ (regexp-quote TeX-esc)
+ "\\(\\s-*\\*\\)?"
+ "\\(\\s-*\\[[^]]*\\]\\)?"
+ "\\s-*$\\)")
+ end-marker t)
+ (progn
+ (goto-char (line-end-position))
+ (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
+ ;; Code comments and lines ending with `\par' are
+ ;; included in filling. Lines ending with `\\' are
+ ;; skipped.
+ (if (match-string 1)
+ (LaTeX-fill-region-as-para-do from (point) justify-flag)
+ (LaTeX-fill-region-as-para-do
+ from (line-beginning-position 0) justify-flag)
+ ;; At least indent the line ending with `\\'.
+ (indent-according-to-mode)))
+ (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 end-marker justify-flag)))))))
+
+;; The content of `LaTeX-fill-region-as-para-do' was copied from the
+;; function `fill-region-as-paragraph' in `fill.el' (CVS Emacs,
+;; January 2004) and adapted to the needs of AUCTeX.
+
+(defun LaTeX-fill-region-as-para-do (from to &optional justify
+ nosqueeze squeeze-after)
+ "Fill the region defined by FROM and TO as one paragraph.
+It removes any paragraph breaks in the region and extra newlines at the end,
+indents and fills lines between the margins given by the
+`current-left-margin' and `current-fill-column' functions.
+\(In most cases, the variable `fill-column' controls the width.)
+It leaves point at the beginning of the line following the paragraph.
+
+Normally performs justification according to the `current-justification'
+function, but with a prefix arg, does full justification instead.
+
+From a program, optional third arg JUSTIFY can specify any type of
+justification. Fourth arg NOSQUEEZE non-nil means not to make spaces
+between words canonical before filling. Fifth arg SQUEEZE-AFTER, if non-nil,
+means don't canonicalize spaces before that position.
+
+Return the `fill-prefix' used for filling.
+
+If `sentence-end-double-space' is non-nil, then period followed by one
+space does not end a sentence, so don't break a line there."
+ (interactive (progn
+ (barf-if-buffer-read-only)
+ (list (region-beginning) (region-end)
+ (if current-prefix-arg 'full))))
+ (unless (memq justify '(t nil none full center left right))
+ (setq justify 'full))
+
+ ;; Make sure "to" is the endpoint.
+ (goto-char (min from to))
+ (setq to (max from to))
+ ;; Ignore blank lines at beginning of region.
+ (skip-chars-forward " \t\n")
+
+ (let ((from-plus-indent (point))
+ (oneleft nil))
+
+ (beginning-of-line)
+ (setq from (point))
+
+ ;; Delete all but one soft newline at end of region.
+ ;; And leave TO before that one.
+ (goto-char to)
+ (while (and (> (point) from) (eq ?\n (char-after (1- (point)))))
+ (if (and oneleft
+ (not (and use-hard-newlines
+ (get-text-property (1- (point)) 'hard))))
+ (delete-backward-char 1)
+ (backward-char 1)
+ (setq oneleft t)))
+ (setq to (copy-marker (point) t))
+ (goto-char from-plus-indent))
+
+ (if (not (> to (point)))
+ nil ;; There is no paragraph, only whitespace: exit now.
+
+ (or justify (setq justify (current-justification)))
+
+ ;; Don't let Adaptive Fill mode alter the fill prefix permanently.
+ (let ((fill-prefix fill-prefix))
+ ;; Figure out how this paragraph is indented, if desired.
+ (when (and adaptive-fill-mode
+ (or (null fill-prefix) (string= fill-prefix "")))
+ (setq fill-prefix (fill-context-prefix from to))
+ ;; Ignore a white-space only fill-prefix
+ ;; if we indent-according-to-mode.
+ (when (and fill-prefix fill-indent-according-to-mode
+ (string-match "\\`[ \t]*\\'" fill-prefix))
+ (setq fill-prefix nil)))
+
+ (goto-char from)
+ (beginning-of-line)
+
+ (if (not justify) ; filling disabled: just check indentation
+ (progn
+ (goto-char from)
+ (while (< (point) to)
+ (if (and (not (eolp))
+ (< (LaTeX-current-indentation) (current-left-margin)))
+ (fill-indent-to-left-margin))
+ (forward-line 1)))
+
+ (when use-hard-newlines
+ (remove-text-properties from to '(hard nil)))
+ ;; Make sure first line is indented (at least) to left margin...
+ (indent-according-to-mode)
+ ;; COMPATIBILITY for Emacs <= 21.1
+ (if (fboundp 'fill-delete-prefix)
+ ;; Delete the fill-prefix from every line.
+ (fill-delete-prefix from to fill-prefix)
+ ;; Delete the comment prefix and any whitespace from every
+ ;; line of the region in concern except the first. (The
+ ;; implementation is heuristic to a certain degree.)
+ (save-excursion
+ (goto-char from)
+ (forward-line 1)
+ (when (< (point) to)
+ (while (re-search-forward (concat "^[ \t]+\\|^[ \t]*"
+ TeX-comment-start-regexp
+ "+[ \t]*") to t)
+ (delete-region (match-beginning 0) (match-end 0))))))
+
+ (setq from (point))
+
+ ;; FROM, and point, are now before the text to fill,
+ ;; but after any fill prefix on the first line.
+
+ (LaTeX-fill-delete-newlines from to justify nosqueeze squeeze-after)
+
+ ;; This is the actual FILLING LOOP.
+ (goto-char from)
+ (let* (linebeg
+ (code-comment-start (save-excursion
+ (LaTeX-back-to-indentation)
+ (TeX-search-forward-comment-start
+ (line-end-position))))
+ (end-marker (save-excursion
+ (goto-char (or code-comment-start to))
+ (point-marker)))
+ (LaTeX-current-environment (LaTeX-current-environment)))
+ ;; Fill until point is greater than the end point. If there
+ ;; is a code comment, use the code comment's start as a
+ ;; limit.
+ (while (and (< (point) (marker-position end-marker))
+ (or (not code-comment-start)
+ (and code-comment-start
+ (> (- (marker-position end-marker)
+ (line-beginning-position))
+ fill-column))))
+ (setq linebeg (point))
+ (move-to-column (current-fill-column))
+ (if (when (< (point) (marker-position end-marker))
+ ;; Find the position where we'll break the line.
+ (forward-char 1) ; Use an immediately following
+ ; space, if any.
+ (LaTeX-fill-move-to-break-point linebeg)
+
+ ;; Check again to see if we got to the end of
+ ;; the paragraph.
+ (skip-chars-forward " \t")
+ (< (point) (marker-position end-marker)))
+ ;; Found a place to cut.
+ (progn
+ (LaTeX-fill-newline)
+ (when justify
+ ;; Justify the line just ended, if desired.
+ (save-excursion
+ (forward-line -1)
+ (justify-current-line justify nil t))))
+
+ (goto-char end-marker)
+ ;; Justify this last line, if desired.
+ (if justify (justify-current-line justify t t))))
+
+ ;; Fill a code comment if necessary. (Enable this code if
+ ;; you want the comment part in lines with code comments to
+ ;; be filled. Originally it was disabled because the
+ ;; indentation code indented the lines following the line
+ ;; with the code comment to the column of the comment
+ ;; starters. That means, it would have looked like this:
+ ;; | code code code % comment
+ ;; | % comment
+ ;; | code code code
+ ;; This now (2005-07-29) is not the case anymore. But as
+ ;; filling code comments like this would split a single
+ ;; paragraph into two separate ones, we still leave it
+ ;; disabled. I leave the code here in case it is useful for
+ ;; somebody.
+ ;; (when (and code-comment-start
+ ;; (> (- (line-end-position) (line-beginning-position))
+ ;; fill-column))
+ ;; (LaTeX-fill-code-comment justify))
+
+ ;; The following is an alternative strategy to minimize the
+ ;; occurence of overfull lines with code comments. A line
+ ;; will be broken before the last non-comment word if the
+ ;; code comment does not fit into the line.
+ (when (and LaTeX-fill-break-before-code-comments
+ code-comment-start
+ (> (- (line-end-position) (line-beginning-position))
+ fill-column))
+ (beginning-of-line)
+ (goto-char end-marker)
+ (while (not (looking-at TeX-comment-start-regexp)) (forward-char))
+ (skip-chars-backward " \t")
+ (skip-chars-backward "^ \t\n")
+ (unless (or (bolp)
+ ;; Comment starters and whitespace.
+ (TeX-looking-at-backward
+ (concat "^\\([ \t]*" TeX-comment-start-regexp
+ "+\\)+[ \t]*")
+ (line-beginning-position)))
+ (LaTeX-fill-newline)))))
+ ;; Leave point after final newline.
+ (goto-char to)
+ (unless (eobp) (forward-char 1))
+ ;; Return the fill-prefix we used
+ fill-prefix)))
+
+;; Following lines are copied from `fill.el' (CVS Emacs, March 2005).
+;; The `fill-space' property carries the string with which a newline should be
+;; replaced when unbreaking a line (in fill-delete-newlines). It is added to
+;; newline characters by fill-newline when the default behavior of
+;; fill-delete-newlines is not what we want.
+(unless (featurep 'xemacs)
+ ;; COMPATIBILITY for Emacs < 22.1
+ (add-to-list 'text-property-default-nonsticky '(fill-space . t)))
+
+(defun LaTeX-fill-delete-newlines (from to justify nosqueeze squeeze-after)
+ ;; COMPATIBILITY for Emacs < 22.1 and XEmacs
+ (if (fboundp 'fill-delete-newlines)
+ (fill-delete-newlines from to justify nosqueeze squeeze-after)
+ (if (featurep 'xemacs)
+ (when (featurep 'mule)
+ (goto-char from)
+ (let ((unwished-newline (concat LaTeX-nospace-between-char-regexp "\n"
+ LaTeX-nospace-between-char-regexp)))
+ (while (re-search-forward unwished-newline to t)
+ (skip-chars-backward "^\n")
+ (delete-char -1))))
+ ;; This else-sentence was copied from the function `fill-delete-newlines'
+ ;; in `fill.el' (CVS Emacs, 2005-02-17) and adapted accordingly.
+ (while (search-forward "\n" to t)
+ (if (get-text-property (match-beginning 0) 'fill-space)
+ (replace-match (get-text-property (match-beginning 0) 'fill-space))
+ (let ((prev (char-before (match-beginning 0)))
+ (next (following-char)))
+ (when (or (aref (char-category-set next) ?|)
+ (aref (char-category-set prev) ?|))
+ (delete-char -1))))))
+
+ ;; Make sure sentences ending at end of line get an extra space.
+ (if (or (not (boundp 'sentence-end-double-space))
+ sentence-end-double-space)
+ (progn
+ (goto-char from)
+ (while (re-search-forward "[.?!][]})\"']*$" to t)
+ (insert ? ))))
+ ;; Then change all newlines to spaces.
+ (let ((point-max (progn
+ (goto-char to)
+ (skip-chars-backward "\n")
+ (point))))
+ (subst-char-in-region from point-max ?\n ?\ ))
+ (goto-char from)
+ (skip-chars-forward " \t")
+ ;; Remove extra spaces between words.
+ (unless (and nosqueeze (not (eq justify 'full)))
+ (canonically-space-region (or squeeze-after (point)) to)
+ ;; Remove trailing whitespace.
+ (goto-char (line-end-position))
+ (delete-char (- (skip-chars-backward " \t"))))))
+
+(defun LaTeX-fill-move-to-break-point (linebeg)
+ "Move to the position where the line should be broken."
+ ;; COMPATIBILITY for Emacs < 22.1 and XEmacs
+ (if (fboundp 'fill-move-to-break-point)
+ (fill-move-to-break-point linebeg)
+ (if (featurep 'mule)
+ (if (TeX-looking-at-backward
+ (concat LaTeX-nospace-between-char-regexp ".?") 2)
+ ;; Cancel `forward-char' which is called just before
+ ;; `LaTeX-fill-move-to-break-point' if the char before point matches
+ ;; `LaTeX-nospace-between-char-regexp'.
+ (backward-char 1)
+ (when (re-search-backward
+ (concat " \\|\n\\|" LaTeX-nospace-between-char-regexp)
+ linebeg 'move)
+ (forward-char 1)))
+ (skip-chars-backward "^ \n"))
+ ;; Prevent infinite loops: If we cannot find a place to break
+ ;; while searching backward, search forward again.
+ (when (save-excursion
+ (skip-chars-backward " \t%")
+ (bolp))
+ (skip-chars-forward "^ \n" (point-max)))
+ ;; This code was copied from the function `fill-move-to-break-point'
+ ;; in `fill.el' (CVS Emacs, 2005-02-22) and adapted accordingly.
+ (when (and (< linebeg (point))
+ ;; If we are going to break the line after or
+ ;; before a non-ascii character, we may have to
+ ;; run a special function for the charset of the
+ ;; character to find the correct break point.
+ (boundp 'enable-multibyte-characters)
+ enable-multibyte-characters
+ (fboundp 'charset-after) ; Non-MULE XEmacsen don't have this.
+ (not (and (eq (charset-after (1- (point))) 'ascii)
+ (eq (charset-after (point)) 'ascii))))
+ ;; Make sure we take SOMETHING after the fill prefix if any.
+ (if (fboundp 'fill-find-break-point)
+ (fill-find-break-point linebeg)
+ (when (fboundp 'kinsoku-process) ;XEmacs
+ (kinsoku-process)))))
+ ;; Prevent line break between 2-byte char and 1-byte char.
+ (when (and (featurep 'mule)
+ enable-multibyte-characters
+ (or (and (not (looking-at LaTeX-nospace-between-char-regexp))
+ (TeX-looking-at-backward
+ LaTeX-nospace-between-char-regexp 1))
+ (and (not (TeX-looking-at-backward
+ LaTeX-nospace-between-char-regexp 1))
+ (looking-at LaTeX-nospace-between-char-regexp)))
+ (re-search-backward
+ (concat LaTeX-nospace-between-char-regexp
+ LaTeX-nospace-between-char-regexp
+ LaTeX-nospace-between-char-regexp
+ "\\|"
+ ".\\ca\\s +\\ca") linebeg t))
+ (if (looking-at "..\\c>")
+ (forward-char 1)
+ (forward-char 2)))
+ ;; Cater for Japanese Macro
+ (when (and (boundp 'japanese-TeX-mode) japanese-TeX-mode
+ (aref (char-category-set (char-after)) ?j)
+ (TeX-looking-at-backward (concat (regexp-quote TeX-esc) TeX-token-char "*")
+ (1- (- (point) linebeg)))
+ (not (TeX-escaped-p (match-beginning 0))))
+ (goto-char (match-beginning 0)))
+ ;; Cater for \verb|...| (and similar) contructs which should not be
+ ;; broken. (FIXME: Make it work with shortvrb.sty (also loaded by
+ ;; doc.sty) where |...| is allowed. Arbitrary delimiters may be
+ ;; chosen with \MakeShortVerb{<char>}.) This could probably be
+ ;; handled with `fill-nobreak-predicate', but this is not available
+ ;; in XEmacs.
+ (let ((final-breakpoint (point))
+ (verb-macros (regexp-opt (append (LaTeX-verbatim-macros-with-delims)
+ (LaTeX-verbatim-macros-with-braces)))))
+ (save-excursion
+ ;; Look for the start of a verbatim macro in the current line.
+ (when (re-search-backward (concat (regexp-quote TeX-esc)
+ "\\(?:" verb-macros "\\)\\([^a-z@*]\\)")
+ (line-beginning-position) t)
+ ;; Determine start and end of verbatim macro.
+ (let ((beg (point))
+ (end (if (not (string-match "[ [{]" (match-string 1)))
+ (cdr (LaTeX-verbatim-macro-boundaries))
+ (TeX-find-macro-end))))
+ ;; Determine if macro end is behind fill column.
+ (when (and end
+ (> (- end (line-beginning-position))
+ (current-fill-column))
+ (> end final-breakpoint))
+ ;; Search backwards for place to break before the macro.
+ (goto-char beg)
+ (skip-chars-backward "^ \n")
+ ;; Determine if point ended up at the beginning of the line.
+ (when (save-excursion (skip-chars-backward " \t%") (bolp))
+ ;; Search forward for a place to break after the macro.
+ (goto-char end)
+ (skip-chars-forward "^ \n" (point-max)))
+ (setq final-breakpoint (point))))))
+ (goto-char final-breakpoint))
+ (when LaTeX-fill-break-at-separators
+ (let ((orig-breakpoint (point))
+ (final-breakpoint (point))
+ start-point
+ math-sep)
+ (save-excursion
+ (beginning-of-line)
+ (LaTeX-back-to-indentation)
+ (setq start-point (point))
+ ;; Find occurences of [, $, {, }, \(, \), \[, \] or $$.
+ (while (and (= final-breakpoint orig-breakpoint)
+ (TeX-re-search-forward-unescaped
+ (concat "[[{}]\\|\\$\\$?\\|"
+ (regexp-quote TeX-esc) "[][()]")
+ orig-breakpoint t))
+ (let ((match-string (match-string 0)))
+ (cond
+ ;; [ (opening bracket) (The closing bracket should
+ ;; already be handled implicitely by the code for the
+ ;; opening brace.)
+ ((save-excursion
+ (and (memq '\[ LaTeX-fill-break-at-separators)
+ (string= match-string "[")
+ (TeX-re-search-forward-unescaped (concat "\\][ \t]*{")
+ (line-end-position) t)
+ (> (- (or (TeX-find-closing-brace)
+ (line-end-position))
+ (line-beginning-position))
+ fill-column)))
+ (save-excursion
+ (skip-chars-backward "^ \n")
+ (when (> (point) start-point)
+ (setq final-breakpoint (point)))))
+ ;; { (opening brace)
+ ((save-excursion
+ (and (memq '\{ LaTeX-fill-break-at-separators)
+ (string= match-string "{")
+ (> (- (save-excursion
+ ;; `TeX-find-closing-brace' is not enough
+ ;; if there is no breakpoint in form of
+ ;; whitespace after the brace.
+ (goto-char (or (TeX-find-closing-brace)
+ (line-end-position)))
+ (skip-chars-forward "^ \t\n")
+ (point))
+ (line-beginning-position))
+ fill-column)))
+ (save-excursion
+ (skip-chars-backward "^ \n")
+ ;; The following is a primitive and error-prone method
+ ;; to cope with point probably being inside square
+ ;; brackets. A better way would be to use functions
+ ;; to determine if point is inside an optional
+ ;; argument and to jump to the start and end brackets.
+ (when (save-excursion
+ (TeX-re-search-forward-unescaped
+ (concat "\\][ \t]*{") orig-breakpoint t))
+ (TeX-search-backward-unescaped "["
+ (line-beginning-position) t)
+ (skip-chars-backward "^ \n"))
+ (when (> (point) start-point)
+ (setq final-breakpoint (point)))))
+ ;; } (closing brace)
+ ((save-excursion
+ (and (memq '\} LaTeX-fill-break-at-separators)
+ (string= match-string "}")
+ (save-excursion
+ (backward-char 2)
+ (not (TeX-find-opening-brace
+ nil (line-beginning-position))))))
+ (save-excursion
+ (skip-chars-forward "^ \n")
+ (when (> (point) start-point)
+ (setq final-breakpoint (point)))))
+ ;; $ or \( or \[ or $$ (opening math)
+ ((save-excursion
+ (and (or (and (memq '\\\( LaTeX-fill-break-at-separators)
+ (or (and (string= match-string "$")
+ (texmathp))
+ (string= match-string "\\(")))
+ (and (memq '\\\[ LaTeX-fill-break-at-separators)
+ (or (string= match-string "\\[")
+ (and (string= match-string "$$")
+ (texmathp)))))
+ (> (- (save-excursion
+ (TeX-search-forward-unescaped
+ (cond ((string= match-string "\\(")
+ (concat TeX-esc ")"))
+ ((string= match-string "$") "$")
+ ((string= match-string "$$") "$$")
+ (t (concat TeX-esc "]")))
+ (point-max) t)
+ (point))
+ (line-beginning-position))
+ fill-column)))
+ (save-excursion
+ (skip-chars-backward "^ \n")
+ (when (> (point) start-point)
+ (setq final-breakpoint (point)))))
+ ;; $ or \) or \] or $$ (closing math)
+ ((save-excursion
+ (and (or (and (memq '\\\) LaTeX-fill-break-at-separators)
+ (or (and (string= match-string "$")
+ (not (texmathp)))
+ (string= match-string "\\)")))
+ (and (memq '\\\] LaTeX-fill-break-at-separators)
+ (or (string= match-string "\\]")
+ (and (string= match-string "$$")
+ (not (texmathp))))))
+ (if (member match-string '("$" "$$"))
+ (save-excursion
+ (skip-chars-backward "$")
+ (not (TeX-search-backward-unescaped
+ match-string (line-beginning-position) t)))
+ (texmathp-match-switch (line-beginning-position)))))
+ (save-excursion
+ (skip-chars-forward "^ \n")
+ (when (> (point) start-point)
+ (setq final-breakpoint (point)))))))))
+ (goto-char final-breakpoint))))
+
+;; The content of `LaTeX-fill-newline' was copied from the function
+;; `fill-newline' in `fill.el' (CVS Emacs, January 2004) and adapted
+;; to the needs of AUCTeX.
+(defun LaTeX-fill-newline ()
+ "Replace whitespace here with one newline and indent the line."
+ (skip-chars-backward " \t")
+ (newline 1)
+ ;; COMPATIBILITY for XEmacs
+ (unless (featurep 'xemacs)
+ ;; Give newline the properties of the space(s) it replaces
+ (set-text-properties (1- (point)) (point)
+ (text-properties-at (point)))
+ (and (looking-at "\\( [ \t]*\\)\\(\\c|\\)?")
+ (or (aref (char-category-set (or (char-before (1- (point))) ?\000)) ?|)
+ (match-end 2))
+ ;; When refilling later on, this newline would normally not
+ ;; be replaced by a space, so we need to mark it specially to
+ ;; re-install the space when we unfill.
+ (put-text-property (1- (point)) (point) 'fill-space (match-string 1)))
+ ;; COMPATIBILITY for Emacs <= 21.3
+ (when (boundp 'fill-nobreak-invisible)
+ ;; If we don't want breaks in invisible text, don't insert
+ ;; an invisible newline.
+ (if fill-nobreak-invisible
+ (remove-text-properties (1- (point)) (point)
+ '(invisible t)))))
+ ;; Insert the fill prefix.
+ (and fill-prefix (not (equal fill-prefix ""))
+ ;; Markers that were after the whitespace are now at point: insert
+ ;; before them so they don't get stuck before the prefix.
+ (insert-before-markers-and-inherit fill-prefix))
+ (indent-according-to-mode)
+ (run-hooks 'LaTeX-fill-newline-hook))
+
+(defun LaTeX-fill-paragraph (&optional justify)
+ "Like `fill-paragraph', but handle LaTeX comments.
+If any of the current line is a comment, fill the comment or the
+paragraph of it that point is in. Code comments, i.e. comments
+with uncommented code preceding them in the same line, will not
+be filled unless the cursor is placed on the line with the
+code comment.
+
+If LaTeX syntax is taken into consideration during filling
+depends on the value of `LaTeX-syntactic-comments'."
+ (interactive "P")
+ (if (save-excursion
+ (beginning-of-line)
+ (looking-at (concat TeX-comment-start-regexp "*[ \t]*$")))
+ ;; Don't do anything if we look at an empty line and let
+ ;; `fill-paragraph' think we successfully filled the paragraph.
+ t
+ (let (;; Non-nil if the current line contains a comment.
+ has-comment
+ ;; Non-nil if the current line contains code and a comment.
+ has-code-and-comment
+ code-comment-start
+ ;; If has-comment, the appropriate fill-prefix for the comment.
+ comment-fill-prefix)
+
+ ;; Figure out what kind of comment we are looking at.
+ (cond
+ ;; A line only with potential whitespace followed by a
+ ;; comment on it?
+ ((save-excursion
+ (beginning-of-line)
+ (looking-at (concat "^[ \t]*" TeX-comment-start-regexp
+ "\\(" TeX-comment-start-regexp "\\|[ \t]\\)*")))
+ (setq has-comment t
+ comment-fill-prefix (TeX-match-buffer 0)))
+ ;; A line with some code, followed by a comment?
+ ((and (setq code-comment-start (save-excursion
+ (beginning-of-line)
+ (TeX-search-forward-comment-start
+ (line-end-position))))
+ (> (point) code-comment-start)
+ (not (TeX-in-commented-line))
+ (save-excursion
+ (goto-char code-comment-start)
+ ;; See if there is at least one non-whitespace character
+ ;; before the comment starts.
+ (re-search-backward "[^ \t\n]" (line-beginning-position) t)))
+ (setq has-comment t
+ has-code-and-comment t)))
+
+ (cond
+ ;; Code comments.
+ (has-code-and-comment
+ (save-excursion
+ (when (>= (- code-comment-start (line-beginning-position))
+ fill-column)
+ ;; If start of code comment is beyond fill column, fill it as a
+ ;; regular paragraph before it is filled as a code comment.
+ (let ((end-marker (save-excursion (end-of-line) (point-marker))))
+ (LaTeX-fill-region-as-paragraph (line-beginning-position)
+ (line-beginning-position 2)
+ justify)
+ (goto-char end-marker)
+ (beginning-of-line)))
+ (LaTeX-fill-code-comment justify)))
+ ;; Syntax-aware filling:
+ ;; * `LaTeX-syntactic-comments' enabled: Everything.
+ ;; * `LaTeX-syntactic-comments' disabled: Uncommented code and
+ ;; line comments in `doctex-mode'.
+ ((or (or LaTeX-syntactic-comments
+ (and (not LaTeX-syntactic-comments)
+ (not has-comment)))
+ (and (eq major-mode 'doctex-mode)
+ (TeX-in-line-comment)))
+ (let ((fill-prefix comment-fill-prefix))
+ (save-excursion
+ (let* ((end (progn (LaTeX-forward-paragraph)
+ (or (bolp) (newline 1))
+ (and (eobp) (not (bolp)) (open-line 1))
+ (point)))
+ (start
+ (progn
+ (LaTeX-backward-paragraph)
+ (while (and (looking-at
+ (concat "$\\|[ \t]+$\\|"
+ "[ \t]*" TeX-comment-start-regexp
+ "+[ \t]*$"))
+ (< (point) end))
+ (forward-line))
+ (point))))
+ (LaTeX-fill-region-as-paragraph start end justify)))))
+ ;; Non-syntax-aware filling.
+ (t
+ (save-excursion
+ (save-restriction
+ (beginning-of-line)
+ (narrow-to-region
+ ;; Find the first line we should include in the region to fill.
+ (save-excursion
+ (while (and (zerop (forward-line -1))
+ (looking-at (concat "^[ \t]*"
+ TeX-comment-start-regexp))))
+ ;; We may have gone too far. Go forward again.
+ (or (looking-at (concat ".*" TeX-comment-start-regexp))
+ (forward-line 1))
+ (point))
+ ;; Find the beginning of the first line past the region to fill.
+ (save-excursion
+ (while (progn (forward-line 1)
+ (looking-at (concat "^[ \t]*"
+ TeX-comment-start-regexp))))
+ (point)))
+ ;; The definitions of `paragraph-start' and
+ ;; `paragraph-separate' will still make
+ ;; `forward-paragraph' and `backward-paragraph' stop at
+ ;; the respective (La)TeX commands. If these should be
+ ;; disregarded, the definitions would have to be changed
+ ;; accordingly. (Lines with only `%' characters on them
+ ;; can be paragraph boundaries.)
+ (let* ((paragraph-start
+ (concat paragraph-start "\\|"
+ "\\(" TeX-comment-start-regexp "\\|[ \t]\\)*$"))
+ (paragraph-separate
+ (concat paragraph-separate "\\|"
+ "\\(" TeX-comment-start-regexp "\\|[ \t]\\)*$"))
+ (fill-prefix comment-fill-prefix)
+ (end (progn (forward-paragraph)
+ (or (bolp) (newline 1))
+ (point)))
+ (beg (progn (backward-paragraph)
+ (point))))
+ (fill-region-as-paragraph
+ beg end
+ justify nil
+ (save-excursion
+ (goto-char beg)
+ (if (looking-at fill-prefix)
+ nil
+ (re-search-forward comment-start-skip nil t)
+ (point)))))))))
+ t)))
+
+(defun LaTeX-fill-code-comment (&optional justify-flag)
+ "Fill a line including code followed by a comment."
+ (let ((beg (line-beginning-position))
+ fill-prefix code-comment-start)
+ (indent-according-to-mode)
+ (when (when (setq code-comment-start (save-excursion
+ (goto-char beg)
+ (TeX-search-forward-comment-start
+ (line-end-position))))
+ (goto-char code-comment-start)
+ (while (not (looking-at TeX-comment-start-regexp)) (forward-char))
+ ;; See if there is at least one non-whitespace character
+ ;; before the comment starts.
+ (save-excursion
+ (re-search-backward "[^ \t\n]" (line-beginning-position) t)))
+ (setq fill-prefix
+ (concat
+ (if indent-tabs-mode
+ (concat (make-string (/ (current-column) tab-width) ?\t)
+ (make-string (% (current-column) tab-width) ?\ ))
+ (make-string (current-column) ?\ ))
+ (progn
+ (looking-at (concat TeX-comment-start-regexp "+[ \t]*"))
+ (TeX-match-buffer 0))))
+ (fill-region-as-paragraph beg (line-beginning-position 2)
+ justify-flag nil
+ (save-excursion
+ (goto-char beg)
+ (if (looking-at fill-prefix)
+ nil
+ (re-search-forward comment-start-skip nil t)
+ (point)))))))
+
+(defun LaTeX-fill-region (from to &optional justify what)
+ "Fill and indent the text in region from FROM to TO as LaTeX text.
+Prefix arg (non-nil third arg JUSTIFY, if called from program)
+means justify as well. Fourth arg WHAT is a word to be displayed when
+formatting."
+ (interactive "*r\nP")
+ (save-excursion
+ (let ((to (set-marker (make-marker) to))
+ (next-par (make-marker)))
+ (goto-char from)
+ (beginning-of-line)
+ (setq from (point))
+ (catch 'end-of-buffer
+ (while (and (< (point) to))
+ (message "Formatting%s ... %d%%"
+ (or what "")
+ (/ (* 100 (- (point) from)) (- to from)))
+ (save-excursion (LaTeX-fill-paragraph justify))
+ (if (marker-position next-par)
+ (goto-char (marker-position next-par))
+ (LaTeX-forward-paragraph))
+ (when (eobp) (throw 'end-of-buffer t))
+ (LaTeX-forward-paragraph)
+ (set-marker next-par (point))
+ (LaTeX-backward-paragraph)
+ (while (and (not (eobp))
+ (looking-at
+ (concat "^\\($\\|[ \t]+$\\|[ \t]*"
+ TeX-comment-start-regexp "+[ \t]*$\\)")))
+ (forward-line 1))))
+ (set-marker to nil)))
+ (message "Finished"))
+
+(defun LaTeX-find-matching-end ()
+ "Move point to the \\end of the current environment.
+
+If function is called inside a comment and
+`LaTeX-syntactic-comments' is enabled, try to find the
+environment in commented regions with the same comment prefix."
+ (interactive)
+ (let* ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b"))
+ (level 1)
+ (in-comment (TeX-in-commented-line))
+ (comment-prefix (and in-comment (TeX-comment-prefix))))
+ (save-excursion
+ (skip-chars-backward "a-zA-Z \t{")
+ (unless (bolp)
+ (backward-char 1)
+ (and (looking-at regexp)
+ (char-equal (char-after (1+ (match-beginning 0))) ?e)
+ (setq level 0))))
+ (while (and (> level 0) (re-search-forward regexp nil t))
+ (when (or (and LaTeX-syntactic-comments
+ (eq in-comment (TeX-in-commented-line))
+ ;; If we are in a commented line, check if the
+ ;; prefix matches the one we started out with.
+ (or (not in-comment)
+ (string= comment-prefix (TeX-comment-prefix))))
+ (and (not LaTeX-syntactic-comments)
+ (not (TeX-in-commented-line))))
+ (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.
+
+If function is called inside a comment and
+`LaTeX-syntactic-comments' is enabled, try to find the
+environment in commented regions with the same comment prefix."
+ (interactive)
+ (let* ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b"))
+ (level 1)
+ (in-comment (TeX-in-commented-line))
+ (comment-prefix (and in-comment (TeX-comment-prefix))))
+ (skip-chars-backward "a-zA-Z \t{")
+ (unless (bolp)
+ (backward-char 1)
+ (and (looking-at regexp)
+ (char-equal (char-after (1+ (match-beginning 0))) ?b)
+ (setq level 0)))
+ (while (and (> level 0) (re-search-backward regexp nil t))
+ (when (or (and LaTeX-syntactic-comments
+ (eq in-comment (TeX-in-commented-line))
+ ;; If we are in a commented line, check if the
+ ;; prefix matches the one we started out with.
+ (or (not in-comment)
+ (string= comment-prefix (TeX-comment-prefix))))
+ (and (not LaTeX-syntactic-comments)
+ (not (TeX-in-commented-line))))
+ (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 (&optional count)
+ "Set mark to end of current environment and point to the matching begin.
+If prefix argument COUNT is given, mark the respective number of
+enclosing environments. The command will not work properly if
+there are unbalanced begin-end pairs in comments and verbatim
+environments."
+ (interactive "p")
+ (setq count (if count (abs count) 1))
+ (let ((cur (point)) beg end)
+ ;; Only change point and mark after beginning and end were found.
+ ;; Point should not end up in the middle of nowhere if the search fails.
+ (save-excursion
+ (dotimes (c count) (LaTeX-find-matching-end))
+ (setq end (line-beginning-position 2))
+ (goto-char cur)
+ (dotimes (c count) (LaTeX-find-matching-begin))
+ (setq beg (point)))
+ (set-mark end)
+ (goto-char beg)
+ (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 (&optional no-subsections)
+ "Set mark at end of current logical section, and point at top.
+If optional argument NO-SUBSECTIONS is non-nil, mark only the
+region from the current section start to the next sectioning
+command. Thereby subsections are not being marked.
+
+If the function `outline-mark-subtree' is not available,
+`LaTeX-mark-section' always behaves like this regardless of the
+value of NO-SUBSECTIONS."
+ (interactive "P")
+ (if (or no-subsections
+ (not (fboundp 'outline-mark-subtree)))
+ (progn
+ (re-search-forward (concat "\\(" (LaTeX-outline-regexp)
+ "\\|\\'\\)"))
+ (beginning-of-line)
+ (push-mark (point) nil t)
+ (re-search-backward (concat "\\(" (LaTeX-outline-regexp)
+ "\\|\\`\\)")))
+ (outline-mark-subtree)
+ (when (and (boundp 'transient-mark-mode)
+ transient-mark-mode
+ (boundp 'mark-active)
+ (not mark-active))
+ (setq mark-active t)
+ (run-hooks 'activate-mark-hook)))
+ (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)))))
+
+
+;;; Navigation
+
+(defvar LaTeX-paragraph-commands-internal
+ '("[" "]" ; display math
+ "appendix" "begin" "caption" "chapter" "end" "include" "includeonly"
+ "label" "maketitle" "noindent" "par" "paragraph" "part" "section"
+ "subsection" "subsubsection" "tableofcontents")
+ "Internal list of LaTeX macros that should have their own line.")
+
+(defun LaTeX-paragraph-commands-regexp-make ()
+ "Return a regular expression matching defined paragraph commands."
+ (concat (regexp-quote TeX-esc) "\\("
+ (regexp-opt (append LaTeX-paragraph-commands
+ LaTeX-paragraph-commands-internal)) "\\)"))
+
+(defcustom LaTeX-paragraph-commands nil
+ "List of LaTeX macros that should have their own line.
+The list should contain macro names without the leading backslash."
+ :group 'LaTeX-macro
+ :type '(repeat (string))
+ :set (lambda (symbol value)
+ (set-default symbol value)
+ (setq LaTeX-paragraph-commands-regexp
+ (LaTeX-paragraph-commands-regexp-make))))
+
+(defvar LaTeX-paragraph-commands-regexp (LaTeX-paragraph-commands-regexp-make)
+ "Regular expression matching LaTeX macros that should have their own line.")
+
+(defun LaTeX-set-paragraph-start ()
+ "Set `paragraph-start'."
+ (setq paragraph-start
+ (concat
+ "[ \t]*%*[ \t]*\\("
+ LaTeX-paragraph-commands-regexp "\\|"
+ (regexp-quote TeX-esc) "\\(" LaTeX-item-regexp "\\)\\|"
+ "\\$\\$\\|" ; Plain TeX display math (Some people actually
+ ; use this with LaTeX. Yuck.)
+ "$\\)")))
+
+(defun LaTeX-paragraph-commands-add-locally (commands)
+ "Make COMMANDS be recognized as paragraph commands.
+COMMANDS can be a single string or a list of strings which will
+be added to `LaTeX-paragraph-commands-internal'. Additionally
+`LaTeX-paragraph-commands-regexp' will be updated and both
+variables will be made buffer-local. This is mainly a
+convenience function which can be used in style files."
+ (make-local-variable 'LaTeX-paragraph-commands-internal)
+ (make-local-variable 'LaTeX-paragraph-commands-regexp)
+ (unless (listp commands) (setq commands (list commands)))
+ (dolist (elt commands)
+ (add-to-list 'LaTeX-paragraph-commands-internal elt))
+ (setq LaTeX-paragraph-commands-regexp (LaTeX-paragraph-commands-regexp-make))
+ (LaTeX-set-paragraph-start))
+
+(defun LaTeX-forward-paragraph (&optional count)
+ "Move forward to end of paragraph.
+If COUNT is non-nil, do it COUNT times."
+ (or count (setq count 1))
+ (dotimes (i count)
+ (let* ((macro-start (TeX-find-macro-start))
+ (paragraph-command-start
+ (cond
+ ;; Point is inside of a paragraph command.
+ ((and macro-start
+ (save-excursion
+ (goto-char macro-start)
+ (looking-at LaTeX-paragraph-commands-regexp)))
+ (match-beginning 0))
+ ;; Point is before a paragraph command in the same line.
+ ((looking-at
+ (concat "[ \t]*\\(?:" TeX-comment-start-regexp
+ "\\(?:" TeX-comment-start-regexp "\\|[ \t]\\)*\\)?"
+ "\\(" LaTeX-paragraph-commands-regexp "\\)"))
+ (match-beginning 1))))
+ macro-end)
+ ;; If a paragraph command is encountered there are two cases to be
+ ;; distinguished:
+ ;; 1) If the end of the paragraph command coincides (apart from
+ ;; potential whitespace) with the end of the line, is only
+ ;; followed by a comment or is directly followed by a macro,
+ ;; it is assumed that it should be handled separately.
+ ;; 2) If the end of the paragraph command is followed by other
+ ;; code, it is assumed that it should be included with the rest
+ ;; of the paragraph.
+ (if (and paragraph-command-start
+ (save-excursion
+ (goto-char paragraph-command-start)
+ (setq macro-end (goto-char (TeX-find-macro-end)))
+ (looking-at (concat (regexp-quote TeX-esc) "[@A-Za-z]+\\|"
+ "[ \t]*\\($\\|"
+ TeX-comment-start-regexp "\\)"))))
+ (progn
+ (goto-char macro-end)
+ ;; If the paragraph command is followed directly by
+ ;; another macro, regard the latter as part of the
+ ;; paragraph command's paragraph.
+ (when (looking-at (concat (regexp-quote TeX-esc) "[@A-Za-z]+"))
+ (goto-char (TeX-find-macro-end)))
+ (forward-line))
+ (let (limit)
+ (goto-char (min (save-excursion
+ (forward-paragraph)
+ (setq limit (point)))
+ (save-excursion
+ (TeX-forward-comment-skip 1 limit)
+ (point)))))))))
+
+(defun LaTeX-backward-paragraph (&optional count)
+ "Move backward to beginning of paragraph.
+If COUNT is non-nil, do it COUNT times."
+ (or count (setq count 1))
+ (dotimes (i count)
+ (let* ((macro-start (TeX-find-macro-start)))
+ (if (and macro-start
+ ;; Point really has to be inside of the macro, not before it.
+ (not (= macro-start (point)))
+ (save-excursion
+ (goto-char macro-start)
+ (looking-at LaTeX-paragraph-commands-regexp)))
+ ;; Point is inside of a paragraph command.
+ (progn
+ (goto-char macro-start)
+ (beginning-of-line))
+ (let (limit
+ (start (line-beginning-position)))
+ (goto-char
+ (max (save-excursion
+ (backward-paragraph)
+ (setq limit (point)))
+ ;; Search for possible transitions from commented to
+ ;; uncommented regions and vice versa.
+ (save-excursion
+ (TeX-backward-comment-skip 1 limit)
+ (point))
+ ;; Search for paragraph commands.
+ (save-excursion
+ (let ((end-point 0) macro-bol)
+ (when (setq macro-bol
+ (re-search-backward
+ (format "^[ \t]*%s*[ \t]*\\(%s\\)"
+ TeX-comment-start-regexp
+ LaTeX-paragraph-commands-regexp)
+ limit t))
+ (if (and (string= (match-string 1) "\\begin")
+ (progn
+ (goto-char (match-end 1))
+ (skip-chars-forward "{ \t")
+ (member (buffer-substring-no-properties
+ (point) (progn (skip-chars-forward
+ "A-Za-z*") (point)))
+ LaTeX-verbatim-environments)))
+ ;; If inside a verbatim environment, just
+ ;; use the next line. In such environments
+ ;; `TeX-find-macro-end' could otherwise
+ ;; think brackets or braces belong to the
+ ;; \begin macro.
+ (setq end-point (line-beginning-position 2))
+ ;; Jump to the macro end otherwise.
+ (goto-char (match-beginning 1))
+ (goto-char (TeX-find-macro-end))
+ ;; For an explanation of this distinction see
+ ;; `LaTeX-forward-paragraph'.
+ (if (looking-at (concat (regexp-quote TeX-esc)
+ "[@A-Za-z]+\\|[ \t]*\\($\\|"
+ TeX-comment-start-regexp "\\)"))
+ (progn
+ (when (string= (buffer-substring-no-properties
+ (point) (+ (point)
+ (length TeX-esc)))
+ TeX-esc)
+ (goto-char (TeX-find-macro-end)))
+ (forward-line 1)
+ (when (< (point) start)
+ (setq end-point (point))))
+ (setq end-point macro-bol))))
+ end-point)))))))))
+
+(defun LaTeX-search-forward-comment-start (&optional limit)
+ "Search forward for a comment start from current position till LIMIT.
+If LIMIT is omitted, search till the end of the buffer.
+
+This function makes sure that any comment starters found inside
+of verbatim constructs are not considered."
+ (setq limit (or limit (point-max)))
+ (save-excursion
+ (let (start)
+ (catch 'found
+ (while (progn
+ (when (and (TeX-re-search-forward-unescaped
+ TeX-comment-start-regexp limit 'move)
+ (not (LaTeX-verbatim-p)))
+ (setq start (match-beginning 0))
+ (throw 'found t))
+ (< (point) limit))))
+ start)))
+
+
+;;; Math Minor Mode
+
+(defgroup LaTeX-math nil
+ "Mathematics in AUCTeX."
+ :group 'LaTeX-macro)
+
+(defcustom LaTeX-math-list nil
+ "Alist of your personal LaTeX math symbols.
+
+Each entry should be a list with up to four elements, KEY, VALUE,
+MENU and CHARACTER.
+
+KEY is the key (after `LaTeX-math-abbrev-prefix') to be redefined
+in math minor mode. If KEY is nil, the symbol has no associated
+keystroke \(it is available in the menu, though\).
+
+VALUE can be a string with the name of the macro to be inserted,
+or a function to be called. The macro must be given without the
+leading backslash.
+
+The third element MENU is the name of the submenu where the
+command should be added. MENU can be either a string
+\(e.g. \"greek\"\), a list (e.g. \(\"AMS\" \"Delimiters\"\)\) or
+nil. If MENU is nil, no menu item will be created.
+
+The fourth element CHARACTER is a Unicode character position for
+menu display. When nil, no character is shown.
+
+See also `LaTeX-math-menu'."
+ :group 'LaTeX-math
+ :type '(repeat (group (choice :tag "Key"
+ (const :tag "none" nil)
+ (choice (character)
+ (string :tag "Key sequence")))
+ (choice :tag "Value"
+ (string :tag "Macro")
+ (function))
+ (choice :tag "Menu"
+ (string :tag "Top level menu" )
+ (repeat :tag "Submenu"
+ (string :tag "Menu")))
+ (choice :tag "Unicode character"
+ (const :tag "none" nil)
+ (integer :tag "Number")))))
+
+(defconst LaTeX-math-default
+ '((?a "alpha" "Greek Lowercase" 945) ;; #X03B1
+ (?b "beta" "Greek Lowercase" 946) ;; #X03B2
+ (?g "gamma" "Greek Lowercase" 947) ;; #X03B3
+ (?d "delta" "Greek Lowercase" 948) ;; #X03B4
+ (?e "epsilon" "Greek Lowercase" 1013) ;; #X03F5
+ (?z "zeta" "Greek Lowercase" 950) ;; #X03B6
+ (?h "eta" "Greek Lowercase" 951) ;; #X03B7
+ (?j "theta" "Greek Lowercase" 952) ;; #X03B8
+ (nil "iota" "Greek Lowercase" 953) ;; #X03B9
+ (?k "kappa" "Greek Lowercase" 954) ;; #X03BA
+ (?l "lambda" "Greek Lowercase" 955) ;; #X03BB
+ (?m "mu" "Greek Lowercase" 956) ;; #X03BC
+ (?n "nu" "Greek Lowercase" 957) ;; #X03BD
+ (?x "xi" "Greek Lowercase" 958) ;; #X03BE
+ (?p "pi" "Greek Lowercase" 960) ;; #X03C0
+ (?r "rho" "Greek Lowercase" 961) ;; #X03C1
+ (?s "sigma" "Greek Lowercase" 963) ;; #X03C3
+ (?t "tau" "Greek Lowercase" 964) ;; #X03C4
+ (?u "upsilon" "Greek Lowercase" 965) ;; #X03C5
+ (?f "phi" "Greek Lowercase" 981) ;; #X03D5
+ (?q "chi" "Greek Lowercase" 967) ;; #X03C7
+ (?y "psi" "Greek Lowercase" 968) ;; #X03C8
+ (?w "omega" "Greek Lowercase" 969) ;; #X03C9
+ ("v e" "varepsilon" "Greek Lowercase" 949) ;; #X03B5
+ ("v j" "vartheta" "Greek Lowercase" 977) ;; #X03D1
+ ("v p" "varpi" "Greek Lowercase" 982) ;; #X03D6
+ ("v r" "varrho" "Greek Lowercase" 1009) ;; #X03F1
+ ("v s" "varsigma" "Greek Lowercase" 962) ;; #X03C2
+ ("v f" "varphi" "Greek Lowercase" 966) ;; #X03C6
+ (?G "Gamma" "Greek Uppercase" 915) ;; #X0393
+ (?D "Delta" "Greek Uppercase" 916) ;; #X0394
+ (?J "Theta" "Greek Uppercase" 920) ;; #X0398
+ (?L "Lambda" "Greek Uppercase" 923) ;; #X039B
+ (?X "Xi" "Greek Uppercase" 926) ;; #X039E
+ (?P "Pi" "Greek Uppercase" 928) ;; #X03A0
+ (?S "Sigma" "Greek Uppercase" 931) ;; #X03A3
+ (?U "Upsilon" "Greek Uppercase" 978) ;; #X03D2
+ (?F "Phi" "Greek Uppercase" 934) ;; #X03A6
+ (?Y "Psi" "Greek Uppercase" 936) ;; #X03A8
+ (?W "Omega" "Greek Uppercase" 937) ;; #X03A9
+ (?c LaTeX-math-cal "Cal-whatever")
+ (nil "pm" "Binary Op" 177) ;; #X00B1
+ (nil "mp" "Binary Op" 8723) ;; #X2213
+ (?* "times" "Binary Op" 215) ;; #X00D7
+ (nil "div" "Binary Op" 247) ;; #X00F7
+ (nil "ast" "Binary Op" 8727) ;; #X2217
+ (nil "star" "Binary Op" 8902) ;; #X22C6
+ (nil "circ" "Binary Op" 8728) ;; #X2218
+ (nil "bullet" "Binary Op" 8729) ;; #X2219
+ (?. "cdot" "Binary Op" 8901) ;; #X22C5
+ (?- "cap" "Binary Op" 8745) ;; #X2229
+ (?+ "cup" "Binary Op" 8746) ;; #X222A
+ (nil "uplus" "Binary Op" 8846) ;; #X228E
+ (nil "sqcap" "Binary Op" 8851) ;; #X2293
+ (?| "vee" "Binary Op" 8744) ;; #X2228
+ (?& "wedge" "Binary Op" 8743) ;; #X2227
+ (?\\ "setminus" "Binary Op" 8726) ;; #X2216
+ (nil "wr" "Binary Op" 8768) ;; #X2240
+ (nil "diamond" "Binary Op" 8900) ;; #X22C4
+ (nil "bigtriangleup" "Binary Op" 9651) ;; #X25B3
+ (nil "bigtriangledown" "Binary Op" 9661) ;; #X25BD
+ (nil "triangleleft" "Binary Op" 9665) ;; #X25C1
+ (nil "triangleright" "Binary Op" 9655) ;; #X25B7
+ (nil "lhd" "Binary Op")
+ (nil "rhd" "Binary Op")
+ (nil "unlhd" "Binary Op")
+ (nil "unrhd" "Binary Op")
+ (nil "oplus" "Binary Op" 8853) ;; #X2295
+ (nil "ominus" "Binary Op" 8854) ;; #X2296
+ (nil "otimes" "Binary Op" 8855) ;; #X2297
+ (nil "oslash" "Binary Op" 8709) ;; #X2205
+ (nil "odot" "Binary Op" 8857) ;; #X2299
+ (nil "bigcirc" "Binary Op" 9675) ;; #X25CB
+ (nil "dagger" "Binary Op" 8224) ;; #X2020
+ (nil "ddagger" "Binary Op" 8225) ;; #X2021
+ (nil "amalg" "Binary Op" 10815) ;; #X2A3F
+ (?< "leq" "Relational" 8804) ;; #X2264
+ (?> "geq" "Relational" 8805) ;; #X2265
+ (nil "qed" "Relational" 8718) ;; #X220E
+ (nil "equiv" "Relational" 8801) ;; #X2261
+ (nil "models" "Relational" 8871) ;; #X22A7
+ (nil "prec" "Relational" 8826) ;; #X227A
+ (nil "succ" "Relational" 8827) ;; #X227B
+ (nil "sim" "Relational" 8764) ;; #X223C
+ (nil "perp" "Relational" 10178) ;; #X27C2
+ (nil "preceq" "Relational" 10927) ;; #X2AAF
+ (nil "succeq" "Relational" 10928) ;; #X2AB0
+ (nil "simeq" "Relational" 8771) ;; #X2243
+ (nil "mid" "Relational" 8739) ;; #X2223
+ (nil "ll" "Relational" 8810) ;; #X226A
+ (nil "gg" "Relational" 8811) ;; #X226B
+ (nil "asymp" "Relational" 8781) ;; #X224D
+ (nil "parallel" "Relational" 8741) ;; #X2225
+ (?\{ "subset" "Relational" 8834) ;; #X2282
+ (?\} "supset" "Relational" 8835) ;; #X2283
+ (nil "approx" "Relational" 8776) ;; #X2248
+ (nil "bowtie" "Relational" 8904) ;; #X22C8
+ (?\[ "subseteq" "Relational" 8838) ;; #X2286
+ (?\] "supseteq" "Relational" 8839) ;; #X2287
+ (nil "cong" "Relational" 8773) ;; #X2245
+ (nil "Join" "Relational" 10781) ;; #X2A1D
+ (nil "sqsubset" "Relational" 8847) ;; #X228F
+ (nil "sqsupset" "Relational" 8848) ;; #X2290
+ (nil "neq" "Relational" 8800) ;; #X2260
+ (nil "smile" "Relational" 8995) ;; #X2323
+ (nil "sqsubseteq" "Relational" 8849) ;; #X2291
+ (nil "sqsupseteq" "Relational" 8850) ;; #X2292
+ (nil "doteq" "Relational" 8784) ;; #X2250
+ (nil "frown" "Relational" 8994) ;; #X2322
+ (?i "in" "Relational" 8712) ;; #X2208
+ (nil "ni" "Relational" 8715) ;; #X220B
+ (nil "propto" "Relational" 8733) ;; #X221D
+ (nil "vdash" "Relational" 8866) ;; #X22A2
+ (nil "dashv" "Relational" 8867) ;; #X22A3
+ (?\C-b "leftarrow" "Arrows" 8592) ;; #X2190
+ (nil "Leftarrow" "Arrows" 8656) ;; #X21D0
+ (?\C-f "rightarrow" "Arrows" 8594) ;; #X2192
+ (nil "Rightarrow" "Arrows" 8658) ;; #X21D2
+ (nil "leftrightarrow" "Arrows" 8596) ;; #X2194
+ (nil "Leftrightarrow" "Arrows" 8660) ;; #X21D4
+ (nil "mapsto" "Arrows" 8614) ;; #X21A6
+ (nil "hookleftarrow" "Arrows" 8617) ;; #X21A9
+ (nil "leftharpoonup" "Arrows" 8636) ;; #X21BC
+ (nil "leftharpoondown" "Arrows" 8637) ;; #X21BD
+ (nil "longleftarrow" "Arrows" 10229) ;; #X27F5
+ (nil "Longleftarrow" "Arrows" 10232) ;; #X27F8
+ (nil "longrightarrow" "Arrows" 10230) ;; #X27F6
+ (nil "Longrightarrow" "Arrows" 10233) ;; #X27F9
+ (nil "longleftrightarrow" "Arrows" 10231) ;; #X27F7
+ (nil "Longleftrightarrow" "Arrows" 10234) ;; #X27FA
+ (nil "longmapsto" "Arrows" 10236) ;; #X27FC
+ (nil "hookrightarrow" "Arrows" 8618) ;; #X21AA
+ (nil "rightharpoonup" "Arrows" 8640) ;; #X21C0
+ (nil "rightharpoondown" "Arrows" 8641) ;; #X21C1
+ (?\C-p "uparrow" "Arrows" 8593) ;; #X2191
+ (nil "Uparrow" "Arrows" 8657) ;; #X21D1
+ (?\C-n "downarrow" "Arrows" 8595) ;; #X2193
+ (nil "Downarrow" "Arrows" 8659) ;; #X21D3
+ (nil "updownarrow" "Arrows" 8597) ;; #X2195
+ (nil "Updownarrow" "Arrows" 8661) ;; #X21D5
+ (nil "nearrow" "Arrows" 8599) ;; #X2197
+ (nil "searrow" "Arrows" 8600) ;; #X2198
+ (nil "swarrow" "Arrows" 8601) ;; #X2199
+ (nil "nwarrow" "Arrows" 8598) ;; #X2196
+ (nil "ldots" "Punctuation" 8230) ;; #X2026
+ (nil "cdots" "Punctuation" 8943) ;; #X22EF
+ (nil "vdots" "Punctuation" 8942) ;; #X22EE
+ (nil "ddots" "Punctuation" 8945) ;; #X22F1
+ (?: "colon" "Punctuation" 58) ;; #X003A
+ (?N "nabla" "Misc Symbol" 8711) ;; #X2207
+ (nil "aleph" "Misc Symbol" 8501) ;; #X2135
+ (nil "prime" "Misc Symbol" 8242) ;; #X2032
+ (?A "forall" "Misc Symbol" 8704) ;; #X2200
+ (?I "infty" "Misc Symbol" 8734) ;; #X221E
+ (nil "hbar" "Misc Symbol" 8463) ;; #X210F
+ (?0 "emptyset" "Misc Symbol" 8709) ;; #X2205
+ (?E "exists" "Misc Symbol" 8707) ;; #X2203
+ (nil "surd" "Misc Symbol" 8730) ;; #X221A
+ (nil "Box" "Misc Symbol")
+ (nil "triangle" "Misc Symbol" 9651) ;; #X25B3
+ (nil "Diamond" "Misc Symbol")
+ (nil "imath" "Misc Symbol" 305) ;; #X0131
+ (nil "jmath" "Misc Symbol" 120485) ;; #X1D6A5
+ (nil "ell" "Misc Symbol" 8467) ;; #X2113
+ (nil "neg" "Misc Symbol" 172) ;; #X00AC
+ (?/ "not" "Misc Symbol" 824) ;; #X0338
+ (nil "top" "Misc Symbol" 8868) ;; #X22A4
+ (nil "flat" "Misc Symbol" 9837) ;; #X266D
+ (nil "natural" "Misc Symbol" 9838) ;; #X266E
+ (nil "sharp" "Misc Symbol" 9839) ;; #X266F
+ (nil "wp" "Misc Symbol" 8472) ;; #X2118
+ (nil "bot" "Misc Symbol" 8869) ;; #X22A5
+ (nil "clubsuit" "Misc Symbol" 9827) ;; #X2663
+ (nil "diamondsuit" "Misc Symbol" 9826) ;; #X2662
+ (nil "heartsuit" "Misc Symbol" 9825) ;; #X2661
+ (nil "spadesuit" "Misc Symbol" 9824) ;; #X2660
+ (nil "mho" "Misc Symbol" 8487) ;; #X2127
+ (nil "Re" "Misc Symbol" 8476) ;; #X211C
+ (nil "Im" "Misc Symbol" 8465) ;; #X2111
+ (nil "angle" "Misc Symbol" 8736) ;; #X2220
+ (nil "partial" "Misc Symbol" 8706) ;; #X2202
+ (nil "sum" "Var Symbol" 8721) ;; #X2211
+ (nil "prod" "Var Symbol" 8719) ;; #X220F
+ (nil "coprod" "Var Symbol" 8720) ;; #X2210
+ (nil "int" "Var Symbol" 8747) ;; #X222B
+ (nil "oint" "Var Symbol" 8750) ;; #X222E
+ (nil "bigcap" "Var Symbol" 8898) ;; #X22C2
+ (nil "bigcup" "Var Symbol" 8899) ;; #X22C3
+ (nil "bigsqcup" "Var Symbol" 10758) ;; #X2A06
+ (nil "bigvee" "Var Symbol" 8897) ;; #X22C1
+ (nil "bigwedge" "Var Symbol" 8896) ;; #X22C0
+ (nil "bigodot" "Var Symbol" 10752) ;; #X2A00
+ (nil "bigotimes" "Var Symbol" 10754) ;; #X2A02
+ (nil "bigoplus" "Var Symbol" 10753) ;; #X2A01
+ (nil "biguplus" "Var Symbol" 10756) ;; #X2A04
+ (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 "{" "Delimiters")
+ (nil "}" "Delimiters")
+ (nil "lfloor" "Delimiters" 8970) ;; #X230A
+ (nil "rfloor" "Delimiters" 8971) ;; #X230B
+ (nil "lceil" "Delimiters" 8968) ;; #X2308
+ (nil "rceil" "Delimiters" 8969) ;; #X2309
+ (?\( "langle" "Delimiters" 10216) ;; #X27E8
+ (?\) "rangle" "Delimiters" 10217) ;; #X27E9
+ (nil "rmoustache" "Delimiters" 9137) ;; #X23B1
+ (nil "lmoustache" "Delimiters" 9136) ;; #X23B0
+ (nil "rgroup" "Delimiters")
+ (nil "lgroup" "Delimiters")
+ (nil "backslash" "Delimiters" 92) ;; #X005C
+ (nil "|" "Delimiters")
+ (nil "arrowvert" "Delimiters")
+ (nil "Arrowvert" "Delimiters")
+ (nil "bracevert" "Delimiters")
+ (nil "widetilde" "Constructs" 771) ;; #X0303
+ (nil "widehat" "Constructs" 770) ;; #X0302
+ (nil "overleftarrow" "Constructs" 8406) ;; #X20D6
+ (nil "overrightarrow" "Constructs")
+ (nil "overline" "Constructs")
+ (nil "underline" "Constructs")
+ (nil "overbrace" "Constructs" 65079) ;; #XFE37
+ (nil "underbrace" "Constructs" 65080) ;; #XFE38
+ (nil "sqrt" "Constructs" 8730) ;; #X221A
+ (nil "frac" "Constructs")
+ (?^ "hat" "Accents" 770) ;; #X0302
+ (nil "acute" "Accents" 769) ;; #X0301
+ (nil "bar" "Accents" 772) ;; #X0304
+ (nil "dot" "Accents" 775) ;; #X0307
+ (nil "breve" "Accents" 774) ;; #X0306
+ (nil "check" "Accents" 780) ;; #X030C
+ (nil "grave" "Accents" 768) ;; #X0300
+ (nil "vec" "Accents" 8407) ;; #X20D7
+ (nil "ddot" "Accents" 776) ;; #X0308
+ (?~ "tilde" "Accents" 771) ;; #X0303
+ (nil "digamma" ("AMS" "Hebrew") 989) ;; #X03DD
+ (nil "varkappa" ("AMS" "Hebrew") 1008) ;; #X03F0
+ (nil "beth" ("AMS" "Hebrew") 8502) ;; #X2136
+ (nil "daleth" ("AMS" "Hebrew") 8504) ;; #X2138
+ (nil "gimel" ("AMS" "Hebrew") 8503) ;; #X2137
+ ("v G" "varGamma" ("AMS" "Greek Uppercase"))
+ ("v D" "varDelta" ("AMS" "Greek Uppercase"))
+ ("v J" "varTheta" ("AMS" "Greek Uppercase"))
+ ("v L" "varLambda" ("AMS" "Greek Uppercase"))
+ ("v X" "varXi" ("AMS" "Greek Uppercase"))
+ ("v P" "varPi" ("AMS" "Greek Uppercase"))
+ ("v S" "varSigma" ("AMS" "Greek Uppercase"))
+ ("v U" "varUpsilon" ("AMS" "Greek Uppercase"))
+ ("v F" "varPhi" ("AMS" "Greek Uppercase"))
+ ("v Y" "varPsi" ("AMS" "Greek Uppercase"))
+ ("v W" "varOmega" ("AMS" "Greek Uppercase"))
+ (nil "dashrightarrow" ("AMS" "Arrows"))
+ (nil "dashleftarrow" ("AMS" "Arrows"))
+ (nil "leftleftarrows" ("AMS" "Arrows") 8647) ;; #X21C7
+ (nil "leftrightarrows" ("AMS" "Arrows") 8646) ;; #X21C6
+ (nil "Lleftarrow" ("AMS" "Arrows") 8666) ;; #X21DA
+ (nil "twoheadleftarrow" ("AMS" "Arrows") 8606) ;; #X219E
+ (nil "leftarrowtail" ("AMS" "Arrows") 8610) ;; #X21A2
+ (nil "looparrowleft" ("AMS" "Arrows") 8619) ;; #X21AB
+ (nil "leftrightharpoons" ("AMS" "Arrows") 8651) ;; #X21CB
+ (nil "curvearrowleft" ("AMS" "Arrows") 8630) ;; #X21B6
+ (nil "circlearrowleft" ("AMS" "Arrows"))
+ (nil "Lsh" ("AMS" "Arrows") 8624) ;; #X21B0
+ (nil "upuparrows" ("AMS" "Arrows") 8648) ;; #X21C8
+ (nil "upharpoonleft" ("AMS" "Arrows") 8639) ;; #X21BF
+ (nil "downharpoonleft" ("AMS" "Arrows") 8643) ;; #X21C3
+ (nil "multimap" ("AMS" "Arrows") 8888) ;; #X22B8
+ (nil "leftrightsquigarrow" ("AMS" "Arrows") 8621) ;; #X21AD
+ (nil "looparrowright" ("AMS" "Arrows") 8620) ;; #X21AC
+ (nil "rightleftharpoons" ("AMS" "Arrows") 8652) ;; #X21CC
+ (nil "curvearrowright" ("AMS" "Arrows") 8631) ;; #X21B7
+ (nil "circlearrowright" ("AMS" "Arrows"))
+ (nil "Rsh" ("AMS" "Arrows") 8625) ;; #X21B1
+ (nil "downdownarrows" ("AMS" "Arrows") 8650) ;; #X21CA
+ (nil "upharpoonright" ("AMS" "Arrows") 8638) ;; #X21BE
+ (nil "downharpoonright" ("AMS" "Arrows") 8642) ;; #X21C2
+ (nil "rightsquigarrow" ("AMS" "Arrows") 8605) ;; #X219D
+ (nil "nleftarrow" ("AMS" "Neg Arrows") 8602) ;; #X219A
+ (nil "nrightarrow" ("AMS" "Neg Arrows") 8603) ;; #X219B
+ (nil "nLeftarrow" ("AMS" "Neg Arrows") 8653) ;; #X21CD
+ (nil "nRightarrow" ("AMS" "Neg Arrows") 8655) ;; #X21CF
+ (nil "nleftrightarrow" ("AMS" "Neg Arrows") 8622) ;; #X21AE
+ (nil "nLeftrightarrow" ("AMS" "Neg Arrows") 8654) ;; #X21CE
+ (nil "leqq" ("AMS" "Relational I") 8806) ;; #X2266
+ (nil "leqslant" ("AMS" "Relational I") 10877) ;; #X2A7D
+ (nil "eqslantless" ("AMS" "Relational I") 10901) ;; #X2A95
+ (nil "lesssim" ("AMS" "Relational I") 8818) ;; #X2272
+ (nil "lessapprox" ("AMS" "Relational I") 10885) ;; #X2A85
+ (nil "approxeq" ("AMS" "Relational I") 8778) ;; #X224A
+ (nil "lessdot" ("AMS" "Relational I") 8918) ;; #X22D6
+ (nil "lll" ("AMS" "Relational I") 8920) ;; #X22D8
+ (nil "lessgtr" ("AMS" "Relational I") 8822) ;; #X2276
+ (nil "lesseqgtr" ("AMS" "Relational I") 8922) ;; #X22DA
+ (nil "lesseqqgtr" ("AMS" "Relational I") 10891) ;; #X2A8B
+ (nil "doteqdot" ("AMS" "Relational I"))
+ (nil "risingdotseq" ("AMS" "Relational I") 8787) ;; #X2253
+ (nil "fallingdotseq" ("AMS" "Relational I") 8786) ;; #X2252
+ (nil "backsim" ("AMS" "Relational I") 8765) ;; #X223D
+ (nil "backsimeq" ("AMS" "Relational I") 8909) ;; #X22CD
+ (nil "subseteqq" ("AMS" "Relational I") 10949) ;; #X2AC5
+ (nil "Subset" ("AMS" "Relational I") 8912) ;; #X22D0
+ (nil "sqsubset" ("AMS" "Relational I") 8847) ;; #X228F
+ (nil "preccurlyeq" ("AMS" "Relational I") 8828) ;; #X227C
+ (nil "curlyeqprec" ("AMS" "Relational I") 8926) ;; #X22DE
+ (nil "precsim" ("AMS" "Relational I") 8830) ;; #X227E
+ (nil "precapprox" ("AMS" "Relational I") 10935) ;; #X2AB7
+ (nil "vartriangleleft" ("AMS" "Relational I") 8882) ;; #X22B2
+ (nil "trianglelefteq" ("AMS" "Relational I") 8884) ;; #X22B4
+ (nil "vDash" ("AMS" "Relational I") 8872) ;; #X22A8
+ (nil "Vvdash" ("AMS" "Relational I") 8874) ;; #X22AA
+ (nil "smallsmile" ("AMS" "Relational I") 8995) ;; #X2323
+ (nil "smallfrown" ("AMS" "Relational I") 8994) ;; #X2322
+ (nil "bumpeq" ("AMS" "Relational I") 8783) ;; #X224F
+ (nil "Bumpeq" ("AMS" "Relational I") 8782) ;; #X224E
+ (nil "geqq" ("AMS" "Relational II") 8807) ;; #X2267
+ (nil "geqslant" ("AMS" "Relational II") 10878) ;; #X2A7E
+ (nil "eqslantgtr" ("AMS" "Relational II") 10902) ;; #X2A96
+ (nil "gtrsim" ("AMS" "Relational II") 8819) ;; #X2273
+ (nil "gtrapprox" ("AMS" "Relational II") 10886) ;; #X2A86
+ (nil "gtrdot" ("AMS" "Relational II") 8919) ;; #X22D7
+ (nil "ggg" ("AMS" "Relational II") 8921) ;; #X22D9
+ (nil "gtrless" ("AMS" "Relational II") 8823) ;; #X2277
+ (nil "gtreqless" ("AMS" "Relational II") 8923) ;; #X22DB
+ (nil "gtreqqless" ("AMS" "Relational II") 10892) ;; #X2A8C
+ (nil "eqcirc" ("AMS" "Relational II") 8790) ;; #X2256
+ (nil "circeq" ("AMS" "Relational II") 8791) ;; #X2257
+ (nil "triangleq" ("AMS" "Relational II") 8796) ;; #X225C
+ (nil "thicksim" ("AMS" "Relational II") 8764) ;; #X223C
+ (nil "thickapprox" ("AMS" "Relational II") 8776) ;; #X2248
+ (nil "supseteqq" ("AMS" "Relational II") 10950) ;; #X2AC6
+ (nil "Supset" ("AMS" "Relational II") 8913) ;; #X22D1
+ (nil "sqsupset" ("AMS" "Relational II") 8848) ;; #X2290
+ (nil "succcurlyeq" ("AMS" "Relational II") 8829) ;; #X227D
+ (nil "curlyeqsucc" ("AMS" "Relational II") 8927) ;; #X22DF
+ (nil "succsim" ("AMS" "Relational II") 8831) ;; #X227F
+ (nil "succapprox" ("AMS" "Relational II") 10936) ;; #X2AB8
+ (nil "vartriangleright" ("AMS" "Relational II") 8883) ;; #X22B3
+ (nil "trianglerighteq" ("AMS" "Relational II") 8885) ;; #X22B5
+ (nil "Vdash" ("AMS" "Relational II") 8873) ;; #X22A9
+ (nil "shortmid" ("AMS" "Relational II") 8739) ;; #X2223
+ (nil "shortparallel" ("AMS" "Relational II") 8741) ;; #X2225
+ (nil "between" ("AMS" "Relational II") 8812) ;; #X226C
+ (nil "pitchfork" ("AMS" "Relational II") 8916) ;; #X22D4
+ (nil "varpropto" ("AMS" "Relational II") 8733) ;; #X221D
+ (nil "blacktriangleleft" ("AMS" "Relational II") 9664) ;; #X25C0
+ (nil "therefore" ("AMS" "Relational II") 8756) ;; #X2234
+ (nil "backepsilon" ("AMS" "Relational II") 1014) ;; #X03F6
+ (nil "blacktriangleright" ("AMS" "Relational II") 9654) ;; #X25B6
+ (nil "because" ("AMS" "Relational II") 8757) ;; #X2235
+ (nil "nless" ("AMS" "Neg Rel I") 8814) ;; #X226E
+ (nil "nleq" ("AMS" "Neg Rel I") 8816) ;; #X2270
+ (nil "nleqslant" ("AMS" "Neg Rel I"))
+ (nil "nleqq" ("AMS" "Neg Rel I"))
+ (nil "lneq" ("AMS" "Neg Rel I") 10887) ;; #X2A87
+ (nil "lneqq" ("AMS" "Neg Rel I") 8808) ;; #X2268
+ (nil "lvertneqq" ("AMS" "Neg Rel I"))
+ (nil "lnsim" ("AMS" "Neg Rel I") 8934) ;; #X22E6
+ (nil "lnapprox" ("AMS" "Neg Rel I") 10889) ;; #X2A89
+ (nil "nprec" ("AMS" "Neg Rel I") 8832) ;; #X2280
+ (nil "npreceq" ("AMS" "Neg Rel I"))
+ (nil "precnsim" ("AMS" "Neg Rel I") 8936) ;; #X22E8
+ (nil "precnapprox" ("AMS" "Neg Rel I") 10937) ;; #X2AB9
+ (nil "nsim" ("AMS" "Neg Rel I") 8769) ;; #X2241
+ (nil "nshortmid" ("AMS" "Neg Rel I") 8740) ;; #X2224
+ (nil "nmid" ("AMS" "Neg Rel I") 8740) ;; #X2224
+ (nil "nvdash" ("AMS" "Neg Rel I") 8876) ;; #X22AC
+ (nil "nvDash" ("AMS" "Neg Rel I") 8877) ;; #X22AD
+ (nil "ntriangleleft" ("AMS" "Neg Rel I") 8938) ;; #X22EA
+ (nil "ntrianglelefteq" ("AMS" "Neg Rel I") 8940) ;; #X22EC
+ (nil "nsubseteq" ("AMS" "Neg Rel I") 8840) ;; #X2288
+ (nil "subsetneq" ("AMS" "Neg Rel I") 8842) ;; #X228A
+ (nil "varsubsetneq" ("AMS" "Neg Rel I"))
+ (nil "subsetneqq" ("AMS" "Neg Rel I") 10955) ;; #X2ACB
+ (nil "varsubsetneqq" ("AMS" "Neg Rel I"))
+ (nil "ngtr" ("AMS" "Neg Rel II") 8815) ;; #X226F
+ (nil "ngeq" ("AMS" "Neg Rel II") 8817) ;; #X2271
+ (nil "ngeqslant" ("AMS" "Neg Rel II"))
+ (nil "ngeqq" ("AMS" "Neg Rel II"))
+ (nil "gneq" ("AMS" "Neg Rel II") 10888) ;; #X2A88
+ (nil "gneqq" ("AMS" "Neg Rel II") 8809) ;; #X2269
+ (nil "gvertneqq" ("AMS" "Neg Rel II"))
+ (nil "gnsim" ("AMS" "Neg Rel II") 8935) ;; #X22E7
+ (nil "gnapprox" ("AMS" "Neg Rel II") 10890) ;; #X2A8A
+ (nil "nsucc" ("AMS" "Neg Rel II") 8833) ;; #X2281
+ (nil "nsucceq" ("AMS" "Neg Rel II"))
+ (nil "succnsim" ("AMS" "Neg Rel II") 8937) ;; #X22E9
+ (nil "succnapprox" ("AMS" "Neg Rel II") 10938) ;; #X2ABA
+ (nil "ncong" ("AMS" "Neg Rel II") 8775) ;; #X2247
+ (nil "nshortparallel" ("AMS" "Neg Rel II") 8742) ;; #X2226
+ (nil "nparallel" ("AMS" "Neg Rel II") 8742) ;; #X2226
+ (nil "nvDash" ("AMS" "Neg Rel II") 8877) ;; #X22AD
+ (nil "nVDash" ("AMS" "Neg Rel II") 8879) ;; #X22AF
+ (nil "ntriangleright" ("AMS" "Neg Rel II") 8939) ;; #X22EB
+ (nil "ntrianglerighteq" ("AMS" "Neg Rel II") 8941) ;; #X22ED
+ (nil "nsupseteq" ("AMS" "Neg Rel II") 8841) ;; #X2289
+ (nil "nsupseteqq" ("AMS" "Neg Rel II"))
+ (nil "supsetneq" ("AMS" "Neg Rel II") 8843) ;; #X228B
+ (nil "varsupsetneq" ("AMS" "Neg Rel II"))
+ (nil "supsetneqq" ("AMS" "Neg Rel II") 10956) ;; #X2ACC
+ (nil "varsupsetneqq" ("AMS" "Neg Rel II"))
+ (nil "dotplus" ("AMS" "Binary Op") 8724) ;; #X2214
+ (nil "smallsetminus" ("AMS" "Binary Op") 8726) ;; #X2216
+ (nil "Cap" ("AMS" "Binary Op") 8914) ;; #X22D2
+ (nil "Cup" ("AMS" "Binary Op") 8915) ;; #X22D3
+ (nil "barwedge" ("AMS" "Binary Op") 8892) ;; #X22BC
+ (nil "veebar" ("AMS" "Binary Op") 8891) ;; #X22BB
+ (nil "doublebarwedge" ("AMS" "Binary Op") 8966) ;; #X2306
+ (nil "boxminus" ("AMS" "Binary Op") 8863) ;; #X229F
+ (nil "boxtimes" ("AMS" "Binary Op") 8864) ;; #X22A0
+ (nil "boxdot" ("AMS" "Binary Op") 8865) ;; #X22A1
+ (nil "boxplus" ("AMS" "Binary Op") 8862) ;; #X229E
+ (nil "divideontimes" ("AMS" "Binary Op") 8903) ;; #X22C7
+ (nil "ltimes" ("AMS" "Binary Op") 8905) ;; #X22C9
+ (nil "rtimes" ("AMS" "Binary Op") 8906) ;; #X22CA
+ (nil "leftthreetimes" ("AMS" "Binary Op") 8907) ;; #X22CB
+ (nil "rightthreetimes" ("AMS" "Binary Op") 8908) ;; #X22CC
+ (nil "curlywedge" ("AMS" "Binary Op") 8911) ;; #X22CF
+ (nil "curlyvee" ("AMS" "Binary Op") 8910) ;; #X22CE
+ (nil "circleddash" ("AMS" "Binary Op") 8861) ;; #X229D
+ (nil "circledast" ("AMS" "Binary Op") 8859) ;; #X229B
+ (nil "circledcirc" ("AMS" "Binary Op") 8858) ;; #X229A
+ (nil "centerdot" ("AMS" "Binary Op"))
+ (nil "intercal" ("AMS" "Binary Op") 8890) ;; #X22BA
+ (nil "hbar" ("AMS" "Misc") 8463) ;; #X210F
+ (nil "hslash" ("AMS" "Misc") 8463) ;; #X210F
+ (nil "vartriangle" ("AMS" "Misc") 9653) ;; #X25B5
+ (nil "triangledown" ("AMS" "Misc") 9663) ;; #X25BF
+ (nil "square" ("AMS" "Misc") 9633) ;; #X25A1
+ (nil "lozenge" ("AMS" "Misc") 9674) ;; #X25CA
+ (nil "circledS" ("AMS" "Misc") 9416) ;; #X24C8
+ (nil "angle" ("AMS" "Misc") 8736) ;; #X2220
+ (nil "measuredangle" ("AMS" "Misc") 8737) ;; #X2221
+ (nil "nexists" ("AMS" "Misc") 8708) ;; #X2204
+ (nil "mho" ("AMS" "Misc") 8487) ;; #X2127
+ (nil "Finv" ("AMS" "Misc") 8498) ;; #X2132
+ (nil "Game" ("AMS" "Misc") 8513) ;; #X2141
+ (nil "Bbbk" ("AMS" "Misc") 120156) ;; #X1D55C
+ (nil "backprime" ("AMS" "Misc") 8245) ;; #X2035
+ (nil "varnothing" ("AMS" "Misc") 8709) ;; #X2205
+ (nil "blacktriangle" ("AMS" "Misc") 9652) ;; #X25B4
+ (nil "blacktriangledown" ("AMS" "Misc") 9662) ;; #X25BE
+ (nil "blacksquare" ("AMS" "Misc") 9632) ;; #X25A0
+ (nil "blacklozenge" ("AMS" "Misc") 10731) ;; #X29EB
+ (nil "bigstar" ("AMS" "Misc") 9733) ;; #X2605
+ (nil "sphericalangle" ("AMS" "Misc") 8738) ;; #X2222
+ (nil "complement" ("AMS" "Misc") 8705) ;; #X2201
+ (nil "eth" ("AMS" "Misc") 240) ;; #X00F0
+ (nil "diagup" ("AMS" "Misc") 9585) ;; #X2571
+ (nil "diagdown" ("AMS" "Misc") 9586) ;; #X2572
+ (nil "dddot" ("AMS" "Accents") 8411) ;; #X20DB
+ (nil "ddddot" ("AMS" "Accents") 8412) ;; #X20DC
+ (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 "ulcorner" ("AMS" "Delimiters") 8988) ;; #X231C
+ (nil "urcorner" ("AMS" "Delimiters") 8989) ;; #X231D
+ (nil "llcorner" ("AMS" "Delimiters") 8990) ;; #X231E
+ (nil "lrcorner" ("AMS" "Delimiters") 8991) ;; #X231F
+ (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")))
+ "Alist of LaTeX math symbols.
+
+Each entry should be a list with upto four elements, KEY, VALUE,
+MENU and CHARACTER, see `LaTeX-math-list' for details.")
+
+(defcustom LaTeX-math-abbrev-prefix "`"
+ "Prefix key for use in `LaTeX-math-mode'.
+This has to be a string representing a key sequence in a format
+understood by the `kbd' macro. This corresponds to the syntax
+usually used in the Emacs and Elisp manuals.
+
+Setting this variable directly does not take effect;
+use \\[customize]."
+ :group 'LaTeX-math
+ :initialize 'custom-initialize-default
+ :set '(lambda (symbol value)
+ (define-key LaTeX-math-mode-map (LaTeX-math-abbrev-prefix) t)
+ (set-default symbol value)
+ (define-key LaTeX-math-mode-map
+ (LaTeX-math-abbrev-prefix) LaTeX-math-keymap))
+ :type '(string :tag "Key sequence"))
+
+(defun LaTeX-math-abbrev-prefix ()
+ "Make a key definition from the variable `LaTeX-math-abbrev-prefix'."
+ (if (stringp LaTeX-math-abbrev-prefix)
+ (read-kbd-macro LaTeX-math-abbrev-prefix)
+ LaTeX-math-abbrev-prefix))
+
+(defvar LaTeX-math-keymap
+ (let ((map (make-sparse-keymap)))
+ (define-key map (LaTeX-math-abbrev-prefix) 'self-insert-command)
+ map)
+ "Keymap used for `LaTeX-math-mode' commands.")
+
+(defvar LaTeX-math-menu
+ '("Math"
+ ("Greek Uppercase") ("Greek Lowercase") ("Binary Op") ("Relational")
+ ("Arrows") ("Punctuation") ("Misc Symbol") ("Var Symbol") ("Log-like")
+ ("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.")
+
+(defcustom LaTeX-math-menu-unicode
+ (and (string-match "\\<GTK\\>" (emacs-version)) t)
+ "Whether the LaTeX menu should try using Unicode for effect."
+ :type 'boolean
+ :group 'LaTeX-math)
+
+(let ((math (reverse (append LaTeX-math-list LaTeX-math-default)))
+ (map LaTeX-math-keymap)
+ (unicode (and LaTeX-math-menu-unicode (fboundp 'decode-char))))
+ (while math
+ (let* ((entry (car math))
+ (key (nth 0 entry))
+ (prefix
+ (and unicode
+ (nth 3 entry)))
+ value menu name)
+ (setq math (cdr math))
+ (if (and prefix
+ (setq prefix (decode-char 'ucs (nth 3 entry))))
+ (setq prefix (concat (string prefix) " \\"))
+ (setq prefix "\\"))
+ (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 (cond ((numberp key) (char-to-string key))
+ ((stringp key) (read-kbd-macro key))
+ (t (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 (concat prefix value)
+ name t)
+ (cdr sub)))
+ (error "Cannot have multiple special math menu items"))
+ (setcdr parent
+ (cons (if (stringp value)
+ (list menu (vector (concat prefix value)
+ name t))
+ (vector menu name t))
+ (cdr parent))))))))))
+
+(define-minor-mode LaTeX-math-mode
+ "A minor mode with easy access 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-mode-map}"
+ nil nil (list (cons (LaTeX-math-abbrev-prefix) LaTeX-math-keymap))
+ (if LaTeX-math-mode
+ (easy-menu-add LaTeX-math-mode-menu LaTeX-math-mode-map)
+ (easy-menu-remove LaTeX-math-mode-menu))
+ (TeX-set-mode-name))
+(defalias 'latex-math-mode 'LaTeX-math-mode)
+
+(easy-menu-define LaTeX-math-mode-menu
+ LaTeX-math-mode-map
+ "Menu used in math minor mode."
+ LaTeX-math-menu)
+
+(defcustom LaTeX-math-insert-function 'TeX-insert-macro
+ "Function called with argument STRING to insert \\STRING."
+ :group 'LaTeX-math
+ :type 'function)
+
+(defun LaTeX-math-insert (string dollar)
+ "Insert \\STRING{}. If DOLLAR is non-nil, put $'s around it."
+ (if dollar (insert "$"))
+ (funcall LaTeX-math-insert-function string)
+ (if dollar (insert "$")))
+
+(defun LaTeX-math-cal (char dollar)
+ "Insert 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 "$")))
+
+
+;;; Folding
+
+(defcustom LaTeX-fold-macro-spec-list nil
+ "List of display strings and macros to fold in LaTeX mode."
+ :type '(repeat (group (choice (string :tag "Display String")
+ (integer :tag "Number of argument" :value 1))
+ (repeat :tag "Macros" (string))))
+ :group 'TeX-fold)
+
+(defcustom LaTeX-fold-env-spec-list nil
+ "List of display strings and environments to fold in LaTeX mode."
+ :type '(repeat (group (choice (string :tag "Display String")
+ (integer :tag "Number of argument" :value 1))
+ (repeat :tag "Environments" (string))))
+ :group 'TeX-fold)
+
+(defcustom LaTeX-fold-math-spec-list
+ (delete nil
+ (mapcar (lambda (elt)
+ (let ((tex-token (nth 1 elt))
+ (submenu (nth 2 elt))
+ (unicode (nth 3 elt))
+ uchar noargp)
+ (when (and (fboundp 'decode-char) (integerp unicode))
+ (setq uchar (decode-char 'ucs unicode)))
+ (when (listp submenu) (setq submenu (nth 1 submenu)))
+ (setq noargp
+ (not (string-match
+ (concat "^" (regexp-opt '("Constructs"
+ "Accents")))
+ submenu)))
+ (when (and (stringp tex-token) (integerp uchar) noargp)
+ `(,(char-to-string uchar) (,tex-token)))))
+ `((nil "to" "" 8594)
+ (nil "gets" "" 8592)
+ ,@LaTeX-math-default)))
+ "List of display strings and math macros to fold in LaTeX mode."
+ :type '(repeat (group (choice (string :tag "Display String")
+ (integer :tag "Number of argument" :value 1))
+ (repeat :tag "Math Macros" (string))))
+ :group 'TeX-fold)
+
+
+;;; Keymap
+
+(defvar LaTeX-mode-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map TeX-mode-map)
+
+ ;; Standard
+ (define-key map "\n" 'reindent-then-newline-and-indent)
+
+ ;; From latex.el
+ ;; We now set `fill-paragraph-function' instead.
+ ;; (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)
+
+ (define-key map "\C-c~" 'LaTeX-math-mode) ;*** Dubious
+
+ (define-key map "-" 'LaTeX-babel-insert-hyphen)
+ 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))
+ (symbol (LaTeX-section-enable-symbol level)))
+ (set symbol (or (= level 0) (>= level LaTeX-largest-level)))
+ (make-variable-buffer-local symbol)))
+
+(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))))
+ (vector (car entry) (list 'LaTeX-section-menu (nth 1 entry)) enable)))
+
+(defcustom LaTeX-menu-max-items 25
+ "*Maximum number of items in the menu for LaTeX environments.
+If number of entries in a menu is larger than this value, split menu
+into submenus of nearly equal length. If nil, never split menu into
+submenus."
+ :group 'LaTeX-environment
+ :type '(choice (const :tag "no submenus" nil)
+ (integer)))
+
+(defcustom LaTeX-submenu-name-format "%-12.12s ... %.12s"
+ "*Format specification of the submenu name.
+Used by `LaTeX-split-long-menu' if the number of entries in a menu is
+larger than `LaTeX-menu-max-items'.
+This string should contain one %s for the name of the first entry and
+one %s for the name of the last entry in the submenu.
+If the value is a function, it should return the submenu name. The
+function is called with two arguments, the names of the first and
+the last entry in the menu."
+ :group 'LaTeX-environment
+ :type '(choice (string :tag "Format string")
+ (function)))
+
+(defun LaTeX-split-long-menu (menu)
+ "Split MENU according to `LaTeX-menu-max-items'."
+ (let ((len (length menu)))
+ (if (or (null LaTeX-menu-max-items)
+ (null (featurep 'lisp-float-type))
+ (<= len LaTeX-menu-max-items))
+ menu
+ ;; Submenu is max 2 entries longer than menu, never shorter, number of
+ ;; entries in submenus differ by at most one (with longer submenus first)
+ (let* ((outer (floor (sqrt len)))
+ (inner (/ len outer))
+ (rest (% len outer))
+ (result nil))
+ (setq menu (reverse menu))
+ (while menu
+ (let ((in inner)
+ (sub nil)
+ (to (car menu)))
+ (while (> in 0)
+ (setq in (1- in)
+ sub (cons (car menu) sub)
+ menu (cdr menu)))
+ (setq result
+ (cons (cons (if (stringp LaTeX-submenu-name-format)
+ (format LaTeX-submenu-name-format
+ (aref (car sub) 0) (aref to 0))
+ (funcall LaTeX-submenu-name-format
+ (aref (car sub) 0) (aref to 0)))
+ sub)
+ result)
+ rest (1+ rest))
+ (if (= rest outer) (setq inner (1+ inner)))))
+ result))))
+
+(defvar LaTeX-section-menu nil)
+(make-variable-buffer-local 'LaTeX-section-menu)
+(defun LaTeX-section-menu-filter (ignored)
+ "Filter function for the section submenu in the mode menu.
+The argument IGNORED is not used in any way."
+ (TeX-update-style)
+ (or LaTeX-section-menu
+ (progn
+ (setq LaTeX-section-list-changed nil)
+ (mapc 'LaTeX-section-enable LaTeX-section-list)
+ (setq LaTeX-section-menu
+ (mapcar 'LaTeX-section-menu-entry LaTeX-section-list)))))
+
+(defvar LaTeX-environment-menu nil)
+(make-variable-buffer-local 'LaTeX-environment-menu)
+(defvar LaTeX-environment-modify-menu nil)
+(make-variable-buffer-local 'LaTeX-environment-modify-menu)
+(defun LaTeX-environment-menu-filter (menu)
+ "Filter function for the environment submenus in the mode menu.
+The argument MENU is the name of the submenu in concern and
+corresponds to the variables `LaTeX-environment-menu-name' and
+`LaTeX-environment-modify-menu-name'."
+ (TeX-update-style)
+ (cond
+ ((string= menu LaTeX-environment-menu-name)
+ (or LaTeX-environment-menu
+ (setq LaTeX-environment-menu
+ (LaTeX-split-long-menu
+ (mapcar 'LaTeX-environment-menu-entry
+ (LaTeX-environment-list))))))
+ ((string= menu LaTeX-environment-modify-menu-name)
+ (or LaTeX-environment-modify-menu
+ (setq LaTeX-environment-modify-menu
+ (LaTeX-split-long-menu
+ (mapcar 'LaTeX-environment-modify-menu-entry
+ (LaTeX-environment-list))))))))
+
+(easy-menu-define LaTeX-mode-command-menu
+ LaTeX-mode-map
+ "Command menu used in LaTeX mode."
+ (TeX-mode-specific-command-menu 'latex-mode))
+
+(easy-menu-define LaTeX-mode-menu
+ LaTeX-mode-map
+ "Menu used in LaTeX mode."
+ (TeX-menu-with-help
+ `("LaTeX"
+ ("Section (C-c C-s)" :filter LaTeX-section-menu-filter)
+ ["Macro..." TeX-insert-macro
+ :help "Insert a macro and possibly arguments"]
+ ["Complete Macro" TeX-complete-symbol
+ :help "Complete the current macro or environment name"]
+ ,(list LaTeX-environment-menu-name
+ :filter (lambda (ignored) (LaTeX-environment-menu-filter
+ LaTeX-environment-menu-name)))
+ ,(list LaTeX-environment-modify-menu-name
+ :filter (lambda (ignored) (LaTeX-environment-menu-filter
+ LaTeX-environment-modify-menu-name)))
+ ["Close Environment" LaTeX-close-environment
+ :help "Insert the \\end part of the current environment"]
+ ["Item" LaTeX-insert-item
+ :help "Insert a new \\item into current environment"]
+ "-"
+ ("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"]
+ ["Sans Serif" (TeX-font nil ?\C-f) :keys "C-c C-f C-f"]
+ ["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"]
+ ["Calligraphic" (TeX-font nil ?\C-a) :keys "C-c C-f C-a"])
+ ("Replace 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"]
+ ["Sans Serif" (TeX-font t ?\C-f) :keys "C-u C-c C-f C-f"]
+ ["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"]
+ ["Calligraphic" (TeX-font t ?\C-a) :keys "C-u C-c C-f C-a"])
+ ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
+ "-"
+ ["Comment or Uncomment Region"
+ TeX-comment-or-uncomment-region
+ :help "Make the selected region outcommented or active again"]
+ ["Comment or Uncomment Paragraph"
+ TeX-comment-or-uncomment-paragraph
+ :help "Make the current paragraph outcommented or active again"]
+ ("Formatting and Marking"
+ ["Format Environment" LaTeX-fill-environment
+ :help "Fill and indent the current environment"]
+ ["Format Paragraph" LaTeX-fill-paragraph
+ :help "Fill and ident the current paragraph"]
+ ["Format Region" LaTeX-fill-region
+ :help "Fill and indent the currently selected region"]
+ ["Format Section" LaTeX-fill-section
+ :help "Fill and indent the current section"]
+ "-"
+ ["Mark Environment" LaTeX-mark-environment
+ :help "Mark the current environment"]
+ ["Mark Section" LaTeX-mark-section
+ :help "Mark the current section"]
+ "-"
+ ["Beginning of Environment" LaTeX-find-matching-begin
+ :help "Move point to the beginning of the current environment"]
+ ["End of Environment" LaTeX-find-matching-end
+ :help "Move point to the end of the current environment"])
+ ,TeX-fold-menu
+ ["Math Mode" LaTeX-math-mode
+ :style toggle :selected LaTeX-math-mode
+ :help "Toggle math mode"]
+ "-"
+ [ "Convert 209 to 2e" LaTeX-209-to-2e
+ :visible (member "latex2" (TeX-style-list)) ]
+ . ,TeX-common-menu-entries)))
+
+(defcustom LaTeX-font-list
+ '((?\C-a "" "" "\\mathcal{" "}")
+ (?\C-b "\\textbf{" "}" "\\mathbf{" "}")
+ (?\C-c "\\textsc{" "}")
+ (?\C-e "\\emph{" "}")
+ (?\C-f "\\textsf{" "}" "\\mathsf{" "}")
+ (?\C-i "\\textit{" "}" "\\mathit{" "}")
+ (?\C-m "\\textmd{" "}")
+ (?\C-n "\\textnormal{" "}" "\\mathnormal{" "}")
+ (?\C-r "\\textrm{" "}" "\\mathrm{" "}")
+ (?\C-s "\\textsl{" "}" "\\mathbb{" "}")
+ (?\C-t "\\texttt{" "}" "\\mathtt{" "}")
+ (?\C-u "\\textup{" "}")
+ (?\C-d "" "" t))
+ "Font commands used with LaTeX2e. See `TeX-font-list'."
+ :group 'LaTeX-macro
+ :type '(repeat
+ (group
+ :value (?\C-a "" "")
+ (character :tag "Key")
+ (string :tag "Prefix")
+ (string :tag "Suffix")
+ (option (group
+ :inline t
+ (string :tag "Math Prefix")
+ (string :tag "Math Suffix")))
+ (option (sexp :format "Replace\n" :value t)))))
+
+
+;;; Simple Commands
+
+(defcustom LaTeX-babel-hyphen "\"="
+ "String to be used when typing `-'.
+This usually is a hyphen alternative or hyphenation aid, like
+\"=, \"~ or \"-, provided by babel and the related language style
+files.
+
+Set it to an empty string or nil in order to disable this
+feature. Alter `LaTeX-babel-hyphen-language-alist' in case you
+want to change the behavior for a specific language only."
+ :group 'LaTeX-macro
+ :type 'string)
+
+(defcustom LaTeX-babel-hyphen-after-hyphen t
+ "Control insertion of hyphen strings.
+If non-nil insert normal hyphen on first key press and swap it
+with the language-specific hyphen string specified in the
+variable `LaTeX-babel-hyphen' on second key press. If nil do it
+the other way round."
+ :group 'LaTeX-macro
+ :type 'boolean)
+
+(defcustom LaTeX-babel-hyphen-language-alist nil
+ "Alist controlling hyphen insertion for specific languages.
+It may be used to override the defaults given by `LaTeX-babel-hyphen'
+and `LaTeX-babel-hyphen-after-hyphen' respectively. The first item
+in each element is a string specifying the language as set by the
+language-specific style file. The second item is the string to be
+used instead of `LaTeX-babel-hyphen'. The third element is the
+value overriding `LaTeX-bybel-hyphen-after-hyphen'."
+ :group 'LaTeX-macro
+ :type '(alist :key-type (string :tag "Language")
+ :value-type (group (string :tag "Hyphen string")
+ (boolean :tag "Insert plain hyphen first"
+ :value t))))
+
+(defvar LaTeX-babel-hyphen-language nil
+ "String determining language-specific behavior of hyphen insertion.
+It serves as an indicator that the babel hyphenation string
+should be used and as a means to find a potential customization
+in `LaTeX-babel-hyphen-language-alist' related to the active
+language. It is usually set by language-related style files.")
+(make-variable-buffer-local 'LaTeX-babel-hyphen-language)
+
+(defun LaTeX-babel-insert-hyphen (force)
+ "Insert a hyphen string.
+The string can be either a normal hyphen or the string specified
+in `LaTeX-babel-hyphen'. Wether one or the other is chosen
+depends on the value of `LaTeX-babel-hyphen-after-hyphen' and
+the buffer context.
+If prefix argument FORCE is non-nil, always insert a regular hyphen."
+ (interactive "*P")
+ (if (or force
+ (zerop (length LaTeX-babel-hyphen))
+ (not LaTeX-babel-hyphen-language)
+ ;; FIXME: It would be nice to check for verbatim constructs in the
+ ;; non-font-locking case, but things like `LaTeX-current-environment'
+ ;; are rather expensive in large buffers.
+ (and (fboundp 'font-latex-faces-present-p)
+ (font-latex-faces-present-p '(font-latex-verbatim-face
+ font-latex-math-face
+ font-lock-comment-face)))
+ (texmathp)
+ (TeX-in-comment))
+ (call-interactively 'self-insert-command)
+ (let* ((lang (assoc LaTeX-babel-hyphen-language
+ LaTeX-babel-hyphen-language-alist))
+ (hyphen (if lang (nth 1 lang) LaTeX-babel-hyphen))
+ (h-after-h (if lang (nth 2 lang) LaTeX-babel-hyphen-after-hyphen))
+ (hyphen-length (length hyphen)))
+ (cond
+ ;; "= --> -- / -
+ ((string= (buffer-substring (max (- (point) hyphen-length) (point-min))
+ (point))
+ hyphen)
+ (if h-after-h
+ (progn (delete-backward-char hyphen-length)
+ (insert "--"))
+ (delete-backward-char hyphen-length)
+ (call-interactively 'self-insert-command)))
+ ;; -- --> [+]-
+ ((string= (buffer-substring (max (- (point) 2) (point-min))
+ (point))
+ "--")
+ (call-interactively 'self-insert-command))
+ ;; - --> "= / [+]-
+ ((eq (char-before) ?-)
+ (if h-after-h
+ (progn (delete-backward-char 1)
+ (insert hyphen))
+ (call-interactively 'self-insert-command)))
+ (h-after-h
+ (call-interactively 'self-insert-command))
+ (t (insert hyphen))))))
+;; Cater for Delete Selection mode
+(put 'LaTeX-babel-insert-hyphen 'delete-selection t)
+
+(defcustom LaTeX-enable-toolbar t
+ "Enable LaTeX tool bar."
+ :group 'TeX-tool-bar
+ :type 'boolean)
+
+(defun LaTeX-maybe-install-toolbar ()
+ "Conditionally install tool bar buttons for LaTeX mode.
+Install tool bar if `LaTeX-enable-toolbar' is non-nil."
+ (when LaTeX-enable-toolbar
+ ;; Defined in `tex-bar.el':
+ (LaTeX-install-toolbar)))
+
+;;; Mode
+
+(defgroup LaTeX-macro nil
+ "Special support for LaTeX macros in AUCTeX."
+ :prefix "TeX-"
+ :group 'LaTeX
+ :group 'TeX-macro)
+
+(defcustom TeX-arg-cite-note-p nil
+ "*If non-nil, ask for optional note in citations."
+ :type 'boolean
+ :group 'LaTeX-macro)
+
+(defcustom TeX-arg-footnote-number-p nil
+ "*If non-nil, ask for optional number in footnotes."
+ :type 'boolean
+ :group 'LaTeX-macro)
+
+(defcustom TeX-arg-item-label-p nil
+ "*If non-nil, always ask for optional label in items.
+Otherwise, only ask in description environments."
+ :type 'boolean
+ :group 'LaTeX-macro)
+
+(defcustom TeX-arg-right-insert-p t
+ "*If non-nil, always insert automatically the corresponding \\right.
+This happens when \\left is inserted."
+ :type 'boolean
+ :group 'LaTeX-macro)
+
+(defcustom LaTeX-mode-hook nil
+ "A hook run in LaTeX mode buffers."
+ :type 'hook
+ :group 'LaTeX)
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.drv\\'" . latex-mode))
+
+;;;###autoload
+(defun TeX-latex-mode ()
+ "Major mode in AUCTeX for editing LaTeX files.
+See info under AUCTeX 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 TeX-base-mode-name "LaTeX")
+ (setq major-mode 'latex-mode)
+ (setq TeX-command-default "LaTeX")
+ (setq TeX-sentinel-default-function 'TeX-LaTeX-sentinel)
+ (add-hook 'tool-bar-mode-on-hook 'LaTeX-maybe-install-toolbar nil t)
+ (when (if (featurep 'xemacs)
+ (featurep 'toolbar)
+ (and (boundp 'tool-bar-mode) tool-bar-mode))
+ (LaTeX-maybe-install-toolbar))
+ (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'LaTeX-mode-hook)
+ (TeX-set-mode-name)
+ ;; Defeat filladapt
+ (if (and (boundp 'filladapt-mode)
+ filladapt-mode)
+ (turn-off-filladapt-mode)))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.dtx\\'" . doctex-mode))
+
+;;;###autoload
+(define-derived-mode docTeX-mode TeX-latex-mode "docTeX"
+ "Major mode in AUCTeX for editing .dtx files derived from `LaTeX-mode'.
+Runs `LaTeX-mode', sets a few variables and
+runs the hooks in `docTeX-mode-hook'."
+ (setq major-mode 'doctex-mode)
+ (set (make-local-variable 'LaTeX-insert-into-comments) t)
+ (set (make-local-variable 'LaTeX-syntactic-comments) t)
+ (setq TeX-default-extension docTeX-default-extension)
+ ;; Make filling and indentation aware of DocStrip guards.
+ (setq paragraph-start (concat paragraph-start "\\|%<")
+ paragraph-separate (concat paragraph-separate "\\|%<")
+ TeX-comment-start-regexp "\\(?:%\\(?:<[^>]+>\\)?\\)")
+ (setq TeX-base-mode-name "docTeX")
+ (TeX-set-mode-name)
+ (funcall TeX-install-font-lock))
+
+;;This is actually a mess: to fit the scheme properly, our derived
+;;mode definition would have had to be made for TeX-doctex-mode in the
+;;first place, but then we could not have used define-derived-mode, or
+;;all mode-specific variables would have gotten non-AUCTeX names.
+;;This solution has the advantage that documentation strings are
+;;provided in the autoloads, and has the disadvantage that docTeX-mode
+;;is not aliased to doctex-mode (not even when the AUCTeX version is
+;;disabled) as would be normal for our scheme.
+
+;;;###autoload
+(defalias 'TeX-doctex-mode 'docTeX-mode)
+
+(defcustom docTeX-clean-intermediate-suffixes
+ TeX-clean-default-intermediate-suffixes
+ "List of regexps matching suffixes of files to be deleted.
+The regexps will be anchored at the end of the file name to be matched,
+i.e. you do _not_ have to cater for this yourself by adding \\\\' or $."
+ :type '(repeat regexp)
+ :group 'TeX-command)
+
+(defcustom docTeX-clean-output-suffixes TeX-clean-default-output-suffixes
+ "List of regexps matching suffixes of files to be deleted.
+The regexps will be anchored at the end of the file name to be matched,
+i.e. you do _not_ have to cater for this yourself by adding \\\\' or $."
+ :type '(repeat regexp)
+ :group 'TeX-command)
+
+(defvar LaTeX-header-end
+ (concat "^[^%\n]*" (regexp-quote TeX-esc) "begin *"
+ TeX-grop "document" TeX-grcl)
+ "Default end of header marker for LaTeX documents.")
+
+(defvar LaTeX-trailer-start
+ (concat "^[^%\n]*" (regexp-quote TeX-esc) "end *"
+ TeX-grop "document" TeX-grcl)
+ "Default start of trailer marker for LaTeX documents.")
+
+(defcustom LaTeX-clean-intermediate-suffixes
+ TeX-clean-default-intermediate-suffixes
+ "List of regexps matching suffixes of files to be deleted.
+The regexps will be anchored at the end of the file name to be matched,
+i.e. you do _not_ have to cater for this yourself by adding \\\\' or $."
+ :type '(repeat regexp)
+ :group 'TeX-command)
+
+(defcustom LaTeX-clean-output-suffixes TeX-clean-default-output-suffixes
+ "List of regexps matching suffixes of files to be deleted.
+The regexps will be anchored at the end of the file name to be matched,
+i.e. you do _not_ have to cater for this yourself by adding \\\\' or $."
+ :type '(repeat regexp)
+ :group 'TeX-command)
+
+(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)
+
+ ;; Filling
+ (make-local-variable 'paragraph-ignore-fill-prefix)
+ (setq paragraph-ignore-fill-prefix t)
+ (make-local-variable 'fill-paragraph-function)
+ (setq fill-paragraph-function 'LaTeX-fill-paragraph)
+ (make-local-variable 'adaptive-fill-mode)
+ (setq adaptive-fill-mode nil)
+
+ (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))
+ (when (boundp 'outline-heading-alist)
+ (setq outline-heading-alist
+ (mapcar (lambda (x)
+ (cons (concat "\\" (nth 0 x)) (nth 1 x)))
+ LaTeX-section-list)))
+
+ (make-local-variable 'TeX-auto-full-regexp-list)
+ (setq TeX-auto-full-regexp-list
+ (append LaTeX-auto-regexp-list plain-TeX-auto-regexp-list))
+
+ (LaTeX-set-paragraph-start)
+ (setq paragraph-separate
+ (concat
+ "[ \t]*%*[ \t]*\\("
+ "\\$\\$" ; Plain TeX display math
+ "\\|$\\)"))
+
+ (setq TeX-verbatim-p-function 'LaTeX-verbatim-p)
+ (setq TeX-search-forward-comment-start-function
+ 'LaTeX-search-forward-comment-start)
+
+ (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 "}")
+ ("\\\\\\(index\\|glossary\\){\\([^{}\n\r\\%]*\\)"
+ 2 LaTeX-index-entry-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-tabular*)
+ '("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 AUCTeX 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-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-ref)
+ '("ref" TeX-arg-ref)
+ '("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)
+ '("providecommand" TeX-arg-define-macro [ "Number of arguments" ] t)
+ '("providecommand*" TeX-arg-define-macro [ "Number of arguments" ] t)
+ '("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-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" "Format" 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)
+ '("overleftarrow" t)
+ '("overrightarrow" 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 ] [ "Height" ] [ TeX-arg-tb "Inner position" ]
+ "Width" t)
+ '("raisebox" "Raise" [ "Height above" ] [ "Depth below" ] t)
+ '("rule" [ "Raise" ] "Width" "Thickness")
+ '("sbox" TeX-arg-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" TeX-arg-index)
+ '("glossary" TeX-arg-index)
+ '("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.
+
+ "TeX" "LaTeX"
+ "samepage" "newline"
+ "smallskip" "medskip" "bigskip" "fill" "stretch"
+ "thinspace" "negthinspace" "enspace" "enskip" "quad" "qquad"
+ "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"
+
+ "maketitle" "tableofcontents" "listoffigures" "listoftables"
+ "tiny" "scriptsize" "footnotesize" "small"
+ "normalsize" "large" "Large" "LARGE" "huge" "Huge"
+ "pounds" "copyright"
+ "hfil" "hfill" "vfil" "vfill" "hrulefill" "dotfill"
+ "indent" "noindent" "today"
+ "appendix"
+ "dots")
+
+ (when (string-equal LaTeX-version "2e")
+ (LaTeX-add-environments
+ '("filecontents" LaTeX-env-contents)
+ '("filecontents*" LaTeX-env-contents))
+
+ (TeX-add-symbols
+ '("enlargethispage" "Length")
+ '("enlargethispage*" "Length")
+ '("tabularnewline" [ "Length" ])
+ '("suppressfloats" [ TeX-arg-tb "Suppress floats position" ])
+ '("ensuremath" "Math commands")
+ '("textsuperscript" "Text")
+ '("textcircled" "Text")
+
+ "LaTeXe"
+ "listfiles" "frontmatter" "mainmatter" "backmatter"
+ "textcompwordmark" "textvisiblespace" "textemdash" "textendash"
+ "textexclamdown" "textquestiondown" "textquotedblleft"
+ "textquotedblright" "textquoteleft" "textquoteright"
+ "textbullet" "textperiodcentered"
+ "textbackslash" "textbar" "textless" "textgreater"
+ "textasciicircum" "textasciitilde"
+ "textregistered" "texttrademark"
+ "rmfamily" "sffamily" "ttfamily" "mdseries" "bfseries"
+ "itshape" "slshape" "upshape" "scshape"))
+
+ (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 'TeX-font-replace-macro)
+ (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)
+ '("providecommand" TeX-arg-define-macro
+ [ "Number of arguments" ] [ "Default value for first argument" ] t)
+ '("providecommand*" TeX-arg-define-macro
+ [ "Number of arguments" ] [ "Default value for first argument" ] t)
+ '("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" LaTeX-arg-usepackage)
+ '("RequirePackage" LaTeX-arg-usepackage)
+ '("documentclass" TeX-arg-document)))
+
+ (TeX-add-style-hook "latex2e"
+ ;; Use new fonts for `\documentclass' documents.
+ (lambda ()
+ (setq TeX-font-list LaTeX-font-list)
+ (setq TeX-font-replace-function 'TeX-font-replace-macro)
+ (run-hooks 'LaTeX2e-hook)))
+
+ (TeX-add-style-hook "latex2"
+ ;; Use old fonts for `\documentstyle' documents.
+ (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)))
+
+ ;; There must be something better-suited, but I don't understand the
+ ;; parsing properly. -- dak
+ (TeX-add-style-hook "pdftex" 'TeX-PDF-mode-on)
+ (TeX-add-style-hook "pdftricks" 'TeX-PDF-mode-on)
+ (TeX-add-style-hook "pst-pdf" 'TeX-PDF-mode-on)
+ (TeX-add-style-hook "dvips" 'TeX-PDF-mode-off)
+;; This is now done in style/pstricks.el because it prevents other
+;; pstricks style files from being loaded.
+;; (TeX-add-style-hook "pstricks" 'TeX-PDF-mode-off)
+ (TeX-add-style-hook "psfrag" 'TeX-PDF-mode-off)
+ (TeX-add-style-hook "dvipdf" 'TeX-PDF-mode-off)
+ (TeX-add-style-hook "dvipdfm" 'TeX-PDF-mode-off)
+;; (TeX-add-style-hook "DVIoutput" 'TeX-PDF-mode-off)
+;;
+;; Well, DVIoutput indicates that we want to run PDFTeX and expect to
+;; get DVI output. Ugh.
+ (TeX-add-style-hook "ifpdf" (lambda ()
+ (TeX-PDF-mode-on)
+ (TeX-PDF-mode-off)))
+;; ifpdf indicates that we cater for either. So calling both
+;; functions will make sure that the default will get used unless the
+;; user overrode it.
+
+ (set (make-local-variable 'imenu-create-index-function)
+ 'LaTeX-imenu-create-index-function)
+
+ (use-local-map LaTeX-mode-map)
+ ;; Calling `easy-menu-add' may result in the menu filters being
+ ;; executed which call `TeX-update-style'. So this is placed very
+ ;; late in mode initialization to assure that all relevant variables
+ ;; are properly initialized before style files try to alter them.
+ (easy-menu-add LaTeX-mode-menu LaTeX-mode-map)
+ (easy-menu-add LaTeX-mode-command-menu LaTeX-mode-map))
+
+(defun LaTeX-imenu-create-index-function ()
+ "Imenu support function for LaTeX."
+ (TeX-update-style)
+ (let (entries level
+ (regexp (LaTeX-outline-regexp)))
+ (goto-char (point-max))
+ (while (re-search-backward regexp nil t)
+ (let* ((name (LaTeX-outline-name))
+ (level (make-string (1- (LaTeX-outline-level)) ?\ ))
+ (label (concat level level name))
+ (mark (make-marker)))
+ (set-marker mark (point))
+ (set-text-properties 0 (length label) nil label)
+ (setq entries (cons (cons label mark) entries))))
+ entries))
+
+(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 (TeX-match-buffer 1)
+ docstyle (TeX-match-buffer 2)
+ optlist (TeX-split-string "," optstr))
+ (if (search-forward-regexp
+ "\\documentstyle{\\([^}]*\\)}"
+ (point-max) t)
+ (setq docstyle (TeX-match-buffer 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)
+ (forward-line 1)
+ (insert "\\documentclass")
+ (if 2eoptlist
+ (insert "["
+ (mapconcat (lambda (x) x)
+ (nreverse 2eoptlist) ",") "]"))
+ (insert "{" docstyle "}\n")
+ (if 2epackages
+ (insert "\\usepackage{"
+ (mapconcat (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))
+
+(provide 'latex)
+
+;;; latex.el ends here