Import Oort Gnus v0.24.

[elisp/gnus.git-] / texi / texi2latex.el

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index 378752e..06c08ec 100644 (file)
--- a/texi/texi2latex.el
+++ b/texi/texi2latex.el
@@ -101,7 +101,7 @@
                                  "summarycontents" "bye"
                                  "top" "iftex" "cartouche" 
                                  "iflatex" "finalout" "vskip"
-                                 "dircategory"))
+                                 "dircategory" "group" "syncodeindex"))
                (latexi-strip-line))
               ((member command '("menu" "tex" "ifinfo" "ignore" 
                                  "ifnottex" "direntry"))
@@ -118,6 +118,10 @@
                (if as-a-chapter
                    (latexi-switch-line "subsubsection*" arg)
                  (latexi-switch-line "subsection*" arg)))
+              ((member command '("subsubheading"))
+               (if as-a-chapter
+                   (latexi-switch-line "subsubsubsection*" arg)
+                 (latexi-switch-line "subsubsection*" arg)))
               ((member command '("chapter"))
                (if (string-match "Index" arg)
                    (latexi-strip-line)
@@ -152,7 +156,7 @@
                )
               ((member command '("titlepage"))
                (latexi-begin-command command))
-              ((member command '("lisp" "example"))
+              ((member command '("lisp" "example" "smallexample" "display"))
                (latexi-strip-line)
                (insert (format "\\begin{verbatim}\n"))
                (setq verbatim (point)))
@@ -168,7 +172,7 @@
                 ((equal arg "quotation")
                  (latexi-strip-line)
                  (insert (format "\\end{verse}\n")))
-                ((member arg '("lisp" "example"))
+                ((member arg '("lisp" "example" "smallexample" "display"))
                  (latexi-strip-line)
                  (save-excursion
                    (save-restriction
@@ -189,7 +193,7 @@
                  (setq item-string (pop item-stack))
                  (latexi-strip-line)
                  (insert (format "\\end{%s}\n" arg)))
-                ((member arg '("iflatex" "iftex" "cartouche"))
+                ((member arg '("iflatex" "iftex" "cartouche" "group"))
                  (latexi-strip-line))
                 ((member arg '("deffn" "defvar" "defun"))
                  (latexi-strip-line))