code.delx.au - gnu-emacs-elpa/blob - packages/auctex/style/multido.el

   1 ;;; multido.el --- AUCTeX style for `multido.sty'
   2
   3 ;; Copyright (C) 2007 Free Software Foundation, Inc.
   4
   5 ;; Author: Holger Sparr <holger.sparr@gmx.net>
   6 ;; Created: 21 Jun 2007
   7 ;; Based on: Jean-Philippe Georget's multido.el
   8 ;; Keywords: latex, pstricks, auctex, emacs
   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 `multido.sty'.
  30
  31 ;;; TODO:
  32 ;;
  33 ;; -- better argument support for multido
  34 ;; -- parsing for fpAdd resp. fpSub
  35
  36 ;;; Code:
  37
  38 (TeX-add-style-hook
  39  "multido"
  40  (function
  41   (lambda ()
  42     (TeX-add-symbols
  43      '("multido" "\var=<start value>+-<inc>" "Repititions" t)
  44      '("Multido" "\var=<start value>+-<inc>" "Repititions" t)
  45      '("mmultido" "\var=<start value>+-<inc>" "Repititions" t)
  46      '("MMultido" "\var=<start value>+-<inc>" "Repititions" t)
  47      "multidostop"
  48      "multidocount"
  49      '("fpAdd" "Summand 1" "Summand 2" "Register")
  50      '("fpSub" "Minuend" "Subtrahend" "Register")))))
  51
  52 ;;; multido.el ends here