Anonymous avatar Anonymous committed ee64837

Import from CVS: tag r19-16b91

Comments (0)

Files changed (91)

 							-*- indented-text -*-
+to 19.16 beta91
+-- Make all texinfo source work with makeinfo-1.68
+-- Update texinfo stuffs from texinfo-3.11
+-- Updated finder database
+-- Move AUCTeX style files so the package will work
+-- provide 'xemacs for compatibility with future XEmacsen
+-- improved color terminal detection
+-- miscellaneous bug fixes
+-- X-compose fixes Courtesy of Jan Vroonhof
+
 to 19.16 beta90
 -- Miscellaneous 20.1 fixes merged
 -- Synch with 19.15p8 Courtesy of Alvin Shelton
 Copyright (c) 1994, 1995, 1996 Board of Trustees, University of Illinois
 Copyright (c) 1994 Free Software Foundation, Inc.
 
-Synched up with: FSF 19.30.
-
    Permission is granted to anyone to make or distribute verbatim copies
    of this document as received, in any medium, provided that the
    copyright notice and permission notice are preserved,
 system has X, and arrange to use it if present.
 
 Additional support can be included for the NeXTstep system by
-specifying the flag `--with-ns'.  This is not yet fully supported.
+specifying the flag `--with-ns'.  This was never implemented, and code
+referencing it has been removed from XEmacs 20.3.
 
 The `--x-includes=DIR' and `--x-libraries=DIR' options tell the build
 process where the compiler should look for the include files and
 The `--with-energize' option specifies that XEmacs should be built
 with support for the Lucid Energize system.  (If you have not
 purchased Energize, specifying this option won't gain you anything.)
-Currently this doesn't work.
+This doesn't work and has been removed from XEmacs 20.3.
 
 The `--external-widget' option specifies that XEmacs should be built
-with support for being used as a widget.  This functionality should be
-considered beta.
+with support for being used as a widget.  This apparently doesn't work.
 
 The `--with-mocklisp' option specifies that XEmacs should be built
 with support for Mocklisp.  Do not use this option unless you have a
-Mocklisp program that you need to run.
+Mocklisp program that you need to run.  Mocklisp support has been removed
+as of XEmacs 20.3.
 
 The `--with-xmu=no' option can be used if your vendor doesn't ship
 the Xmu library.
 allocator.
 
 The `--with-epoch' option enables functionality taken from Epoch.
-Currently this doesn't work.
+Currently this doesn't work and the option has been removed from XEmacs 20.3.
 
 The `--debug' and `--error-checking' options are intended for use only
 by the developers.  `--debug' adds code to be compiled in for
 
 See the file PROBLEMS in this directory for a list of various
 problems sometimes encountered, and what to do about them.
-
-
-This directory tree holds version 19.15 of XEmacs, the extensible,
+This directory tree holds version 19.16 of XEmacs, the extensible,
 customizable, self-documenting real-time display editor.
 
 See the file `etc/NEWS' for information on new features and other
 --with-x=no		Don't support X.
 --x-includes=DIR 	Search for X header files in DIR.
 --x-libraries=DIR	Search for X libraries in DIR.
---with-ns		Support NeXTstep windows (not yet implemented).
+--with-ns		Support NeXTstep windows (Doesn't work, option
+			removed in 20.3)
 --with-menubars=TYPE	Use TYPE menubars (lucid, motif, or no).  The Lucid
 			widgets emulate Motif (mostly) but are faster.
 			*WARNING*  The Motif menubar is currently broken.
 --with-x=no		Don't support X.
 --x-includes=DIR 	Search for X header files in DIR.
 --x-libraries=DIR	Search for X libraries in DIR.
---with-ns		Support NeXTstep windows (not yet implemented).
+--with-ns		Support NeXTstep windows (Doesn't work, option
+			removed in 20.3)
 --with-menubars=TYPE	Use TYPE menubars (lucid, motif, or no).  The Lucid
 			widgets emulate Motif (mostly) but are faster.
 			*WARNING*  The Motif menubar is currently broken.

etc/auctex/style/amsart.el

+;;; amsart.el --- AMS article style hook.
+
+;;; Code:
+
+(TeX-add-style-hook "amsart"
+ (function
+  (lambda ()
+    (TeX-run-style-hooks "amstex"))))
+
+;;; amsart.el ends here.

etc/auctex/style/amsbook.el

+;;; amsbook.el --- AMS book style hook.
+
+;;; Code:
+
+(TeX-add-style-hook "amsbook"
+ (function
+  (lambda ()
+    (TeX-run-style-hooks "amstex"))))
+
+;;; amsbook.el ends here.

etc/auctex/style/amstex.el

+;;; amstex.el --- AMS LaTeX support.
+
+;;; Code:
+
+(TeX-add-style-hook "amstex"
+ (function
+  (lambda ()
+    (TeX-add-symbols
+     '("eqref" TeX-arg-label)))))
+
+;;; amstex.el ends here.

etc/auctex/style/article.el

+;;; article.el - Special code for article style.
+
+;; $Id: article.el,v 1.1 1997/08/30 02:45:14 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "article"
+ (function (lambda ()
+  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
+
+;;; article.el ends here

etc/auctex/style/book.el

+;;; book.el - Special code for book style.
+
+;; $Id: book.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "book"
+ (function (lambda () 
+  (setq LaTeX-largest-level (LaTeX-section-level "chapter")))))
+
+;;; book.el ends here

etc/auctex/style/dinbrief.el

+;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
+
+;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
+;; Please direct comments to him.
+
+;;; Commentary:
+
+;; LaTeX-Style: dinbrief.sty
+;;      Server: rusinfo.rus.uni-stuttgart.de
+;;   Directory: /pub/soft/tex/macros/latex/contrib/letters
+
+;;; Code:
+
+(TeX-add-style-hook "dinbrief"
+ (function
+  (lambda ()
+    (LaTeX-add-environments
+     '("letter" LaTeX-recipient-hook))
+    (TeX-add-symbols
+     '("Absender" "Absender: ")
+     '("Postvermerk" "Postvermerk: ")
+     '("Datum" "Datum: ")
+     '("Betreff" "Betreff: ")
+     '("Behandlungsvermerk" "Behandlungsvermerk: ")
+     '("Verteiler" "Verteiler: ")
+     "makelabel" "Retourlabel"
+     '("Anlagen" "Anlagen: ")
+     '("Fenster" "Fenster \(ja/nein\): ")
+     '("Retouradresse" "Retouradresse: ")
+     '("signature" "Unterschrift: ")
+     '("opening" "Anrede: ")
+     '("closing" "Schlu\"s: ")))))
+
+(defun LaTeX-recipient-hook (environment)
+  "Insert ENVIRONMENT and prompt for recipient and address."
+  (let ((sender (read-input "Absender: " (user-full-name)))
+	(recipient (read-input "Empf\"anger: "))
+	(address (read-input "Anschrift: "))
+	(postvermerk (read-input "Postvermerk: "))
+	(date (read-input "Datum: " (LaTeX-today)))
+	(betreff (read-input "Betreff: "))
+	(vermerk (read-input "Behandlungsvermerk: "))
+	(verteil (read-input "Verteiler: "))
+	(anlage (read-input "Anlagen: "))
+	(opening (read-input "Anrede: "))
+	(closing (read-input "Schlu\"s: "))
+	(fenster (read-input "Fenster \(ja/nein\): "))
+	(signature (read-input "Unterschrift: "))
+	)
+
+    (if (not (zerop (length sender)))
+	(progn
+	  (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length postvermerk)))
+	(progn
+	  (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length betreff)))
+	(progn
+	  (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length vermerk)))
+	(progn
+	  (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length verteil)))
+	(progn
+	  (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length anlage)))
+	(progn
+	  (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
+	  (newline-and-indent)))
+    (if (string= fenster "ja")
+	(progn
+	  (insert TeX-esc "Fenster")
+	  (let ((retouradr (read-input "Retouradresse: " (user-full-name))))
+	    (newline-and-indent)
+	  (if (not (zerop (length retouradr)))
+	      (progn
+		(insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
+		(newline-and-indent))))))
+    (if (not (zerop (length signature)))
+	(progn
+	  (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length date)))
+	(progn
+	  (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
+	  (newline-and-indent)))
+    (newline-and-indent)
+
+    (let ((indentation (current-column)))
+      (LaTeX-insert-environment
+       environment
+       (concat TeX-grop recipient
+	       (if (not (zerop (length address)))
+		   (concat
+		    (if (not (zerop (length recipient)))
+			(concat " " TeX-esc TeX-esc " "))
+		    address))
+	       TeX-grcl))
+      (save-excursion			; Fix indentation of address
+	(if (search-backward TeX-grcl nil 'move)
+	    (let ((addr-end (point-marker)))
+	      (if (search-backward TeX-grop nil 'move)
+		  (let ((addr-column (current-column)))
+		    (while (search-forward
+			    (concat TeX-esc TeX-esc)
+			    (marker-position addr-end) 'move)
+		      (progn
+			(newline)
+			(indent-to addr-column))))))))
+      (insert "\n")
+      (indent-to indentation))
+    (insert TeX-esc "opening"
+	    TeX-grop
+	    (if (zerop (length opening))
+		(concat TeX-esc " ")
+	      opening)
+	    TeX-grcl "\n")
+
+    (indent-relative-maybe)
+    (save-excursion
+      (insert "\n" TeX-esc "closing"
+	      TeX-grop
+	      (if (zerop (length closing))
+		  (concat TeX-esc " ")
+		closing)
+	      TeX-grcl "\n")
+      (indent-relative-maybe))))
+
+(defun LaTeX-today nil
+  "Return a string representing todays date according to flavor."
+  (interactive)
+   (let ((ctime-string (current-time-string))
+	(month-alist '(("Jan" . "Januar")
+		       ("Feb" . "Februar")
+		       ("Mar" . "M\\\"arz")
+		       ("Apr" . "April")
+		       ("May" . "Mai")
+		       ("Jun" . "Juni")
+		       ("Jul" . "Juli")
+		       ("Aug" . "August")
+		       ("Sep" . "September")
+		       ("Oct" . "Oktober")
+		       ("Nov" . "November")
+		       ("Dec" . "Dezember"))))
+    (string-match
+     "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
+     ctime-string)
+    (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
+	  (month (substring ctime-string (match-beginning 1) (match-end 1)))
+	  (day (substring ctime-string (match-beginning 2) (match-end 2))))
+      (if (assoc month month-alist)
+	  (progn
+	    (setq month (cdr (assoc month month-alist)))
+	    (if (> 2 (length day))
+		(setq day (concat "0" day)))))
+      (format "Stuttgart, den %s. %s %s" day month year))))
+
+;;; dinbrief.el ends here

etc/auctex/style/dk.el

+;;; dk.el - Setup AUC TeX for editing Danish text.
+
+;; $Id: dk.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "dk"
+ (function (lambda ()
+   (run-hooks 'TeX-language-dk-hook))))
+
+;;; dk.el ends here

etc/auctex/style/dutch.el

+;;; dutch.el - Setup AUC TeX for editing Dutch text.
+
+;; $Id: dutch.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "dutch"
+ (function (lambda ()
+   (run-hooks 'TeX-language-nl-hook))))
+
+;;; dutch.el ends here

etc/auctex/style/epsf.el

+;;; epsf.el - Support for the epsf style option.
+
+;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
+
+;;; Code: 
+
+(TeX-add-style-hook "epsf"
+ (function
+  (lambda ()
+    (TeX-add-symbols
+     '("epsfsize" TeX-arg-epsfsize)
+     '("epsffile" TeX-arg-file)
+     '("epsfbox" TeX-arg-file)
+     "epsflly" "epsfury" "testit" "epsfgetlitbb"
+     "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
+     "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
+     "epsfllx" "epsflly" "epsfury" "epsfverbosetrue"
+     )
+    (LaTeX-add-environments
+     '("epsffig" LaTeX-env-epsffigure)
+     )
+
+    )))
+
+
+(defun LaTeX-env-epsffigure (environment)
+  "Create a `figure'-environment with \\label and \\caption and \\epsfbox
+commands. Eventually a `psfrags'-environment is inserted round the \\epsfbox."
+
+  (let ((float (read-input "Float to: " LaTeX-float))
+	(caption (read-input "Caption: "))
+	(label (read-input "Label: " LaTeX-figure-label))
+        ; gf: ask if there is an psfrag environment needed
+	(psfrag (y-or-n-p "PS fragments: "))
+	(psfile (read-file-name "EPS-file: " "" "" nil))
+	)
+
+    (setq LaTeX-float (if (zerop (length float))
+			  LaTeX-float
+			float))
+
+    (LaTeX-insert-environment "figure"
+			      (concat LaTeX-optop LaTeX-float LaTeX-optcl))
+    (LaTeX-insert-environment "center")
+    (if psfrag
+	(progn
+	  (LaTeX-insert-environment "psfrags")
+	  (newline-and-indent)
+	  ))
+    (if (or (zerop (length label))
+	    (and (string= "figure" environment)
+		 (equal LaTeX-figure-label label))
+	    )
+	()
+      (newline-and-indent)
+      (insert TeX-esc "label" TeX-grop label TeX-grcl)
+      (end-of-line 0)
+      (LaTeX-indent-line))
+
+
+    (newline-and-indent)
+    (insert TeX-esc "leavevmode")
+    (newline-and-indent)
+    (insert TeX-esc "epsfbox" TeX-grop psfile TeX-grcl)
+    (if (zerop (length caption))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
+    (newline)
+    (forward-line 4)
+    (newline)
+
+))
+
+(defun TeX-arg-epsfsize (optional &optional prompt definition)
+  "Create a line that print epsf figures at a certain percentage"
+  (interactive)
+  (let ((scale (read-input "Scale (%): "))
+	)
+    (setq scalestr (if (zerop (length scale))
+		       "75"
+		     (format "%s" scale)
+		     ))
+    (save-excursion
+      ; append #1#{scale#1}
+      (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
+      ; insert \def before \epsfsize
+      (beginning-of-line 1)
+      (newline)
+      (insert TeX-esc "def")
+      (forward-line -1)
+      (insert "% From now on print figures at " scale "% of original size")
+      )
+    (end-of-line)))
+
+;;; epsf.el ends here

etc/auctex/style/foils.el

+;;; foils.el - Special code for FoilTeX.
+
+;; $Id: foils.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Code:
+
+(require 'latex)
+
+(TeX-add-style-hook "foils"
+ (function
+  (lambda ()
+    (add-hook 'LaTeX-document-style-hook 'LaTeX-style-foils)
+    (setq LaTeX-default-style "foils")
+    (setq LaTeX-default-options '("landscape"))
+    (TeX-add-symbols
+     '("foilhead" [ "Rubric-body separation" ] "Foil rubric")))))
+
+(defun LaTeX-style-foils nil
+  "Prompt for and insert foiltex options."
+  (require 'timezone)
+  (let* ((date (timezone-parse-date (current-time-string)))
+	 (year   (string-to-int (aref date 0)))
+	 (month  (string-to-int (aref date 1)))
+	 (day    (string-to-int (aref date 2)))
+	 (title (read-input "Title: ")))
+    (save-excursion
+      (goto-char (point-max))
+      (re-search-backward ".begin.document.")
+      (insert TeX-esc "title"
+	      TeX-grop title TeX-grcl "\n")
+      (insert TeX-esc "author"
+	      TeX-grop (user-full-name) TeX-grcl "\n")
+      (insert TeX-esc "date" TeX-grop
+	      (format "%d-%02d-%02d" year month day)
+	      TeX-grcl "\n")
+      (insert "" TeX-esc "\nMyLogo" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "Restriction" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "rightfooter" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "leftheader" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "rightheader" TeX-grop TeX-grcl "\n\n")
+      (re-search-forward ".begin.document.")
+      (end-of-line)
+      (newline-and-indent)
+      (insert "" TeX-esc "maketitle\n\n"))
+    (forward-line -1)))
+
+;;; foils.el ends here

etc/auctex/style/german.el

+;;; german.el - Setup AUC TeX for editing German text.
+
+;; $Id: german.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Commentary:
+;;
+;; `german.sty' use `"' to give next character an umlaut.
+
+;;; Code:
+
+(defvar LaTeX-german-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `german.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-german-mode-syntax-table)
+
+(TeX-add-style-hook "german"
+ (function (lambda ()
+   (set-syntax-table LaTeX-german-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-quote-after-quote)
+   (setq TeX-quote-after-quote t)
+   (setq TeX-open-quote "\"`")
+   (setq TeX-close-quote "\"'")
+   (run-hooks 'TeX-language-de-hook))))
+
+;;; german.el ends here

etc/auctex/style/harvard.el

+;; harvard.el --- Support for Harvard Citation style package for AUC-TeX
+
+;; Copyright (C) 1994 Berwin Turlach <berwin@core.ucl.ac.be>
+
+;; Version: $Id: harvard.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;; Harvard citation style is from Peter Williams available on the CTAN
+;; servers
+
+;;; Code:
+
+(require 'latex)
+
+(TeX-add-style-hook "harvard"
+ (function
+  (lambda ()
+
+    (LaTeX-add-environments
+     '("thebibliography" LaTeX-env-harvardbib ignore))
+
+    (TeX-add-symbols
+     "harvardand"
+     '("citeasnoun"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("possessivecite"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citeaffixed"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite "Affix")
+     '("citeyear"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citename"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citationstyle"
+       (TeX-arg-eval completing-read "Citation style: " '(("agsm") ("dcu"))))
+     '("citationmode"
+       (TeX-arg-eval completing-read "Citation mode: "
+                     '(("full") ("abbr") ("default"))))
+     '("harvardparenthesis"
+       (TeX-arg-eval completing-read "Harvardparenthesis: "
+                     '(("round") ("curly") ("angle") ("square"))))
+     '("bibliographystyle"
+       (TeX-arg-eval
+	completing-read "Bibliography style: "
+        '(("agsm") ("dcu") ("jmr") ("jphysicsB") ("kluwer") ("nederlands")))
+       ignore)
+     '("harvarditem" [ "Short citation" ]
+       "Complete citation" "Year" TeX-arg-define-cite))
+
+    (setq TeX-complete-list
+	  (append '(("\\\\citeasnoun{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}")
+		    ("\\\\citeyear{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}")
+		    ("\\\\citename{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}"))
+		  TeX-complete-list))
+
+    (setq LaTeX-item-list
+	  (cons '("thebibliography" . LaTeX-item-harvardbib)
+		LaTeX-item-list)))))
+
+(defun LaTeX-env-harvardbib (environment &optional ignore)
+  "Insert ENVIRONMENT with label for harvarditem."
+  (LaTeX-insert-environment environment
+			    (concat TeX-grop "xx" TeX-grcl))
+  (end-of-line 0)
+  (delete-char 1)
+  (delete-horizontal-space)
+  (LaTeX-insert-item))
+
+;; Analog to LaTeX-item-bib from latex.el
+(defun LaTeX-item-harvardbib ()
+  "Insert a new harvarditem."
+  (TeX-insert-macro "harvarditem"))
+
+;; harvard.el ends here

etc/auctex/style/j-article.el

+;;; j-article.el - Special code for j-article style.
+
+;; $Id: j-article.el,v 1.1 1997/08/30 02:45:15 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-article"
+ (function (lambda ()
+  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
+
+;;; j-article.el ends here

etc/auctex/style/j-book.el

+;;; j-book.el - Special code for j-book style.
+
+;; $Id: j-book.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-book"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; j-book.el ends here

etc/auctex/style/j-report.el

+;;; j-report.el - Special code for j-report style.
+
+;; $Id: j-report.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-report"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; j-report.el ends here

etc/auctex/style/jarticle.el

+;;; jarticle.el - Special code for jarticle style.
+
+;; $Id: jarticle.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jarticle"
+ (function (lambda () (setq LaTeX-largest-level 2))))
+
+;;; jarticle.el ends here

etc/auctex/style/jbook.el

+;;; jbook.el - Special code for jbook style.
+
+;; $Id: jbook.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jbook"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; jbook.el ends here

etc/auctex/style/jreport.el

+;;; jreport.el - Special code for jreport style.
+
+;; $Id: jreport.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jreport"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+
+;;; jreport.el ends here

etc/auctex/style/latexinfo.el

+;;; latexinfo.el - Support for LaTeXinfo files.
+
+;; Copyright (C) 1993 Marc Gemis <makke@wins.uia.ac.be>
+
+;; Author: Marc Gemis <makke@wins.uia.ac.be>
+;; Version: $Id: latexinfo.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;; 
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;; 
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Code:
+
+(require 'latex)
+
+;;; LaTeXinfo mode
+
+(defvar TeX-latexinfo-node-regexp
+  '("\\\\node[ \t]+\\([^,\n\r%]+\\)" 1 TeX-auto-label)
+  "Matches LaTeXinfo \\node commands, only current node will be found.
+We ignore next, previous and up fields.")
+
+(defvar LaTeXinfo-mode nil
+  "Non-nil means LaTeXinfo minor mode is active.")
+  (make-variable-buffer-local 'LaTeXinfo-mode)
+
+(defvar LaTeXinfo-mode-map nil
+  "Keymap containing LaTeXinfo commands.")
+
+(if LaTeXinfo-mode-map
+    ()
+  (setq LaTeXinfo-mode-map (make-sparse-keymap))
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" 'latexinfo-format-buffer)
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" 'latexinfo-format-region)
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" 'latexinfo-show-structure)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ud" 'makke:latexinfo-delete-structure)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ug" 'latexinfo-goto-node)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ui" 'makke:latexinfo-structure))
+
+(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
+    (setq minor-mode-map-alist
+	  (cons (cons 'LaTeXinfo-mode LaTeXinfo-mode-map)
+		minor-mode-map-alist)))
+
+(defun TeX-arg-latexinfo-index (optional &optional prompt)
+  "Prompt for a LaTeXinfo index type with completion."
+  (TeX-argument-insert
+   (completing-read (TeX-argument-prompt optional prompt "Index")
+		    '(("cp") ("vr") ("fn") ("tp") ("pg") ("ky"))
+		    nil t)
+   optional))
+
+(defun LaTeX-item-latexinfo-menu ()
+  "Insert a new menu item"
+  (insert "* ::")
+  (backward-char 2))
+
+(defun latexinfo-goto-node () ; temporarily here, later in latexinfo-upd.el ??
+  "Place pointer on the node given by the user, read node with completion
+This fails when the user types in the label of something else"
+  (interactive)
+  (let ((node-name (completing-read "Goto Node: " (LaTeX-label-list))))
+    (goto-char (point-min))
+    (if (re-search-forward
+	 (concat
+	  TeX-esc "node[ \\t]+" node-name ","
+	  "\\|"
+	  TeX-esc "label{" LaTeX-section-label node-name
+	  "\\|"
+	  TeX-esc "label{" node-name
+	  )
+	 (point-max) t)
+	(beginning-of-line 1)
+    (error "No such node"))))
+
+;;; Hook
+
+(TeX-add-style-hook "latexinfo"
+ (function
+  (lambda ()
+    (require 'latexinfo)
+    (require 'latexinfo-structure)
+
+    (require 'min-map)
+    (setq LaTeXinfo-mode t)
+    
+    (TeX-auto-add-regexp TeX-latexinfo-node-regexp)
+
+    (TeX-add-symbols
+     '("node"
+       (TeX-arg-literal " ")
+       (TeX-arg-free TeX-arg-define-label "Node name")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Next node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Previous node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Up node"))
+     '("setfilename" TeX-arg-file)
+
+     '("var" t)
+     '("dfn" t)
+     '("emph" t)
+     '("kbd" t)
+     '("code" t)
+     '("samp" t)
+     '("key" t)
+     '("ctrl" t)
+     '("file" t)
+
+     '("comment"
+       (TeX-arg-literal " ")
+       (TeX-arg-free "Comment"))
+     '("c"
+       (TeX-arg-literal " ")
+       (TeX-arg-free "Comment"))
+
+     '("cindex" t)
+     '("cpsubindex" 2)
+     '("cpindexbold" t)
+
+     '("newindex" TeX-arg-latexinfo-index)
+
+     '("br" nil)
+     '("w" "Text")
+     '("dots" nil)
+     '("refill" nil)
+     '("bullet" nil)
+     '("copyright" nil)
+     '("sp" nil)
+
+     '("xref" TeX-arg-label)
+     '("pxref" TeX-arg-label)
+     '("inforef"
+       (TeX-arg-literal "{")
+       (TeX-arg-free "Name of node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free "Name for note")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-file "Info file")
+       (TeX-arg-literal "}")))
+
+    (LaTeX-add-environments "menu" "tex" "ignore" "ifinfo" "iftex"
+			    "example" "same" "display" "format")
+
+    ; Menu's have a special kind of items
+    (make-local-variable 'LaTeX-item-list)
+    (setq LaTeX-item-list (cons '("menu" . LaTeX-item-latexinfo-menu)
+				LaTeX-item-list))
+
+    (make-local-variable 'TeX-font-list)
+    (setq TeX-font-list
+	  (list (list ?\C-b (concat TeX-esc "b{") "}")
+		(list ?\C-c (concat TeX-esc "sc{") "}")
+		(list ?\C-e (concat TeX-esc "emph{") "}")
+		(list ?\C-i (concat TeX-esc "i{") "}")
+		(list ?\C-r (concat TeX-esc "r{") "}")
+		(list ?\C-s (concat TeX-esc "samp{") "}")
+		(list ?\C-t (concat TeX-esc "t{") "}")
+		(list ?s    (concat TeX-esc "strong{") "}")
+		(list ?\C-f (concat TeX-esc "file{") "}")
+		(list ?\C-d (concat TeX-esc "dfn{") "}")
+		(list ?\C-v (concat TeX-esc "var{") "}")
+		(list ?k    (concat TeX-esc "key{") "}")
+		(list ?\C-k (concat TeX-esc "kbd{") "}")
+		(list ?c    (concat TeX-esc "code{") "}")
+		(list ?C    (concat TeX-esc "cite{") "}")))
+
+    ;; need the following stuff to let xref and pxref work
+    (make-local-variable 'LaTeX-section-label)
+    (setq LaTeX-section-label ""))))
+
+;;; latexinfo.el ends here

etc/auctex/style/letter.el

+;;; letter.el - Special code for letter style.
+
+;; $Id: letter.el,v 1.1 1997/08/30 02:45:16 steve Exp $
+
+;;; Code:
+
+;; You may want to define this in tex-site.el to contain your
+;; organizations address.  
+(defvar LaTeX-letter-sender-address ""
+  "Initial value when prompting for a sender address in the letter style.")
+
+(TeX-add-style-hook "letter"
+ (function
+  (lambda ()
+    (LaTeX-add-environments
+     '("letter" LaTeX-env-recipient))
+    (TeX-add-symbols
+     '("name" "Sender: ") 
+     '("address" "Sender address: ")
+     '("signature" "Signature: ")
+     '("opening" "Opening: ")
+     '("closing" "Closing: ")))))
+
+(defun LaTeX-env-recipient (environment)
+  "Insert ENVIRONMENT and prompt for recipient and address."
+  (let ((sender (read-input "Sender: " (user-full-name)))
+	(sender-address (read-input "Sender address: "
+				    LaTeX-letter-sender-address))
+	(recipient (read-input "Recipient: "))
+	(address (read-input "Recipient address: "))
+	(signature (read-input "Signature: "))
+	(opening (read-input "Opening: "))
+	(closing (read-input "Closing: "))
+	(date (read-input "Date: " (LaTeX-today))))
+
+    (insert TeX-esc "name" TeX-grop sender TeX-grcl)
+    (newline-and-indent)
+    (if (not (zerop (length sender-address)))
+	(progn
+	  (setq LaTeX-letter-sender-address sender-address)
+	  (insert TeX-esc "address" TeX-grop sender-address TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length signature)))
+	(progn
+	  (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length date)))
+	(progn
+	  (insert TeX-esc "def" TeX-esc "today" TeX-grop date TeX-grcl)
+	  (newline-and-indent)))
+    (newline-and-indent)
+
+    (let ((indentation (current-column)))
+      (LaTeX-insert-environment
+       environment
+       (concat TeX-grop recipient
+	       (if (not (zerop (length address)))
+		   (concat
+		    (if (not (zerop (length recipient)))
+			(concat " " TeX-esc TeX-esc " "))
+		    address))
+	       TeX-grcl))
+      (save-excursion			; Fix indentation of address
+	(if (search-backward TeX-grcl nil 'move)
+	    (let ((addr-end (point-marker)))
+	      (if (search-backward TeX-grop nil 'move)
+		  (let ((addr-column (current-column)))
+		    (while (search-forward
+			    (concat TeX-esc TeX-esc)
+			    (marker-position addr-end) 'move)
+		      (progn
+			(newline)
+			(indent-to addr-column))))))))
+      (insert "\n")
+      (indent-to indentation))
+    (insert TeX-esc "opening"
+	    TeX-grop
+	    (if (zerop (length opening))
+		(concat TeX-esc " ")
+	      opening)
+	    TeX-grcl "\n")
+
+    (indent-relative-maybe)
+    (save-excursion
+      (insert "\n" TeX-esc "closing"
+	      TeX-grop
+	      (if (zerop (length closing))
+		  (concat TeX-esc " ")
+		closing)
+	      TeX-grcl "\n")
+      (indent-relative-maybe))))
+
+(defun LaTeX-today nil
+  "Return a string representing todays date according to flavor."
+  (interactive)
+  (let ((ctime-string (current-time-string))
+	(month-alist '(("Jan". "01")
+		       ("Feb" . "02")
+		       ("Mar" . "03")
+		       ("Apr" . "04")
+		       ("May" . "05")
+		       ("Jun" . "06")
+		       ("Jul" . "07")
+		       ("Aug" . "08")
+		       ("Sep" . "09")
+		       ("Oct" . "10")
+		       ("Nov" . "11")
+		       ("Dec" . "12"))))
+    (string-match
+     "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
+     ctime-string)
+    (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
+	  (month (substring ctime-string (match-beginning 1) (match-end 1)))
+	  (day (substring ctime-string (match-beginning 2) (match-end 2))))
+      (if (assoc month month-alist)
+	  (progn
+	    (setq month (cdr (assoc month month-alist)))
+	    (if (> 2 (length day))
+		(setq day (concat "0" day)))))
+      (format "%s-%s-%s" year month day))))
+
+;;; letter.el ends here

etc/auctex/style/plfonts.el

+;;; plfonts.el - Setup AUC TeX for editing Polish text with plfonts.sty
+
+;; $Id: plfonts.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+;;; Commentary:
+;;
+;; `plfonts.sty' use `"' to make next character Polish.
+;; `plfonts.sty' <C> L. Holenderski, IIUW, lhol@mimuw.edu.pl
+
+;;; Code:
+
+(defvar LaTeX-plfonts-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `plfonts.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-plfonts-mode-syntax-table)
+
+(TeX-add-style-hook "plfonts"
+ (function (lambda ()
+   (set-syntax-table LaTeX-plfonts-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-quote-after-quote)
+   (make-local-variable 'TeX-command-default)
+   (setq TeX-open-quote "\"<")
+   (setq TeX-close-quote "\">")
+   (setq TeX-quote-after-quote t)
+   (setq TeX-command-default "plLaTeX")
+   (run-hooks 'TeX-language-pl-hook))))
+
+;;; plfonts.el ends here

etc/auctex/style/plhb.el

+;;; plhb.el - Setup AUC TeX for editing Polish text with plhb.sty
+
+;; $Id: plhb.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+;;; Commentary:
+;;
+;; `plhb.sty' use `"' to make next character Polish.
+;; `plhb.sty' <C> J. S. Bie\'n, IIUW, jsbien@mimuw.edu.pl
+
+;;; Code:
+
+(defvar LaTeX-plhb-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `plhb.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-plhb-mode-syntax-table)
+
+(TeX-add-style-hook "plhb"
+ (function (lambda ()
+   (set-syntax-table LaTeX-plhb-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-command-default)
+   (make-local-variable 'TeX-quote-after-quote)
+   (setq TeX-open-quote "\"<")
+   (setq TeX-close-quote "\">")
+   (setq TeX-quote-after-quote t)
+   (setq TeX-command-default "plLaTeX")
+   (run-hooks 'TeX-language-pl-hook))))
+
+;;; plhb.el ends here

etc/auctex/style/psfig.el

+;;; psfig.el - Support for the psfig style option.
+
+;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
+;; Please direct comments to him.
+
+;;; Code:
+
+(TeX-add-style-hook "psfig"
+ (function
+  (lambda ()
+	;; probable some of the following symbols may be removed
+    (TeX-add-symbols "protect" "figurepath"  "fbox"
+		     "other" "letter" "other" "then" "Sine" "Cosine"
+		     "psdraft" "psfull" "psscalefirst" "psrotatefirst"
+		     "psnodraftbox" "psdraftbox" "pssilent" "psnoisy"
+		     "minmaxtest"
+     '("psfig" TeX-arg-psfig)
+     '("psfigurepath" t)
+		     )
+    (LaTeX-add-environments
+     '("psfigure" LaTeX-env-psfigure)
+     )
+    )))
+
+(defun TeX-arg-psfig (optional)
+   "Ask for file, width and length. Insert psfig macro"
+   (let ((psfile (read-file-name "PS-file: " "" "" nil))
+	 (figwidth (read-input "Figure width: "))
+	 (figheight (read-input "Figure height: "))
+	 )
+
+     (insert TeX-grop "figure=" psfile)
+     (if (not (zerop (length figwidth)))
+	 (insert ",width=" figwidth))
+     (if (not (zerop (length figheight)))
+	 (insert ",height=" figheight))
+     (insert TeX-grcl)
+     )
+   )
+
+
+(defun LaTeX-env-psfigure (environment)
+  "Create  with \\label and \\caption and \\psfig commands."
+  (let ((float (read-input "Float to: " LaTeX-float))
+	(caption (read-input "Caption: "))
+	(label (read-input "Label: " LaTeX-figure-label))
+        ; gf: ask if this should be centered
+	(psfile (read-file-name "PS-file: " "" "" nil))
+	(figwidth (read-input "Figure width: "))
+	(figheight (read-input "Figure height: "))
+	)
+
+    (setq LaTeX-float (if (zerop (length float))
+			  LaTeX-float
+			float))
+
+    (LaTeX-insert-environment "figure"
+			      (concat LaTeX-optop LaTeX-float LaTeX-optcl))
+
+    (insert TeX-esc "centerline" TeX-grop TeX-esc "psfig" TeX-grop
+	    "figure=" psfile)
+    (if (not (zerop (length figwidth)))
+	(insert ",width=" figwidth))
+    (if (not (zerop (length figheight)))
+	(insert ",height=" figheight))
+    (insert TeX-grcl TeX-grcl)
+    (if (zerop (length caption))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
+    (if (or (zerop (length label))
+	    (equal LaTeX-figure-label label))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "label" TeX-grop label TeX-grcl))
+
+    (forward-line 2)))
+
+;;; psfig.el ends here

etc/auctex/style/report.el

+;;; report.el - Special code for report style.
+
+;; $Id: report.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "report"
+ (function (lambda () 
+  (setq LaTeX-largest-level (LaTeX-section-level "chapter")))))
+
+;;; report.el ends here

etc/auctex/style/slides.el

+;;; slides.el - Special code for slitex.
+;;
+;; $Id: slides.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+(require 'latex)
+
+;;; Code:
+
+(TeX-add-style-hook "slides"
+ (function
+  (lambda ()
+    (setq LaTeX-default-style "slides")
+    (add-hook 'LaTeX-document-style-hook 'LaTeX-style-slides)
+    (LaTeX-add-environments '("slide" LaTeX-env-slide)
+			    '("overlay" LaTeX-env-slide))
+    (TeX-run-style-hooks "SLITEX"))))
+
+(defvar LaTeX-slide-color "" 
+  "*Default slide color.")
+
+ (make-variable-buffer-local 'LaTeX-slide-color)
+
+(defun LaTeX-style-slides ()
+  "Prompt for and insert SliTeX options."
+  (let ((slide-file (read-input "Slide file: "))
+	(slide-colors (read-input "Slide colors (comma separetade list): "
+				  "black")))
+    (save-excursion
+      (goto-char (point-min))		; insert before \end{document}
+      (if (re-search-forward ".end.document." (point-max) t)
+	  (beginning-of-line 1))
+      (open-line 2)
+      (indent-relative-maybe)
+      (if (equal slide-colors "black")
+	  (insert TeX-esc "blackandwhite"
+		  TeX-grop slide-file TeX-grcl)
+	(progn
+	  (insert TeX-esc "colors"
+		  TeX-grop slide-colors TeX-grcl)
+	  (newline-and-indent)
+	  (insert TeX-esc "colorslides"
+		  TeX-grop slide-file TeX-grcl))))))
+
+(defun LaTeX-env-slide (environment)
+  "Insert ENVIRONMENT and prompt for slide colors."
+  (setq LaTeX-slide-color
+	(read-input "Slide colors: " LaTeX-slide-color))
+  (LaTeX-insert-environment environment
+			    (concat TeX-grop LaTeX-slide-color TeX-grcl)))
+
+
+;;; slides.el ends here

etc/auctex/style/swedish.el

+;;; swedish.el - Setup AUC TeX for editing Swedish text.
+
+;; $Id: swedish.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+;;; Commentary:
+;;
+;; Apparently the Swedes use ''this style'' quotations.
+
+(TeX-add-style-hook "swedish"
+ (function (lambda ()
+   (make-local-variable 'TeX-open-quote)
+   (setq TeX-open-quote "''")
+   (run-hooks 'TeX-language-sv-hook))))

etc/auctex/style/virtex.el

+;;; virtex.el - Common code for all TeX formats.
+
+;; $Id: virtex.el,v 1.1 1997/08/30 02:45:17 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "virtex"
+ (function
+  (lambda ()
+    (TeX-add-symbols "/" "above" "abovedisplayshortskip"
+		     "abovedisplayskip" "abovewithdelims" "accent"
+		     "adjdemerits" "advance" "afterassignment"
+		     "aftergroup" "atop" "atopwithdelims" "badness"
+		     "baselineskip" "batchmode" "begingroup"
+		     "belowdisplayshortskip" "belowdisplayskip"
+		     "binoppenalty" "botmark" "box" "boxmaxdepth"
+		     "brokenpenalty" "catcode" "char" "chardef"
+		     "cleaders" "closein" "closeout" "clubpenalty"
+		     "copy" "count" "countdef" "cr" "crcr" "csname"
+		     "day" "deadcycles" "def" "defaulthyphenchar"
+		     "defaultskewchar" "delcode" "delimiter"
+		     "delimiterfactor" "delimitershortfall" "dimen"
+		     "dimendef" "discretionary" "displayindent"
+		     "displaylimits" "displaystyle"
+		     "displaywidowpenalty" "displaywidth" "divide"
+		     "doublehyphendemerits" "dp" "dump" "edef" "else"
+		     "emergencystretch" "end" "endcsname" "endgroup"
+		     "endinput" "endlinechar" "eqno" "errhelp"
+		     "errmessage" "errorcontextlines" "errorstopmode"
+		     "escapechar" "everycr" "everydisplay"
+		     "everyhbox" "everyjob" "everymath" "everypar"
+		     "everyvbox" "exhyphenpenalty" "expandafter"
+		     "fam" "fi" "finalhyphendemerits" "firstmark"
+		     "floatingpenalty" "font" "fontdimen" "fontname"
+		     "futurelet" "gdef" "global" "globaldefs"
+		     "halign" "hangafter" "hangindent" "hbadness"
+		     "hbox" "hfil" "hfill" "hfilneg" "hfuzz"
+		     "hoffset" "holdinginserts" "hrule" "hsize"
+		     "hskip" "hss" "ht" "hyphenpenation" "hyphenchar"
+		     "hyphenpenalty" "if" "ifcase" "ifcat" "ifdim"
+		     "ifeof" "iffalse" "ifhbox" "ifinner" "ifhmode"
+		     "ifmmode" "ifnum" "ifodd" "iftrue" "ifvbox"
+		     "ifvoid" "ifx" "ignorespaces" "immediate"
+		     "indent" "input" "inputlineno" "insert"
+		     "insertpenalties" "interlinepenalty" "jobname"
+		     "kern" "language" "lastbox" "lastkern"
+		     "lastpenalty" "lastskip" "lccode" "leaders"
+		     "left" "lefthyphenmin" "leftskip" "leqno" "let"
+		     "limits" "linepenalty" "lineskip"
+		     "lineskiplimit" "long" "looseness" "lower"
+		     "lowercase" "mag" "markaccent" "mathbin"
+		     "mathchar" "mathchardef" "mathchoise"
+		     "mathclose" "mathcode" "mathinner" "mathhop"
+		     "mathopen" "mathord" "mathpunct" "mathrel"
+		     "mathsurround" "maxdeadcycles" "maxdepth"
+		     "meaning" "medmuskip" "message" "mkern" "month"
+		     "moveleft" "moveright" "mskip" "multiply"
+		     "muskip" "muskipdef" "newlinechar" "noalign"
+		     "noboundary" "noexpand" "noindent" "nolimits"
+		     "nonscript" "nonstopmode" "nulldelimiterspace"
+		     "nullfont" "number" "omit" "openin" "openout"
+		     "or" "outer" "output" "outputpenalty"
+		     "overfullrule" "parfillskip" "parindent"
+		     "parskip" "pausing" "postdisplaypenalty"
+		     "predisplaypenalty" "predisplaysize"
+		     "pretolerance" "relpenalty" "rightskip"
+		     "scriptspace" "showboxbreadth" "showboxdepth"
+		     "smallskipamount" "spaceskip" "splitmaxdepth"
+		     "splittopskip" "tabskip" "thickmuskip"
+		     "thinmuskip" "time" "tolerance" "topskip"
+		     "tracingcommands" "tracinglostchars"
+		     "tracingmacros" "tracingonline" "tracingoutput"
+		     "tracingpages" "tracingparagraphs"
+		     "tracingrestores" "tracingstats" "uccode"
+		     "uchyph" "underline" "unhbox" "unhcopy" "unkern"
+		     "unpenalty" "unskip" "unvbox" "unvcopy"
+		     "uppercase" "vadjust" "valign" "vbadness" "vbox"
+		     "vcenter" "vfil" "vfill" "vfilneg" "vfuzz"
+		     "voffset" "vrule" "vsize" "vskip" "vss" "vtop"
+		     "wd" "widowpenalty" "write" "xdef" "xleaders"
+		     "xspaceskip" "year"))))
+
+;;; virtex.el ends here

lisp/auctex/Makefile

 	multi-prompt.elc
 
 
-STYLESRC = style/slides.el    style/foils.el    style/amstex.el \
-	   style/article.el   style/book.el     style/letter.el \
-	   style/report.el    style/amsart.el   style/amsbook.el \
-	   style/epsf.el      style/psfig.el    style/latexinfo.el \
-	   style/dutch.el     style/german.el   style/dk.el \
-	   style/j-article.el style/j-book.el   style/j-report.el \
-	   style/jarticle.el  style/jbook.el    style/jreport.el \
-	   style/dinbrief.el  style/virtex.el   style/plfonts.el \
-	   style/plhb.el      style/harvard.el	style/swedish.el
+STYLE=../../etc/auctex/style
+
+STYLESRC = $(STYLE)/slides.el    $(STYLE)/foils.el    $(STYLE)/amstex.el \
+	   $(STYLE)/article.el   $(STYLE)/book.el     $(STYLE)/letter.el \
+	   $(STYLE)/report.el    $(STYLE)/amsart.el   $(STYLE)/amsbook.el \
+	   $(STYLE)/epsf.el      $(STYLE)/psfig.el    $(STYLE)/latexinfo.el \
+	   $(STYLE)/dutch.el     $(STYLE)/german.el   $(STYLE)/dk.el \
+	   $(STYLE)/j-article.el $(STYLE)/j-book.el   $(STYLE)/j-report.el \
+	   $(STYLE)/jarticle.el  $(STYLE)/jbook.el    $(STYLE)/jreport.el \
+	   $(STYLE)/dinbrief.el  $(STYLE)/virtex.el   $(STYLE)/plfonts.el \
+	   $(STYLE)/plhb.el      $(STYLE)/harvard.el	$(STYLE)/swedish.el
 
 DOCFILES = doc/Makefile doc/auc-tex.texi doc/intro.texi doc/install.texi \
 	doc/changes.texi doc/tex-ref.tex doc/math-ref.tex doc/history.texi

lisp/auctex/style/amsart.el

-;;; amsart.el --- AMS article style hook.
-
-;;; Code:
-
-(TeX-add-style-hook "amsart"
- (function
-  (lambda ()
-    (TeX-run-style-hooks "amstex"))))
-
-;;; amsart.el ends here.

lisp/auctex/style/amsbook.el

-;;; amsbook.el --- AMS book style hook.
-
-;;; Code:
-
-(TeX-add-style-hook "amsbook"
- (function
-  (lambda ()
-    (TeX-run-style-hooks "amstex"))))
-
-;;; amsbook.el ends here.

lisp/auctex/style/amstex.el

-;;; amstex.el --- AMS LaTeX support.
-
-;;; Code:
-
-(TeX-add-style-hook "amstex"
- (function
-  (lambda ()
-    (TeX-add-symbols
-     '("eqref" TeX-arg-label)))))
-
-;;; amstex.el ends here.

lisp/auctex/style/article.el

-;;; article.el - Special code for article style.
-
-;; $Id: article.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "article"
- (function (lambda ()
-  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
-
-;;; article.el ends here

lisp/auctex/style/book.el

-;;; book.el - Special code for book style.
-
-;; $Id: book.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "book"
- (function (lambda () 
-  (setq LaTeX-largest-level (LaTeX-section-level "chapter")))))
-
-;;; book.el ends here

lisp/auctex/style/dinbrief.el

-;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
-
-;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
-;; Please direct comments to him.
-
-;;; Commentary:
-
-;; LaTeX-Style: dinbrief.sty
-;;      Server: rusinfo.rus.uni-stuttgart.de
-;;   Directory: /pub/soft/tex/macros/latex/contrib/letters
-
-;;; Code:
-
-(TeX-add-style-hook "dinbrief"
- (function
-  (lambda ()
-    (LaTeX-add-environments
-     '("letter" LaTeX-recipient-hook))
-    (TeX-add-symbols
-     '("Absender" "Absender: ")
-     '("Postvermerk" "Postvermerk: ")
-     '("Datum" "Datum: ")
-     '("Betreff" "Betreff: ")
-     '("Behandlungsvermerk" "Behandlungsvermerk: ")
-     '("Verteiler" "Verteiler: ")
-     "makelabel" "Retourlabel"
-     '("Anlagen" "Anlagen: ")
-     '("Fenster" "Fenster \(ja/nein\): ")
-     '("Retouradresse" "Retouradresse: ")
-     '("signature" "Unterschrift: ")
-     '("opening" "Anrede: ")
-     '("closing" "Schlu\"s: ")))))
-
-(defun LaTeX-recipient-hook (environment)
-  "Insert ENVIRONMENT and prompt for recipient and address."
-  (let ((sender (read-input "Absender: " (user-full-name)))
-	(recipient (read-input "Empf\"anger: "))
-	(address (read-input "Anschrift: "))
-	(postvermerk (read-input "Postvermerk: "))
-	(date (read-input "Datum: " (LaTeX-today)))
-	(betreff (read-input "Betreff: "))
-	(vermerk (read-input "Behandlungsvermerk: "))
-	(verteil (read-input "Verteiler: "))
-	(anlage (read-input "Anlagen: "))
-	(opening (read-input "Anrede: "))
-	(closing (read-input "Schlu\"s: "))
-	(fenster (read-input "Fenster \(ja/nein\): "))
-	(signature (read-input "Unterschrift: "))
-	)
-
-    (if (not (zerop (length sender)))
-	(progn
-	  (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length postvermerk)))
-	(progn
-	  (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length betreff)))
-	(progn
-	  (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length vermerk)))
-	(progn
-	  (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length verteil)))
-	(progn
-	  (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length anlage)))
-	(progn
-	  (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
-	  (newline-and-indent)))
-    (if (string= fenster "ja")
-	(progn
-	  (insert TeX-esc "Fenster")
-	  (let ((retouradr (read-input "Retouradresse: " (user-full-name))))
-	    (newline-and-indent)
-	  (if (not (zerop (length retouradr)))
-	      (progn
-		(insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
-		(newline-and-indent))))))
-    (if (not (zerop (length signature)))
-	(progn
-	  (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
-	  (newline-and-indent)))
-    (if (not (zerop (length date)))
-	(progn
-	  (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
-	  (newline-and-indent)))
-    (newline-and-indent)
-
-    (let ((indentation (current-column)))
-      (LaTeX-insert-environment
-       environment
-       (concat TeX-grop recipient
-	       (if (not (zerop (length address)))
-		   (concat
-		    (if (not (zerop (length recipient)))
-			(concat " " TeX-esc TeX-esc " "))
-		    address))
-	       TeX-grcl))
-      (save-excursion			; Fix indentation of address
-	(if (search-backward TeX-grcl nil 'move)
-	    (let ((addr-end (point-marker)))
-	      (if (search-backward TeX-grop nil 'move)
-		  (let ((addr-column (current-column)))
-		    (while (search-forward
-			    (concat TeX-esc TeX-esc)
-			    (marker-position addr-end) 'move)
-		      (progn
-			(newline)
-			(indent-to addr-column))))))))
-      (insert "\n")
-      (indent-to indentation))
-    (insert TeX-esc "opening"
-	    TeX-grop
-	    (if (zerop (length opening))
-		(concat TeX-esc " ")
-	      opening)
-	    TeX-grcl "\n")
-
-    (indent-relative-maybe)
-    (save-excursion
-      (insert "\n" TeX-esc "closing"
-	      TeX-grop
-	      (if (zerop (length closing))
-		  (concat TeX-esc " ")
-		closing)
-	      TeX-grcl "\n")
-      (indent-relative-maybe))))
-
-(defun LaTeX-today nil
-  "Return a string representing todays date according to flavor."
-  (interactive)
-   (let ((ctime-string (current-time-string))
-	(month-alist '(("Jan" . "Januar")
-		       ("Feb" . "Februar")
-		       ("Mar" . "M\\\"arz")
-		       ("Apr" . "April")
-		       ("May" . "Mai")
-		       ("Jun" . "Juni")
-		       ("Jul" . "Juli")
-		       ("Aug" . "August")
-		       ("Sep" . "September")
-		       ("Oct" . "Oktober")
-		       ("Nov" . "November")
-		       ("Dec" . "Dezember"))))
-    (string-match
-     "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
-     ctime-string)
-    (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
-	  (month (substring ctime-string (match-beginning 1) (match-end 1)))
-	  (day (substring ctime-string (match-beginning 2) (match-end 2))))
-      (if (assoc month month-alist)
-	  (progn
-	    (setq month (cdr (assoc month month-alist)))
-	    (if (> 2 (length day))
-		(setq day (concat "0" day)))))
-      (format "Stuttgart, den %s. %s %s" day month year))))
-
-;;; dinbrief.el ends here

lisp/auctex/style/dk.el

-;;; dk.el - Setup AUC TeX for editing Danish text.
-
-;; $Id: dk.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "dk"
- (function (lambda ()
-   (run-hooks 'TeX-language-dk-hook))))
-
-;;; dk.el ends here

lisp/auctex/style/dutch.el

-;;; dutch.el - Setup AUC TeX for editing Dutch text.
-
-;; $Id: dutch.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "dutch"
- (function (lambda ()
-   (run-hooks 'TeX-language-nl-hook))))
-
-;;; dutch.el ends here

lisp/auctex/style/epsf.el

-;;; epsf.el - Support for the epsf style option.
-
-;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
-
-;;; Code: 
-
-(TeX-add-style-hook "epsf"
- (function
-  (lambda ()
-    (TeX-add-symbols
-     '("epsfsize" TeX-arg-epsfsize)
-     '("epsffile" TeX-arg-file)
-     '("epsfbox" TeX-arg-file)
-     "epsflly" "epsfury" "testit" "epsfgetlitbb"
-     "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
-     "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
-     "epsfllx" "epsflly" "epsfury" "epsfverbosetrue"
-     )
-    (LaTeX-add-environments
-     '("epsffig" LaTeX-env-epsffigure)
-     )
-
-    )))
-
-
-(defun LaTeX-env-epsffigure (environment)
-  "Create a `figure'-environment with \\label and \\caption and \\epsfbox
-commands. Eventually a `psfrags'-environment is inserted round the \\epsfbox."
-
-  (let ((float (read-input "Float to: " LaTeX-float))
-	(caption (read-input "Caption: "))
-	(label (read-input "Label: " LaTeX-figure-label))
-        ; gf: ask if there is an psfrag environment needed
-	(psfrag (y-or-n-p "PS fragments: "))
-	(psfile (read-file-name "EPS-file: " "" "" nil))
-	)
-
-    (setq LaTeX-float (if (zerop (length float))
-			  LaTeX-float
-			float))
-
-    (LaTeX-insert-environment "figure"
-			      (concat LaTeX-optop LaTeX-float LaTeX-optcl))
-    (LaTeX-insert-environment "center")
-    (if psfrag
-	(progn
-	  (LaTeX-insert-environment "psfrags")
-	  (newline-and-indent)
-	  ))
-    (if (or (zerop (length label))
-	    (and (string= "figure" environment)
-		 (equal LaTeX-figure-label label))
-	    )
-	()
-      (newline-and-indent)
-      (insert TeX-esc "label" TeX-grop label TeX-grcl)
-      (end-of-line 0)
-      (LaTeX-indent-line))
-
-
-    (newline-and-indent)
-    (insert TeX-esc "leavevmode")
-    (newline-and-indent)
-    (insert TeX-esc "epsfbox" TeX-grop psfile TeX-grcl)
-    (if (zerop (length caption))
-	()
-      (newline-and-indent)
-      (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
-    (newline)
-    (forward-line 4)
-    (newline)
-
-))
-
-(defun TeX-arg-epsfsize (optional &optional prompt definition)
-  "Create a line that print epsf figures at a certain percentage"
-  (interactive)
-  (let ((scale (read-input "Scale (%): "))
-	)
-    (setq scalestr (if (zerop (length scale))
-		       "75"
-		     (format "%s" scale)
-		     ))
-    (save-excursion
-      ; append #1#{scale#1}
-      (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
-      ; insert \def before \epsfsize
-      (beginning-of-line 1)
-      (newline)
-      (insert TeX-esc "def")
-      (forward-line -1)
-      (insert "% From now on print figures at " scale "% of original size")
-      )
-    (end-of-line)))
-
-;;; epsf.el ends here

lisp/auctex/style/foils.el

-;;; foils.el - Special code for FoilTeX.
-
-;; $Id: foils.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Code:
-
-(require 'latex)
-
-(TeX-add-style-hook "foils"
- (function
-  (lambda ()
-    (add-hook 'LaTeX-document-style-hook 'LaTeX-style-foils)
-    (setq LaTeX-default-style "foils")
-    (setq LaTeX-default-options '("landscape"))
-    (TeX-add-symbols
-     '("foilhead" [ "Rubric-body separation" ] "Foil rubric")))))
-
-(defun LaTeX-style-foils nil
-  "Prompt for and insert foiltex options."
-  (require 'timezone)
-  (let* ((date (timezone-parse-date (current-time-string)))
-	 (year   (string-to-int (aref date 0)))
-	 (month  (string-to-int (aref date 1)))
-	 (day    (string-to-int (aref date 2)))
-	 (title (read-input "Title: ")))
-    (save-excursion
-      (goto-char (point-max))
-      (re-search-backward ".begin.document.")
-      (insert TeX-esc "title"
-	      TeX-grop title TeX-grcl "\n")
-      (insert TeX-esc "author"
-	      TeX-grop (user-full-name) TeX-grcl "\n")
-      (insert TeX-esc "date" TeX-grop
-	      (format "%d-%02d-%02d" year month day)
-	      TeX-grcl "\n")
-      (insert "" TeX-esc "\nMyLogo" TeX-grop TeX-grcl "\n")
-      (insert "%" TeX-esc "Restriction" TeX-grop TeX-grcl "\n")
-      (insert "%" TeX-esc "rightfooter" TeX-grop TeX-grcl "\n")
-      (insert "%" TeX-esc "leftheader" TeX-grop TeX-grcl "\n")
-      (insert "%" TeX-esc "rightheader" TeX-grop TeX-grcl "\n\n")
-      (re-search-forward ".begin.document.")
-      (end-of-line)
-      (newline-and-indent)
-      (insert "" TeX-esc "maketitle\n\n"))
-    (forward-line -1)))
-
-;;; foils.el ends here

lisp/auctex/style/german.el

-;;; german.el - Setup AUC TeX for editing German text.
-
-;; $Id: german.el,v 1.1 1997/02/20 02:15:19 steve Exp $
-
-;;; Commentary:
-;;
-;; `german.sty' use `"' to give next character an umlaut.
-
-;;; Code:
-
-(defvar LaTeX-german-mode-syntax-table
-  (copy-syntax-table LaTeX-mode-syntax-table)
-  "Syntax table used in LaTeX mode when using `german.sty'.")
-
-(modify-syntax-entry ?\"  "w"  LaTeX-german-mode-syntax-table)
-
-(TeX-add-style-hook "german"
- (function (lambda ()
-   (set-syntax-table LaTeX-german-mode-syntax-table)
-   (make-local-variable 'TeX-open-quote)
-   (make-local-variable 'TeX-close-quote)
-   (make-local-variable 'TeX-quote-after-quote)
-   (setq TeX-quote-after-quote t)
-   (setq TeX-open-quote "\"`")
-   (setq TeX-close-quote "\"'")
-   (run-hooks 'TeX-language-de-hook))))
-
-;;; german.el ends here

lisp/auctex/style/harvard.el

-;; harvard.el --- Support for Harvard Citation style package for AUC-TeX
-
-;; Copyright (C) 1994 Berwin Turlach <berwin@core.ucl.ac.be>
-
-;; Version: $Id: harvard.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Harvard citation style is from Peter Williams available on the CTAN
-;; servers
-
-;;; Code:
-
-(require 'latex)
-
-(TeX-add-style-hook "harvard"
- (function
-  (lambda ()
-
-    (LaTeX-add-environments
-     '("thebibliography" LaTeX-env-harvardbib ignore))
-
-    (TeX-add-symbols
-     "harvardand"
-     '("citeasnoun"
-       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
-       TeX-arg-cite)
-     '("possessivecite"
-       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
-       TeX-arg-cite)
-     '("citeaffixed"
-       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
-       TeX-arg-cite "Affix")
-     '("citeyear"
-       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
-       TeX-arg-cite)
-     '("citename"
-       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
-       TeX-arg-cite)
-     '("citationstyle"
-       (TeX-arg-eval completing-read "Citation style: " '(("agsm") ("dcu"))))
-     '("citationmode"
-       (TeX-arg-eval completing-read "Citation mode: "
-                     '(("full") ("abbr") ("default"))))
-     '("harvardparenthesis"
-       (TeX-arg-eval completing-read "Harvardparenthesis: "
-                     '(("round") ("curly") ("angle") ("square"))))
-     '("bibliographystyle"
-       (TeX-arg-eval
-	completing-read "Bibliography style: "
-        '(("agsm") ("dcu") ("jmr") ("jphysicsB") ("kluwer") ("nederlands")))
-       ignore)
-     '("harvarditem" [ "Short citation" ]
-       "Complete citation" "Year" TeX-arg-define-cite))
-
-    (setq TeX-complete-list
-	  (append '(("\\\\citeasnoun{\\([^{}\n\m\\%]*\\)"
-		     1 LaTeX-bibitem-list "}")
-		    ("\\\\citeyear{\\([^{}\n\m\\%]*\\)"
-		     1 LaTeX-bibitem-list "}")
-		    ("\\\\citename{\\([^{}\n\m\\%]*\\)"
-		     1 LaTeX-bibitem-list "}"))
-		  TeX-complete-list))
-
-    (setq LaTeX-item-list
-	  (cons '("thebibliography" . LaTeX-item-harvardbib)
-		LaTeX-item-list)))))
-
-(defun LaTeX-env-harvardbib (environment &optional ignore)
-  "Insert ENVIRONMENT with label for harvarditem."
-  (LaTeX-insert-environment environment
-			    (concat TeX-grop "xx" TeX-grcl))
-  (end-of-line 0)
-  (delete-char 1)
-  (delete-horizontal-space)
-  (LaTeX-insert-item))
-
-;; Analog to LaTeX-item-bib from latex.el
-(defun LaTeX-item-harvardbib ()
-  "Insert a new harvarditem."
-  (TeX-insert-macro "harvarditem"))
-
-;; harvard.el ends here

lisp/auctex/style/j-article.el

-;;; j-article.el - Special code for j-article style.
-
-;; $Id: j-article.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "j-article"
- (function (lambda ()
-  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
-
-;;; j-article.el ends here

lisp/auctex/style/j-book.el

-;;; j-book.el - Special code for j-book style.
-
-;; $Id: j-book.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "j-book"
- (function (lambda () (setq LaTeX-largest-level
-			    (LaTeX-section-level "chapter")))))
-
-;;; j-book.el ends here

lisp/auctex/style/j-report.el

-;;; j-report.el - Special code for j-report style.
-
-;; $Id: j-report.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "j-report"
- (function (lambda () (setq LaTeX-largest-level
-			    (LaTeX-section-level "chapter")))))
-
-;;; j-report.el ends here

lisp/auctex/style/jarticle.el

-;;; jarticle.el - Special code for jarticle style.
-
-;; $Id: jarticle.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "jarticle"
- (function (lambda () (setq LaTeX-largest-level 2))))
-
-;;; jarticle.el ends here

lisp/auctex/style/jbook.el

-;;; jbook.el - Special code for jbook style.
-
-;; $Id: jbook.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "jbook"
- (function (lambda () (setq LaTeX-largest-level
-			    (LaTeX-section-level "chapter")))))
-
-;;; jbook.el ends here

lisp/auctex/style/jreport.el

-;;; jreport.el - Special code for jreport style.
-
-;; $Id: jreport.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;;; Code:
-
-(TeX-add-style-hook "jreport"
- (function (lambda () (setq LaTeX-largest-level
-			    (LaTeX-section-level "chapter")))))
-
-
-;;; jreport.el ends here

lisp/auctex/style/latexinfo.el

-;;; latexinfo.el - Support for LaTeXinfo files.
-
-;; Copyright (C) 1993 Marc Gemis <makke@wins.uia.ac.be>
-
-;; Author: Marc Gemis <makke@wins.uia.ac.be>
-;; Version: $Id: latexinfo.el,v 1.1 1997/02/20 02:15:20 steve Exp $
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;; 
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;; 
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Code:
-
-(require 'latex)
-
-;;; LaTeXinfo mode
-
-(defvar TeX-latexinfo-node-regexp
-  '("\\\\node[ \t]+\\([^,\n\r%]+\\)" 1 TeX-auto-label)
-  "Matches LaTeXinfo \\node commands, only current node will be found.
-We ignore next, previous and up fields.")
-
-(defvar LaTeXinfo-mode nil
-  "Non-nil means LaTeXinfo minor mode is active.")
-  (make-variable-buffer-local 'LaTeXinfo-mode)
-
-(defvar LaTeXinfo-mode-map nil
-  "Keymap containing LaTeXinfo commands.")
-
-(if LaTeXinfo-mode-map
-    ()
-  (setq LaTeXinfo-mode-map (make-sparse-keymap))
-  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" 'latexinfo-format-buffer)
-  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" 'latexinfo-format-region)
-  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" 'latexinfo-show-structure)
-  (define-key LaTeXinfo-mode-map "\C-c\C-ud" 'makke:latexinfo-delete-structure)
-  (define-key LaTeXinfo-mode-map "\C-c\C-ug" 'latexinfo-goto-node)
-  (define-key LaTeXinfo-mode-map "\C-c\C-ui" 'makke:latexinfo-structure))
-
-(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
-    (setq minor-mode-map-alist
-	  (cons (cons 'LaTeXinfo-mode LaTeXinfo-mode-map)
-		minor-mode-map-alist)))
-