lisp/ChangeLog addition:

[gnus] / texi / texi2latex.el

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index 52eb353..06c08ec 100644 (file)
--- a/texi/texi2latex.el
+++ b/texi/texi2latex.el
@@ -72,6 +72,7 @@
     (latexi-translate-string "@code{\\264}" "@code{\\gnusbackslash{}264}")
     (latexi-translate-string "@samp{\\Deleted}" "@samp{\\gnusbackslash{}Deleted}")
     (latexi-translate-string "@samp{\\Seen}" "@samp{\\gnusbackslash{}Seen}")
+    (latexi-translate-string "@file{c:\\myhome}" "@file{c:\\gnusbackslash{}myhome}")
 ;    (while (re-search-forward "{\"[^\"]*\\(\\\\\\)[^\"]*\"}\\\\" nil t)
 ;      (replace-match "\\verb+\\\\+ " t t))
     (while (not (zerop (decf times)))
@@ -100,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"))
@@ -109,6 +110,18 @@
                (if as-a-chapter
                    (latexi-switch-line (format "sub%s" command) arg)
                  (latexi-switch-line command arg)))
+              ((member command '("heading"))
+               (if as-a-chapter
+                   (latexi-switch-line "subsection*" arg)
+                 (latexi-switch-line "section*" arg)))
+              ((member command '("subheading"))
+               (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)
@@ -143,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)))
@@ -159,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
@@ -180,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))
@@ -263,11 +276,13 @@
            (latexi-exchange-command (concat "gnus" command) arg))
           ((member command '("sc" "file" "dfn" "emph" "kbd" "key" "uref"
                              "code" "samp" "var" "strong" "i"
-                             "result" "acronym" "email"))
+                             "result" "email" "env" "r"))
            (goto-char (match-beginning 0))
            (delete-char 1)
            (insert "\\gnus"))
-          ((member command '("copyright" "footnote"))
+          ((member command '("acronym"))
+           (latexi-exchange-command (concat "gnus" command) (downcase arg)))
+          ((member command '("copyright" "footnote" "TeX"))
            (goto-char (match-beginning 0))
            (delete-char 1)
            (insert "\\"))