Initial Commit
[packages] / xemacs-packages / auctex / style / bigdelim.el
1 ;;; bigdelim.el --- AUCTeX style for `bigdelim.sty'
2
3 ;; Copyright (C) 2011 Free Software Foundation, Inc.
4
5 ;; Author: Mads Jensen <mje@inducks.org>
6 ;; Maintainer: auctex-devel@gnu.org
7 ;; Created: 2011-01-24
8 ;; Keywords: tex
9
10 ;; This file is part of AUCTeX.
11
12 ;; AUCTeX is free software; you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 3, or (at your option)
15 ;; any later version.
16
17 ;; AUCTeX is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
20 ;; General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with AUCTeX; see the file COPYING.  If not, write to the Free
24 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
25 ;; 02110-1301, USA.
26
27 ;;; Commentary:
28
29 ;; This file adds support for `bigdelim.sty'.
30
31 ;;; Code:
32
33 (TeX-add-style-hook
34  "bigdelim"
35  (lambda ()
36    (TeX-add-symbols
37     '("ldelim" TeX-arg-bigdelim-brace "Number of rows for multirow"
38       "Width in multirow" [ "Text in multirow" ])
39     '("rdelim" TeX-arg-bigdelim-brace "Number of rows for multirow"
40       "Width in multirow" [ "Text in multirow" ])))
41  LaTeX-dialect)
42
43 (defun TeX-arg-bigdelim-brace (optional &optional prompt)
44   "Prompt for a single brace, and do not insert the matching
45   right parentheses."
46   (let ((brace (read-from-minibuffer
47    (TeX-argument-prompt optional prompt "Brace") nil)))
48     (insert (format "%s" brace))))
49
50 (defvar LaTeX-bigdelim-package-options nil
51   "Package options for the bigdelim package.")
52
53 ;;; bigdelim.el ends here